StringGrid и SaveDialog/OpenDialog

[r_yevgeniy]

Всем доброго времени суток! Требуется написать процедуру сохранения содержимого из StringGrid, а также возможность загружать данные в StringGrid из файла. Нашел здесь на форуме код для сохранения и загрузки

procedure SaveStringGrid(StringGrid: TStringGrid; FileName: string);
var
  T: TStringList;
  Row, Col: integer;
begin
  T := TStringList.Create;
  T.Add(IntToStr(StringGrid.RowCount));
  T.Add(IntToStr(StringGrid.ColCount));
  for Row := 0 to StringGrid.RowCount - 1 do
    for Col := 0 to StringGrid.ColCount - 1 do
      T.Add(StringGrid.Cells[Col, Row]);
  T.SaveToFile(Filename);
  T.Free;
end;

procedure LoadStringGrid(StringGrid: TStringGrid; FileName: string);
var
  T: TStringList;
  Row, Col, Count: integer;
begin
  T := TStringList.Create;
  T.LoadFromFile(FileName);
  StringGrid.RowCount := StrToIntDef(T.Strings[0], 1);
  StringGrid.ColCount := StrToIntDef(T.Strings[1], 1);
  T.Delete(0);
  Count := 0;
  for Row := 0 to StringGrid.RowCount - 1 do
    for Col := 0 to StringGrid.ColCount - 1 do begin
      Count := Count + 1;
      if T.Strings[Count] <> '' then
        StringGrid.Cells[Col, Row] := T.Strings[Count] else
        StringGrid.Cells[Col, Row] := '';
    end;
  T.Free;
end;

При таком способе происходит перезапись файла, и нет возможности выбрать открываемый файл.
Подскажиет как прикрутить сюда SaveDialog и OpenDialog для того чтобы сохранять под разными именами содержимое таблицы, которое может меняться, а также возможность выбора файла lzk загрузки с помошью OpenDialog. Заранее всем спасибо за помощь. С уважением, Евгений.

[p51x]

Прикручивайте как обычно - до вызова этих функций, а имя передавайте парметром... Ведь незря он есть:

FileName: string

[_SERGEYX_]

procedure TfrmMain.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
 SaveStringGrid(StringGrid1, SaveDialog1.FileName);
end;

procedure TfrmMain.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  LoadStringGrid(StringGrid1, OpenDialog1.FileName);
end;