FileListBox ohne endung

[Blackheart]

Also ehrlich deine Fragen sind kaum zu verstehen, erkläre doch mal mit einem Satz mehr worauf Du hinauswillst - Ich versteh hier nur Bahnhof, meinst Du vieleicht das hier...

Delphi-Quellcode:

procedure TForm1.FileListBox1Change(Sender: TObject);
 var
  i:Integer;
begin
  for i := 0 to FileListbox1.Items.Count-1 do
  FileListBox1.Items.Strings[i]:=ChangeFileExt(FileListBox1.Items.Strings[i],'');
end;