Save-Dialog

[Chegga]

Hi,

@ publes:

Nächstes mal bitte den Delphi-Code Button verwenden.

Also aus:

procedure TForm1.Button1Click(Sender: TObject);
begin
GridzuExcel(stringGrid1, 'Meine Grid Daten', 'f:\daten.xls')
end;

wird:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
GridzuExcel(stringGrid1, 'Meine Grid Daten', 'f:\daten.xls') 
end;

Thanks

Zitat von weißer Zwerg:

if (frmForm1.SaveDialog1.Execute = true) then

Das ...Execute = true ist unnötig.
(Dann brauchst du auch keine Klammern.)

MfG Marc