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

  • Автор темы ast
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

ast

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

zubr

Гость
#2
Важно, чтобы между числами был какой нибудь разделитель, к примеру пробел. Да и с read, readln можно не замарачиваться. Вот пример, если разделитель пробел:
Код:
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;
 
Статус
Закрыто для дальнейших ответов.