[borockov]

Друзья, возникла такая проблема. Работаю с компонентом stringgrid, записи добавляются, удаляются, сохраняются, но вот блин проблема. Когда я пытаюсь открыть файл который у меня сохранён, в stringgrid отображается только первая строчка.

Сохраняю таким образом:

Код:

procedure TForm5.Image3Click(Sender: TObject);
var List: TStringList;
  i, j: Integer;
begin
List:=TStringList.Create;
with Stringgrid1 do
  for i:=0 to RowCount-1 do
  for j:=0 to  ColCount-1 do
    List.Add(Cells[j, i]);
List.SaveToFile('sostav\'+form3.dbedit1.text+'.txt');
end;

Открываю сохранённый файл так:

Код:

procedure TForm5.Image4Click(Sender: TObject);
var List: TStringList;
  i, j: Integer;
begin
List:=TStringList.Create;
List.LoadFromFile('sostav\'+form3.dbedit1.text+'.txt');
with Stringgrid1 do
  for i:=0 to RowCount-1 do
  for j:=0 to  ColCount-1 do
    Cells[j, i]:=List[i*ColCount+j];
end;

Друзья, помогите пожалуйста. Заранее спасибо!