Danke für Eure Tipps!
@ Andreas L.
Zitat von
Andreas L.:
Wieso verwendest du keine For-Schleife?
Mache ich ja jetzt. Mein
funktionierender Code sieht jetzt so aus:
Delphi-Quellcode:
For I:=0 To Pred(DruckJob.Count) Do
If Not DeleteFile(DruckJob.Strings[I]) Then
Application.MessageBox(PAnsiChar(SysErrorMessage(GetLastError)),'Fehler',0);
{$I-}rmdir(ExtractFilePath(DruckJob.Strings[0]));{$I+}
If IOResult<>0 Then
Application.MessageBox(PAnsiChar(SysErrorMessage(GetLastError)),'Fehler',0);
Zitat von
Andreas L.:
EDIT: Gehts hier wirklich um .NET?
Ich habe
keine Ahnung. Ich habe bereits mehrfach versucht, mich mal im Delphidschungel zurecht zu finden und habe es dann aufgegeben. Ich habe TurboDelphi (gemeldet als Version 10) und mein in die Jahre gekommenes Delphi 6. Für TurboDelphi musste ich alles mögliches mit .NET installieren. Daher stammt meine Einordnung. Falls jemand einen Link mit entsprechendem Überblick hat, wäre ich dankbar. Mir geht es auch darum, welches Delphi nativ
PNG unterstützt.
@ himitsu
Die Dateien liegen nicht im selben Ordner. Ich habe von SHFileOperation auch Abstand genommen, weil es nicht Plattformübergreifend ist. Und das Bestücken der Variablen ist auch komplizierter; selbst wenn es später schneller sein mag.
FindFirst ist eine gute Idee. Zwar liefert TSearchRec.Name nur die Dateinamen ohne Pfad und ich habe beides schon in meiner Liste. Aber ich könnte so noch prüfen, ob wirklich alles leer ist, bevor ich das Verzeichnis lösche.
Danke, Alex