[Yogurt]

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

Код:

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]

Код:

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]

Код:

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 чё-то такое.
спасибо, ошибка с выводом была, а не в твоём коде, всё теперь ок. Да прибудет с тобой сила...