Typisierte Datei erstellen

[Klaus01]

Delphi-Quellcode:

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;

Wenn der OpenDialog offen ist, dann kannst Du in das FileName(DateiName)
einen Dateinamen eingeben der nicht existiert.
Dann kommst Du in den else Zweig, kannst also auch eine neue Datei anlegen.

Aber etwas komisch ist das Verhalten schon, das würde ich nie von einem Programm erwarten.

Grüße
Klaus