Как в Stringgrid загрузить файл через OpenDialog

[Doni1]

Здравствуйте я работаю с Stringgrid и делаю меню

procedure TForm1.Save1Click(Sender: TObject);

var
  f : TextFile;
  i, j : integer;
begin
  if not SaveDialog1.Execute then Exit;

  AssignFile(f, SaveDialog1.FileName);
  Rewrite(f);
  for i := SG1.FixedRows to SG1.RowCount-1 do begin
    if i > SG1.FixedRows then Writeln(f);
    for j := SG1.FixedCols to SG1.ColCount-1 do begin
      if j > SG1.FixedCols then Write(f, #9);
      Write(f, SG1.Cells[j, i]);
    end;
  end;
  CloseFile(f);

Вот программа сделанная через SaveDialog сохраняет все нормально, а вот чтобы обратно загрузить не получается

[TaLadno]

Ну дык помножь этот код на "-1"
Покажь как загружаешь?

[Doni1]

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

Ну дык помножь этот код на "-1"
Покажь как загружаешь?

procedure TForm1.Open1Click(Sender: TObject);

var
  f : TextFile;
  i, j : integer;
begin
  if not OpenDialog1.Execute then Exit;

  AssignFile(f,OpenDialog1.FileName);
  Rewrite(f);
  for i := SG1.FixedRows to SG1.RowCount-1 do begin
    if i > SG1.FixedRows then Writeln(f);
    for j := SG1.FixedCols to SG1.ColCount-1 do begin
      if j > SG1.FixedCols then Write(f, #9);
      Write(f, SG1.Cells[j, i]);
    end;
  end;
  CloseFile(f);
end;

[Аватар]

Молодец. Скопировал код выгрузки и назвал его загрузкой

[min@y™]

а покажи-ка файл!

[Doni1]

Сообщение от min@y™

а покажи-ка файл!

Не понял какой файл

[min@y™]

Вот такой:

Как в Stringgrid загруизить файл через OpenDialog

[Serge_Bliznykov]

не хотите сходить по ссылочкам?
http://www.programmersforum.ru/showp...09&postcount=2

[Doni1]

Сообщение от min@y™

Вот такой:

Я не понимаю

[Serge_Bliznykov]

Doni1,
1) я дал ссылочку, где можно посмотреть варианты решения проблемы
2) можно и ваш код доработать. но, разумеется, процедуры записи и чтения должны быть АБСОЛЮТНО разными.
3) что у Вас может быть в строках грида? (для этого Вас и просят выложить пример текстового файла, который у Вас получается при сохранении грида в файл)