Zitat von
taktaky:
Nicht mit einer einzelne Datei testen, sondern die Liste in ListBox1!
Hier ist eine Lösung: Und schon getestet :wink:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
for i:=1 to listbox1.items.count do
listbox1.items[i-1]:=extractfilename(stringreplace(listbox1.items[i-1], '/','\', [rfreplaceall]));
end;
<>
Ach taktaky,
hier im Forum hatte zu keiner Zeit jemand Deine komplette Liste um so etwas zu testen.
Selbst in Deinem kurzen Beispiel im 1. Beitrag wurden die Ordner mit "\" getrennt.
Wenn Du in Deiner Liste dann die Ordner von den Dateien mit einem "/" trennst - wie soll
mann Dir da helfen?
In der Hilfe für ExtractFilePath steht eindeutig das es nach Backslash "\" schaut.
Grüße
Klaus