Сохранение в listbox результата

[nevru1bphp]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;Edit1: TEdit;
begin
StartDir:='C:\';
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name)
      else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then
      begin
        List.Add(StartDir + SearchRec.Name + '\');
      ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;





end.

Хотелось бы не в лист сохранять, а в листбокс1. Пробовал по разному, ошибок нет, но не сохраняет.. Подскажите кто столкнулся
Редактировать/Удалить сообщение Ответить с цитированием

[Stilet]

Пробовал по разному

Как пробовал?

Вызови эту процедуру, передав ей ЛистБокс:

ScanDir('c:\','*',ListBox.Items);

[nevru1bphp]

попробовал так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
  SearchRec: TSearchRec; ListBox1: TListBox;
begin
ScanDir('c:\','*',ListBox1.Items);

end;

- не работает, ошибок нет, но и листбокс1 пустой((

[DIgorevich]

procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;Edit1: TEdit;
begin
StartDir:='C:\';
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name)
      else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then
      begin
        List.Add(StartDir + SearchRec.Name + '\');
      ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

//И по нажатию кнопки (к примеру) вызывай:
Procedure Button1Click (sender);
Begin
  ScanDir('c:\','*',ListBox.Items);
end;

[evg_m]

не работает, ошибок нет, но и листбокс1 пустой((

if FindFirst(StartDir + Mask, faAnyFile or faDirectory, SearchRec) = 0 then

если надо сканировать вложенные