Помогите с ListBox

[Кронос]

Помогите рализовать код загрузки названий файлов в ListBox.

Есть файлы .pli в папке ХХХ. Нужно загрузить в ListBox имена этих файлов.

[SNUPY]

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  FileAttrs: Integer;
  DireAdr:String;
begin
  If not SelectDirectory('выбиретие папку', '', DireAdr) then Exit;
  FileAttrs :=faAnyFile;
  if FindFirst(DireAdr+'\*.jpg', FileAttrs, sr) = 0 then
  begin
    repeat
    if (sr.Attr and FileAttrs) = sr.Attr then
      begin
      ListBox1.Items.Add(sr.Name);
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

Можно еще воспользоваться TFileListBox

[Airou]

А как записать в лист бох имена файлов без их расширения. Или отобразить в FileList файлы аналогично без расширения.

[mutabor]

Вместо StringList подставь ListBox

{Path - путь к директории со слешем в конце
Ext - '*' + расширение ('*'+'.txt')
SL: TStringList (строки добавляются к существующим)
HideExt - скрыть расширения или нет}
procedure GetFileList(Path, Ext: string; SL: TStringList; HideExt: boolean);
var
  SR: TSearchRec;
begin
if FindFirst(Path + Ext, faAnyFile, SR) = 0 then
  begin
    repeat
    if (SR.Attr <> faDirectory) then
      if HideExt then
        begin
        Delete(SR.Name,length(SR.Name)-3,4);
        SL.Add(SR.Name);
        end
      else
      SL.Add(SR.Name);
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;