Название файлов в TListBox

[DimOn4Ik]

Помогите пожалуйста загрузить названия файлов в TListBox без расширения..

[DimOn4Ik]

простите,ошибся разделом..

[spamer]

Вот как то :

procedure  TForm1.FindFile(Dir : String);
Var
  SR:TSearchRec;
  FindRes, k, exelen :Integer;
  FileName : string;
begin
  FindRes:=FindFirst(Dir + '*.*', faAnyFile, SR);
  While
    FindRes = 0 do
    begin
      if ((SR.Attr and faDirectory) = faDirectory) and
         ((SR.Name = '.')or(SR.Name = '..')) then
        begin
          FindRes := FindNext(SR);
          Continue;
        end;

      if ((SR.Attr and faDirectory) = faDirectory) then
        begin
          FindFile(Dir+SR.Name+'\');
          FindRes := FindNext(SR);
          Continue;
        end;
  k:=length(SR.Name); exelen:=pos('.', SR.Name)-1;
  FileName := copy(SR.Name, 0, exelen);
  ListBox1.Items.Add(FileName);

  FindRes:=FindNext(SR);
  end;
FindClose(SR);
end;

з.ы. код ищется легко в гугле, дорабатывается за 2 минуты...ну это так...к слову
з.з.ы желательно что бы модераторы перенесли тему в соответствующий раздел...