Загрузка имени файла в combobox

[Maxvella]

Друзья всем привет!
Вопрос как всегда....
Эта строчка выполняет загрузку всех имен файлов из папки в listbox
SendMessage(ListBox1.Handle,LB_DIR, 0,integer(pchar('c:\'+'*.')));
Заметим, что файлы загружаемые в listbox без расширения.

Как сделать в combobox таким же образом.
Вот код как сделано у меня, но почему то загружаются какие-то строки см.рисунок.

var
F: TSearchRec;
  mydir,Path: string;
  Attr: Integer;
begin
ComboBox1.Items.Clear;
ComboBox1.Text:='<Сделайте выбор>';
MyDir:=ExtractFilePath(Application.ExeName);
  
  Path := mydir+'\base\'+'*.';
  FindFirst(Path, Attr, F);
 
  if F.name <> '' then
  begin
    ComboBox1.Items.Add(F.FindData.cFileName);
    while FindNext(F) = 0 do
          ComboBox1.Items.Add(F.Name);
  end;
  FindClose(F);
 end;

From Stilet: В следующий раз если код тегом не выделишь тему удалю без сожаления

[Аватар]

Нужно пропустить F.Name='.' OR F.Name='..'. , Attr-ом мжно отрегулировать выбор только файлов, опуская подкаталоги

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    SR:TSearchRec;
    Path:string;
begin
 Path:=ExtractFilePath(Application.ExeName)+'base\*.*';
 i:=FindFirst(Path,faAnyFile,SR);
 while i = 0 do
  begin
   if (SR.Name <> '.')and(SR.Name <> '..') then
   combobox1.Items.Add(Copy(SR.Name,1,Pos('.',SR.Name)-1));
   i:=FindNext(SR);
  end;
 FindClose(SR);
end;

[_SERGEYX_]

Так, файлы нужны или директории? В строке
FindFirst(Path, Attr, F); чему равно Attr?
Сделай что-то типа

procedure TForm1.RzBitBtn5Click(Sender: TObject);
var
  F: TSearchRec;
  mydir, Path: string;
  Attr: Integer;
begin
  ComboBox1.Items.Clear;
  ComboBox1.Text := '<Сделайте выбор>';
  MyDir := ExtractFilePath(Application.ExeName);

  if FindFirst(Path + '*.*', faAnyFile, F) = 0 then
   begin
     repeat
       if (F.Attr <> faDirectory) then
       begin
         ComboBox1.items.Add(F.Name);
       end;
     until FindNext(F) <> 0;
     FindClose(F);
   end;
end;

[Maxvella]

Зачет!!! Все получилось..... Спасибо Вам друзья которых не знаю!!!

[psoi]

var
 dir:string;
 dir:=ExtractFilePath(Application.ExeName)+'\*.txt';
 ComboBox1.Perform(CB_DIR,0,LParam(Pchar(dir)));

Если, как в моем случае, найдя один файл, при раскрытии список бокса немного не правильно отобразился, то я решил проблему таким костылем:

ComboBox1.Items.Add('');
ComboBox1.Perform(CB_DIR,0,LParam(Pchar(dir)));
ComboBox1.Irems.Delete(0);