Zitat von
Klaus01:
Zitat von
taktaky:
Nicht mit einer einzelne Datei testen, sondern die Liste in ListBox1!
Hier ist eine Lösung: Und schon getestet
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
Neuerdings verbringe Ich hier mehr Zeit als sonst, auch bemühe Ich die Suche nach Autoren des öfteren... (Taktaky) ist immer für einen Lacher gut - vieleicht ist es ja auch von ihm so gedacht.
Soetwas muss es einfach auch geben.