Dateien gelistet im Memofeld löschen

Arne Danikowski · Beiträge: 194

Hallo,

ich benutze die Komonente TFindFile. Mit dieser gebe ich eine Liste von Dateien in ein Memofeld aus.
Dabei erhält jede Memofeldzeile ein Suchergebnis mit kompletter Pfadangabe und Dateinamen.

Nun möchte ich alle gefundenen Dateie löschen. Muss nicht in den Papierkorb. Es werden eh nur sehr spezielle Dateien gefunden, bei denen ich 100% sicher bin, dass diese gelöscht werden können. Ich hätte dennoch gerne eine Abfrage mit Einzelbestätigung.

Wie muss ich vorgehen?

besten dank schon mal im voraus

fuba · Beiträge: 125 Win7 D7 Ent.

Solltest du mit einer schleife machen, so geht es am einfachsten.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

for i:=0 to Memo1.Lines.Count-1 do
begin
  if MessageDlg('Wirklick löschen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    DeleteFile(Memo1.Lines[i]);
  end;
end;

ist ne einfache Variante, aber sollte so gehen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme