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.
