Combobox Inhalt eines Ordners aber ohne Datei endung

[ralle15]

Hallo
ich mal wieder eine frage,
ich habe mir das Thema von Stephan B.
http://www.delphipraxis.net/internal...ombobox+ordner:

Delphi-Quellcode:

// ordner öffnen
procedure GetFileList(aMask : string;aList : TStrings);
begin
  aList.Clear;
  with TFileListBox.CreateParented(HWND(-3)) do
  begin
    try
      Mask := ExtractFileName(aMask);
      Directory := ExtractFilePath(aMask);
      FileType := [ftArchive];
      aList.Assign(items);
    finally
      Free;
   end
  end;
  end;

zur Hilfe genommen aber ich bekomme es nicht hin das in der Combobox nur die Datei ohne Endung angezeigt wird.
also wie ich in einen Label die Endung entferne hab ich hin bekommen :

Delphi-Quellcode:

Label4.Caption := ComboBox1.Items[ComboBox1.ItemIndex];
Label4.Caption := Copy(Label4.Caption, 1, Length(Label4.Caption)-4);

kann mir jemand helfen oder einen kleinen Tipp geben.

Danke Ralle15


[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst einfügen. MfG, Matze[/edit]

[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;

[Apollonius]

Und was ist, wenn die Endung nicht genau drei Buchstaben hat? Statt Copy halte ich ChangeFileExt(..., '') für angebrachter.