hier die version mit nem savedialog, du musst solchen nur auf deine form ziehen, nenne h savedialog dann kannst du denn code komplett kopieren!
Delphi-Quellcode:
procedure TForm1.BtnSaveClick(Sender: TObject);
var
R, C : integeR;
S : string;
begin
* *for R := 0 to sg.RowCount - 1 do
* * * begin
* * * * *S := '';
* * * * *for C := 0 to sg.ColCount - 1 do
* * * * * * S := S + sg.Cells[C,R] + ';';
* * * * *delete(S,length(S),1);* *//loescht den ueberfluessigen ;
* * * * *lb.Items.Append(S);
* * * end;
if SaveDialog.Execute then
* * lb.Items.SaveToFile(SaveDialog.Filename); //filename ist der pfad
end;
um noch die endung
csv hinzubekommen musst du im objekt inspektor vom savedialog bei filters einfach eine option mit *.csv eingeben! hast du noch probleme gib bescheid! wenn du willst kann ich dir die prozedur zum laden von
csv dateien in delphi gib auch bescheid!
cu