Datei vorhanden ?

[150gozilla]

Hallo.

Wenn mein Programm startet, soll es zu erst überprüfen ob z.B die Datei "bla.123" existiert. Wenn Sie existiert, läuft das Programm weiter, wenn Sie nicht existiert, bekommt der Benutzer eine entsprechende Meldung.


Für jede Hilfe bin ich dankbar.


MfG Chris

[CG2003]

Schau' mal nach der Funkton "FileExists".

Hoffe, Dir damit geholfen zu haben.

[RavenIV]

es gibt eine Funktion FileExists aus der Unit SysUtils.
Diese solltest Du Dir mal anschauen.

Ein Blick in die Delphi-Hilfe hätte Dir aber auch schon geholfen...

[150gozilla]

Danke

Ich habe es jetzt so gelöst:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Filename: String;
begin
  Filename := 'test.exe';
  if FileExists(FileName) then showmessage('Ist da') else showmessage('Ist nicht da');
end;

[Luckie]

Zufall, dass das funktioniert. Es braucht sich nur das Arbeitsverzeichnis ändern und schon geht das nicht mehr. Du solltes einen vollständigen Pfad zu der Datei angeben.

[150gozilla]

Ok, ich habs eben geändert

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Filename: String;
begin
  Filename := ExtractFilePath(ParamStr(0)) + 'test.exe';
  if FileExists(FileName) then showmessage('Ist da') else showmessage('Ist nicht da');
end;