Скачать: CL | DM;

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

← →
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]);

---

← →
Amoeba ©   (2004-06-22 16:33) [6]

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

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

---

← →
PVOzerski ©   (2004-06-22 16:48) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c