[angvelem]

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

... TStringGrid как - то в файл сохранить, ...

Сохраняй:

Код:

procedure TForm1.mnuSaveExcelClick(Sender: TObject);
var
  F        : TextFile;
  Col, Row : Integer;
begin
  AssignFile(F, 'myFile.sav');
  try
    Rewrite(F);
    WriteLn(F, ID);
    WriteLn(F, SG.ColCount);
    WriteLn(F, SG.RowCount);
    for Row := 0 to SG.RowCount - 1 do
      for Col := 0 to SG.ColCount - 1 do
      begin
        if (Row > 0) and (SG.Cells[1, Row] = '') then
          Break;
        WriteLn(F, SG.cells[Col, Row]);
      end;
  finally
    CloseFile(F);
  end;
end;