Combobox Inhalt eines Ordners aber ohne Datei endung

[sniper_w]

Delphi-Quellcode:

var
  i: Integer;
  tmp: string;
begin
  for i=0 to ComboBox1.Count - 1 do
  begin
    tmp := ComboBox1.Items[i];
    tmp := Copy(tmp, 1, Length(tmp)-4);
    ComboBox1.Items[i] := tmp;
  end;
end;