Abfrage FileExists(filename)

[Bernhard Geyer]

Delphi-Quellcode:

uses
  Dialogs;

...

var 
  pf: string; 
  OpenDialog: TOpenDialog;
begin 
  OpenDialog := TOpenDialog.Create;
  try
    if OpenDialog.Execute then
    begin
      pf := OpenDialog.FileName;
      if FileExists(pf) then
        Label1.Caption:='File gefunden'
      else
        Label1.Caption:='File nicht gefunden'; 
    end
  finally
    OpenDialog.Free;
  end;
end;