Вывод из файла в Stirng Grid

[nulyjarden]

Доброго времени суток
Мне нужно считать данные из файла в String Grid.Вот мой код:
Код Delphi

  Form2.strngrd1.RowCount:= StrToInt(lbl10.Caption)+1;
  AssignFile(F, 'F.dat');
  Reset(F);
  for i:= 1 to StrToInt(lbl10.Caption) do begin
    while not Eof(F) do
      Read(F, Zap);
      Form2.strngrd1.Cells[0,i]:= Zap.Naim;
end;
  CloseFile(F);

Данные считываются, но в SG заносится только поле последней записи, что я делаю не так?

[Voxa7]

 Form2.strngrd1.RowCount:= StrToInt(lbl10.Caption)+1;
  AssignFile(F, 'F.dat');
  Reset(F);
  for i:= 1 to StrToInt(lbl10.Caption) do begin
    while not Eof(F) do
    begin
      Read(F, Zap);
      Form2.strngrd1.Cells[0,i]:= Zap.Naim;
    end;
end;
  CloseFile(F);

Вловил суть?

[nulyjarden]

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

 Form2.strngrd1.RowCount:= StrToInt(lbl10.Caption)+1;
  AssignFile(F, 'F.dat');
  Reset(F);
  for i:= 1 to StrToInt(lbl10.Caption) do begin
    while not Eof(F) do
    begin
      Read(F, Zap);
      Form2.strngrd1.Cells[0,i]:= Zap.Naim;
    end;
end;
  CloseFile(F);

Вловил суть?

нет))в SG запись не происходит)

[Voxa7]

Form2.strngrd1.RowCount:= StrToInt(lbl10.Caption)+1;
  AssignFile(F, 'F.dat');
  Reset(F);
  for i:= 1 to StrToInt(lbl10.Caption) do begin
    if (not Eof(F)) then Read(F, Zap);
    Form2.strngrd1.Cells[0,i]:= Zap.Naim;
end;
  CloseFile(F);

Попробуй так.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[nulyjarden]

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

Form2.strngrd1.RowCount:= StrToInt(lbl10.Caption)+1;
  AssignFile(F, 'F.dat');
  Reset(F);
  for i:= 1 to StrToInt(lbl10.Caption) do begin
    if (not Eof(F)) then Read(F, Zap);
    Form2.strngrd1.Cells[0,i]:= Zap.Naim;
end;
  CloseFile(F);

Попробуй так.

Так работает.Спасибо огромное)