Die seltsame Combobox

[Delphi.Narium]

Ich verstehe nicht, was Du vorhast, ich kann es nur erahnen

Delphi-Quellcode:

procedure TPathFinderFrame.FileMaskInit;
  var i: integer;
begin
  for i := Low(VALID_EXTENSIONS) to High(VALID_EXTENSIONS) do
  begin
// CmbxFileType.Items.Add(VALID_EXTENSIONS[i]);
    if i = 5 then // Warum fünf? Änder mal das Array und???
      CmbxFileType.Text := '.pdf'; //IntToStr(FDefaultType);
    CmbxFileType.AddItem(VALID_EXTENSIONS[i], nil);
  end;
  FileSearcher1.FileMask := VALID_EXTENSIONS[5];
end;

Eventuell so?

Delphi-Quellcode:

procedure TPathFinderFrame.FileMaskInit;
  var i: integer;
begin
  CmbxFileType.Items.Clear;
  for i := Low(VALID_EXTENSIONS) to High(VALID_EXTENSIONS) do
  begin
    CmbxFileType.AddItem(VALID_EXTENSIONS[i], nil);
  end;
  CmbxFileType.Text := VALID_EXTENSIONS[FDefaultType];
  FileSearcher1.FileMask := CmbxFileType.Text;
  // oder
  CmbxFileType.ItemIndex := FDefaultType;
  FileSearcher1.FileMask := CmbxFileType.Items[FDefaultType];
end;