TXT - Datei in IF - Abfrage löschen.

[Chrissi91]

Zitat von marabu:

Hi Christopher,

probiere es nochmal so:

Delphi-Quellcode:

var
  fn: TFileName;
begin
  fn := ExtractFilePath(ParamStr(0)) + 'Ressourcen\' + edtTitel2.Text + '.txt';
  if FileExists(fn) then
  begin
    DeleteFile(fn);
    if FileExists(fn)
      then ShowMessage('delete failed')
      else ShowMessage('file deleted');
  end else ShowMessage('file not found');

ExtractFilePath liefert schon einen TrailingPathDelimiter - und den Dateinamen würde ich nur einmal zusammenbauen.

Grüße vom marabu

Alles klar. Teste ich gleich. Danke Marabu.

Zitat von RavenIV:

aus der Delphi.Hilfe:

Zitat:

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

klar, was Du tun solltest?

Hoffe ich.

Also soll ich mir den Fehler anzeigen lassen. Der Rückgabewert könnte 0 sein.