Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
4. Jun 2007
procedure TForm1.Button1Click(Sender: TObject);
begin
if openDialog1.execute then
begin
if FileExists(OpenDialog1.FileName) then
ShowMessage('File vorhanden')
else
ShowMessage('File nicht vorhanden');
end;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
4. Jun 2007
Solltest Du da nicht den SaveDialog nehmen und nicht den OpenDialog?
if SaveDialog.Execute then
try
AssignFile(Datei,SaveDialog.FileName);
If FileExists(SaveDialog.FileName) then
reset(Datei)
else
rewrite(Datei);