Zitat von
taktaky:
Hi,
das hat nichts gebracht mit dem
extractfilename
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
for i:=1 to listbox1.items.count do
listbox1.items[i-1]:=extractfilename(listbox1.items[i-1]);
end;
Es passiert nichts !
<>
Kleiner Hinweise...
Arrays und Listen sollten immer mit dem 0ten Element beginnen! Von daher gilt das gleiche für solche for-Schleifen... bei 0 anfangen und bis count - 1 gehen.
extractfilename() wird wohl nicht funktionieren da kein Laufwerk drin ist.
Einfache lösung wäre einen Laufwerksbezeichner rein zu basteln...