Forum: Sonstige Fragen zu Delphi
Delphi
by Ratte,
27. Dez 2005
procedure TPicshowForm.Label7Click(Sender: TObject);
var filename2:string;
begin
with SaveDialog1 do
begin
Filename := 'Bild' + inttostr(pic)+'.jpg';
Filename2:=''+Filename;
Filter := 'Jpeg Files (*.jpg)|*.jpg';
Title := 'Bild speichern unter ';
if Execute then
Forum: Sonstige Fragen zu Delphi
Delphi
by Ratte,
18. Dez 2005
Und wo kommt der Fehler? Ich blick da nicht ganz durch...
Ratte
Forum: Sonstige Fragen zu Delphi
Delphi
by Ratte,
18. Dez 2005
Wie lädts du das nächste Bild? Zeig mal den QT, wo der Fehler kommt.
Ratte
Forum: Sonstige Fragen zu Delphi
Delphi
by Ratte,
18. Dez 2005
Wann tritt der Fehler denn genau auf? Geh das Programm mal im Einzelschrittmodus (F8) durch und schau wann der Fehler kommt. Der Teil hier sieht nämlich OK aus.
Ratte
Forum: Sonstige Fragen zu Delphi
Delphi
by Ratte,
18. Dez 2005
var
SD: TSaveDialog;
begin
SD := TSaveDialog.Create(Self);
with SD do
begin
Filename := 'Bild' + inttosr(x); // <-- eingefügt
Filter := 'Jpeg Files (*.jpg)|*.jpg';
Title := 'Save Image to...';
InitialDir := GetSpecialFolder(Application.Handle, CSIDL_DESKTOPDIRECTORY); // Initalisierungs Verzeichnis ist Desktop
Forum: Sonstige Fragen zu Delphi
Delphi
by Ratte,
18. Dez 2005
Mist, wollte ich auch gerade erklären.
@f4r:Was soll eingentlich das ''+ und +'' beim Dateinamen? Das ist doch wohl überflüssig, wenn nicht sogar eine Fehlerquelle.