Texte von Listbox1 in ListBox1 teilweise kopieren

[Blackheart]

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.