Текстовы файл среднее арифметическое

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем ast, 28 июн 2006.

Статус темы:
Закрыта.
  1. ast

    ast Гость

    Значит такой вопрос:
    Я беру текстовый файл, в котором записаны числа, причем расположены они в беспорядке, то есть в первой строчке находятся, например, 5 чисел, во второй строчке - 21 число. Так вот, как мне их всех прочитать? Я не знаю... Если бы все числа были ли бы записаны в одну строчку, то можно было бы запустить цикл до конца файла и написать read() . Если каждое число было бы написано с новой строчки, то написался бы readln() . Как быть в этом случае???
     
  2. zubr

    zubr Гость

    Важно, чтобы между числами был какой нибудь разделитель, к примеру пробел. Да и с read, readln можно не замарачиваться. Вот пример, если разделитель пробел:
    Код (Text):
    procedure TForm1.Button1Click(Sender: TObject);
    var
    str:TStringList;
    s, s1:string;
    k:Integer;
    begin
    str:=TStringList.Create;
    try
    str.LoadFromFile('MyTextFile');
    s:=str.Text;
    finally
    str.Free;
    end;
    k:=Pos(' ', s);
    While k<>0 do
    begin
    s1:=Copy(s, 1, k-1);
    If s1<>'' then
    //какие то действия с очередной строкой содержащей число
    Delete(s, 1, k);
    k:=Pos(' ', s);
    end;
    end;
     
Загрузка...
Статус темы:
Закрыта.

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