Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

denary © (2004-06-22 15:17:00)
Подскажите, пожалуйста,
как записать в массив действительных чисел
строки из текстового файла?

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;

PVOzerski (2004-06-22 16:48:00) [1]
Э нет... У человека ведь задача: одновременно заполнить массив числами, а Memo - строками. Стало быть, что-то во что-то все равно преобразовывать придется. Не читать же файл 2 раза!

Amoeba (2004-06-22 16:33:00) [2]

> Anatoly Podgoretsky © (22.06.04 16:30) [5]

Согласен. Просто поторопился. Поспешишь - людей насмешишь.

Anatoly Podgoretsky (2004-06-22 16:30:00) [3]
Amoeba © (22.06.04 16:27) [3]
Только Readln(MyTextFile, A[i]);

Amoeba (2004-06-22 16:28:00) [4]
Sorry for offtop. Поторопился.

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

denary (2004-06-22 16:26:00) [6]
Спасибо, работает
A[i]:= StrToFloat(S);

Ega23 (2004-06-22 15:18:00) [7]
Val
FloatToStr

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »