StringGrid speichern

[Noobinator]

danke Leute, ich habe mir aber sebst geholfen indem ich ein bissl getrickst habe xD
Ist nicht die optimale lösung,aber geht auch.

habe das erste stringgrid einfach normal gespeichert mit

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
var
  F,g: TStringList;
  i,s: Integer;
begin
savedialog1.execute;
  F := TStringList.Create;
  try
    F.Add(IntToStr(StringGrid1.RowCount));
    F.Add(IntToStr(StringGrid1.ColCount));
    for i := 0 to (StringGrid1.RowCount - 1) do
      F.Add(StringGrid1.Rows[i].CommaText);
    F.SaveToFile(savedialog1.FileName);
  finally
    F.Free;
end;

und das zweite einfach mit

Delphi-Quellcode:

speichern:=savedialog1.FileName ;
      delete(speichern,length(savedialog1.FileName)-3,4);
      laden:=speichern+'.xxx';
    g.SaveToFile(laden);

damit speichere ich einfach mit einem Klick in 2 dateien xD

ps: so wer hat jetzt was an meinem Code zu meckern

EDIT: sch**** Tipfehler