Запись в массив

[SilAs]

Здравствуйте ! Нужно записать данные из файла в массив. Подскажите что не так ?

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
begin

assignfile(f, 'angles.txt');
reset(f);
 
for y := 0 to stringgrid1.rowcount - 1 do
for i:=1 to stringgrid1.rowcount - 1 do
    begin
     readln(F, tempstr);
      stringgrid1.cells[0, y] := tempstr;
      a[i]:=strtofloatdef(tempstr,0);           

    end;
   closefile(f);

end; 


[MaxNik2009]

По скольку твой код весьма лаконичен(написал бы какие переменные к чему, и от куда взялись), то я накидал такой код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  f: TextFile;
  aText: array of Extended;
  I: integer;
  sTmp: string;
begin
  if not FileExists('D:\Test.txt') then
    exit;

  I:= 1;
  AssignFile(f, 'D:\Test.txt');
  Reset(f);
  while not Eof(f) do
  begin
    SetLength(aText, I);
    ReadLn(f, sTmp);
    StringGrid1.Cells[0, I]:= sTmp;
    aText[I - 1]:= StrToFloatDef(sTmp, 0);
    Inc(I);
  end;
  CloseFile(f);
end;

разбирайся.