Heyho ich bins mal wieder.
Ich brauche erneut eure Hilfe.
Ich hab ein MiniPaint programmiert was auch so gut wie fertig ist. Bloß möchte ich jetzt noch Speichern. Meine Frage ist nun wie speicher ich das mit dem SaveDialog?
Ich habe ein Menü eingebaut und dann öffne ich wenn ich auf Speichern drücke den SaveDialog.
Wenn ich dann den Dateinamen eingebe sehe ich die Datei nicht.
Delphi-Quellcode:
procedure TForm1.Speichern1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
SaveDialog1.Filename := ChangeFileExt(SaveDialog1.FileName + '.jpg');
AssignFile(F, SaveDialog1.Filename);
try
Rewrite(f);
Write(f);
finally
CloseFile;
end;
end;