как записать в массив действительных чисел строки из текстового ф

← →
denary (2004-06-22 15:17) [0]

Подскажите, пожалуйста,
как записать в массив действительных чисел
строки из текстового файла?

procedure TForm1.btnOpenClick(Sender: TObject);
var
MyTextFile: TextFile;
S: String[5];
i,j: Integer;
A: Array[1..1000]of Single;
begin
if OpenDialog1.Execute then begin
AssignFile(MyTextFile,OpenDialog1.FileName);
Reset(MyTextFile);
i:=1;
try
while not Eof(MyTextFile)do
begin
Readln(MyTextFile,S);
// A[i]:= ?(S); Какое преобразование нужно сделать?
Memo1.Lines.Add(S);
i:=i+1;

end;
finally
CloseFile(MyTextFile);
end;

← →
Ega23 © (2004-06-22 15:18) [1]

Val
FloatToStr

← →
denary (2004-06-22 16:26) [2]

Спасибо, работает
A[i]:= StrToFloat(S);

← →
Amoeba © (2004-06-22 16:27) [3]

Мжно и проще без всяких преобразований:
i:=1;
try
while not Eof(MyTextFile)do
begin
Readln(Array[i],S);
Memo1.Lines.Add(S);
Inc(i);
....

← →
Amoeba © (2004-06-22 16:28) [4]

Sorry for offtop. Поторопился.

← →
Anatoly Podgoretsky © (2004-06-22 16:30) [5]

Amoeba © (22.06.04 16:27) [3]
Только Readln(MyTextFile, A[i]);

Э нет... У человека ведь задача: одновременно заполнить массив числами, а Memo - строками. Стало быть, что-то во что-то все равно преобразовывать придется. Не читать же файл 2 раза!

как записать в массив действительных чисел строки из текстового ф Найти похожие ветки