...überprüfen ob eine Datei/Verzeichnis existiert?

Autor: Reto Zehnder

Kategorie: Dateien

uses
 
FileCtrl;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if 
FileExists('c:\boot.ini') then
    
ShowMessage('File exists! Datei existiert!');

  if FileExists('c:\windows') then
    
ShowMessage('Directory Exists!');
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base