Open Dialog

procedure TForm1.Button3Click(Sender: TObject);
var
  f: TStringlist;
  i, j:Integer;
  Str: string;
begin
  with TSaveDialog.Create(Owner) do
  begin
    DefaultExt := 'pas,txt';
      Filter := 'Текстовые файлы|*.txt|'+'Файлы Паскаля|*.pas|';
        if not Execute then exit;
          f := TStringList.Create;
        f.Add('Rows - '+IntToStr(StringGrid2.RowCount)+#32+'Columns - '+
      IntToStr(StringGrid2.ColCount));
        for i:=0 to StringGrid2.RowCount-1 do
        begin
          Str := '' ;
       for j:=0 to StringGrid2.ColCount-1 do
     Str := Str+StringGrid2.Cells[j, i]+#32;
       f.Add(Str);
        end;
     f.SaveToFile(FileName);
  end;
    f.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Rows, Cols: Integer;
  i, j: Integer;
  f: TextFile;
  s: string;
    begin
       with TOpenDialog.Create(Owner) do
         begin
            Filter := 'Текстовые файлы|*.txt|'+'Файлы Паскаля|*.pas|';
              if TOpenDialog.Execute and FileExist(TOpenDialog.FileName) then
            AssignFile(f, TOpenDialog.ClassName);
          Reset(f);
        Read(f, s);
        Cols := StrToInt(s);
      Read(f, s);
        Rows := StrToInt(s);
          for i := 0 to Cols - 1 do
          begin
            for j := 0 to Rows - 1 do
          begin
        Read(f, s);
      StringGrid2.Cells[i,j] := s;
              end;
            Readln(f);
          end;
      CloseFile(f);
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  Text: TextFile;
  OpenDialog: TOpenDialog;
  i, j: Integer;
  tmp: string;
begin
  OpenDialog := TOpenDialog.Create(nil);
  try
    OpenDialog.Filter := 'Текстовые файлы|*.txt|' + 'Файлы Паскаля|*.pas|';
    OpenDialog.DefaultExt := 'pas,txt';
    OpenDialog.Options := [ofFileMustExist];
    if OpenDialog.Execute then
    begin
      AssignFile(Text, OpenDialog.FileName);
      Reset(Text);
      ReadLn(Text, tmp);
      StringGrid2.RowCount := StrToInt(tmp);
      ReadLn(Text, tmp);
      StringGrid2.ColCount := StrToInt(tmp);
      for i := 0 to StringGrid2.RowCount - 1 do
        for j := 0 to StringGrid2.ColCount - 1 do
        begin
          ReadLn(Text, tmp);
          StringGrid2.Cells[i, j] := tmp;
        end;
      CloseFile(Text);
    end;
  finally
    FreeAndNil(OpenDialog);
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  Text: TextFile;
  SaveDialog: TSaveDialog;
  i, j: Integer;
begin
  SaveDialog := TSaveDialog.Create(nil);
  try
    SaveDialog.DefaultExt := 'pas,txt';
    SaveDialog.Filter := 'Текстовые файлы|*.txt|' + 'Файлы Паскаля|*.pas|';
    if SaveDialog.Execute then
    begin
      AssignFile(Text, SaveDialog.FileName);
      ReWrite(Text);
      WriteLn(Text, IntToStr(StringGrid2.RowCount));
      WriteLn(Text, IntToStr(StringGrid2.ColCount));
      for i := 0 to StringGrid2.RowCount - 1 do
        for j := 0 to StringGrid2.ColCount - 1 do
          WriteLn(Text, StringGrid2.Cells[i, j]);
      CloseFile(Text);
    end;
  finally
    FreeAndNil(SaveDialog);
  end;
end;