[NIch]

Можно так...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65

// Save a TStringGrid to a file   procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);  var    f:    TextFile;    i, k: Integer;  begin    AssignFile(f, FileName);    Rewrite(f);    with StringGrid do    begin      // Write number of Columns/Rows     Writeln(f, ColCount);      Writeln(f, RowCount);      // loop through cells     for i := 0 to ColCount - 1 do        for k := 0 to RowCount - 1 do          Writeln(F, Cells[i, k]);    end;    CloseFile(F);  end;    // Load a TStringGrid from a file   procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);  var    f:          TextFile;    iTmp, i, k: Integer;    strTemp:    String;  begin    AssignFile(f, FileName);    Reset(f);    with StringGrid do    begin      // Get number of columns     Readln(f, iTmp);      ColCount := iTmp;      // Get number of rows     Readln(f, iTmp);      RowCount := iTmp;      // loop through cells & fill in values     for i := 0 to ColCount - 1 do        for k := 0 to RowCount - 1 do        begin          Readln(f, strTemp);          Cells[i, k] := strTemp;        end;    end;    CloseFile(f);  end;      // Save StringGrid1 to 'c:\temp.txt':   procedure TForm1.Button1Click(Sender: TObject);  begin    SaveStringGrid(StringGrid1, 'c:\temp.txt');  end;    // Load StringGrid1 from 'c:\temp.txt':   procedure TForm1.Button2Click(Sender: TObject);  begin    LoadStringGrid(StringGrid1, 'c:\temp.txt');  end;