ExtractFileName bei ListBox?

[Hawkeye219]

Ohne Schleife wird es wohl nicht gehen:

Delphi-Quellcode:

procedure CopyFileNames (Source, Target: TStrings);
var
  i : Integer;
begin
  Target.Clear;
  for i := 0 to Source.Count - 1 do
    Target.Add(ExtractFileName(Source[i]));
end;
  
begin
  CopyFileNames (OpenDialog1.Files, AudioPlayList.ListBox1.Items);
end;

Gruß Hawkeye