[Yogurt]

Народ, нужна помощь

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm4.FormShow(Sender: TObject); var i:integer; Lznach:array of real; begin       AssignFile(fl,'file\L\L-znach.txt');       i:=1;       reset(fl);       while not eof(fl) do       begin             Readln(fl,stroka); -->       Lznach[i]:=StrToFloat(stroka);             i:=i+1;       end; end;

Мне надо, чтобы каждому элементу массива Lznach присваивалось значение из текстового файла, но в отмеченной строке он выдаёт ошибку. А если я вместо Lznach поставлю не массив, то он спокойно присваивает значение.

[AlexSku]

Массив-то динамический, нужно определить длину, например: SetLength(Lznach, 100);

[The Shadow]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm4.FormShow(Sender: TObject); var i:integer; Lznach:array of real; begin       AssignFile(fl,'file\L\L-znach.txt');       i:=1;       reset(fl);       while not eof(fl) do       begin             Readln(fl,stroka);             SetLength(Lznach, Length(Lznach) + 1);             Lznach[i]:=StrToFloat(stroka);             i:=i+1;       end; end;

[Yogurt]

аллилуя братья, только теперь ошибку какую-то выдаёт и вкладку под названием CPU открывает....
вот что там появляется

причём тогда, когда я полностью закрываю прогу, т.е. unit1 когда закрываю

[Yogurt]

и ещё
по всем законам логики, когда в файле у меня три числа: 1 2 3, только в столбец, то эта самая Lznach должна принять значения 1 2 и 3, но она принимает значения 0 0 3.

[Phedor]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

begin   AssignFile(fl,'file\L\L-znach.txt');   reset(fl);   Setlength(Lznach, 0);   i:=0;   while not eof(fl) do   begin     SetLength(Lznach, Length(Lznach) + 1);     Readln(fl, Lznach[i]);     inc(i);   end;   CloseFile(fl); end;

[Yogurt]

это здорово, но теперь, вместо 2 он пишет 2,1252470363899E-314 и тому подобное

[Phedor]

Сообщение от Yogurt

это здорово, но теперь, вместо 2 он пишет 2,1252470363899E-314 и тому подобное

Это старый прикол float и real, они мантису не правильно показывают. Если действительно нужны числа со знаком после запятой, то округляй. RoundTo(Lznach[i], 2);

[Yogurt]

нет, не в том дело, 9 он тоже похоже показывал 2,545004 чё-то такое.
спасибо, ошибка с выводом была, а не в твоём коде, всё теперь ок. Да прибудет с тобой сила...