Делфи

Тема в разделе "Pascal and Delphi", создана пользователем sani9989, 26 дек 2012.

  1. sani9989

    sani9989 New Member

    Регистрация:
    26 дек 2012
    Сообщения:
    2
    Симпатии:
    0
    1.Дан файл f, содержащий различные даты. каждая дата – это число, месяц и год. Найти самую позднюю дату.2.Дан файл f, компоненты которого являются действительными числами. Найти разность первой и последней компонент файла.3.Дан текстовый файл f, содержащий программу на языке паскаль. Проверить эту программу на соответствие числа открывающихся и закрывающихся круглых скобок. считать, что каждый оператор программы занимает не более одной строки файла f.
     
  2. Cambur

    Cambur Active Member

    Регистрация:
    20 июн 2010
    Сообщения:
    27
    Симпатии:
    0
    используй TStrings или TStringList
    var ss : TStrings;
    begin
    ss := TStringList.Create;
    ....
    ss.LoadFromFile(твой файл);

    количество строк будет ss.ItemIndex
    чтобы просмотреть все строки в цикле
    for i := 0 to ss.ItemIndex -1 do
    ...
    сторка - ss.Items.Strings

    заметь, что те же ...строки есть и в TMemo - можешь грузить файл в окно TMemo
    только там они не items а lines, что не столь важно... memo1.Lines.LoadFromFile();
     
Загрузка...

Поделиться этой страницей