TXT - Datei in IF - Abfrage löschen.

[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