Delphi-Quellcode:
procedure TPicshowForm.Label7Click(Sender: TObject);
var filename2:string;
begin
with SaveDialog1 do
begin
Filename := 'Bild' + inttostr(pic);
Filename2:=''+Filename+'.jpg'; //Hier sind doch keine einleitenden '' nötig, oder ?
Filter := 'Jpeg Files (*.jpg)|*.jpg';
Title := 'Bild speichern unter ';
if Execute then
begin
Image1.Picture.SaveToFile(filename2);
end;
end;
end;
... siehe eingefügter Kommentar. Ausserdem ist Filename2 nicht nötig. Kann man auch so schreiben:
Filename := 'Bild' + IntToStr(pic) + '.jpg';