Получение списка файлов и папок

[pavellyba]

Мне требуется узнать список файлов и папок в папке и загнать эти названия в массив.

[Человек_Борща]

Читаем про TSearchRec FindFirst FindNext FindClose и используем их...

[Lem-ON]

Есть отличная функция для нахождения файлов:

function GetFiles(Path:String; Full: Boolean = False):TStrings;
   Var
   Rec:TSearchRec;
   TMP:TStrings;
   ls: String;
   i: integer;
begin
  Result:=TStringList.Create;
  if Path[Length(Path)]<>'\' Then Path:=Path+'\';
  //ChDir(Path);
  if FindFirst(Path+'\*.*',faAnyFile,Rec)=0 then
    begin
     if (Rec.Name<>'.')and(Rec.Name<>'..') then
       if (Rec.Attr and faDirectory) <> 0 then begin
       TMP:=GetFiles(Path+Rec.Name,True);
       Result.AddStrings(TMP);
       TMP.Free;
       end else Result.Add(Path+Rec.Name);

     while FindNext(Rec)=0 do
       begin
        if (Rec.Name<>'.')and(Rec.Name<>'..') then
         if (Rec.Attr and faDirectory) <> 0 then begin
         TMP:=GetFiles(Path+Rec.Name,True);
         Result.AddStrings(TMP);
         TMP.Free;
         end else Result.Add(Path+Rec.Name);
       end;
   end;
if not Full then
  for i:=0 to Result.Count-1 do
   begin
     ls := Result[i];
     Delete(ls,1,Length(Path));
     Result[i] := ls;
   end;
  FindClose(Rec);
end;

А потом можно записать их в листобокс:

 Listbox1.Items.Assign(getfiles('директория'));
  ListBox1.ItemIndex := 0;

а дальше вывести в массив :

n:=listbox1.Items.Count-1;
  for i:=0 to n do
  A[i]:=Listbox1.Items[i]; \\ при условии что массив начинается с нуля;

[Sparkman]

type DynamicArray = array of string;

procedure GetFiles(var mOut : DynamicArray; Path:String);
Var Rec:TSearchRec;
    ls: String;
    i,n: integer;
begin
     n:=0;
     if Path[Length(Path)]<>'\' Then Path:=Path+'\';
     if FindFirst(Path+'*.*',faAnyFile,Rec)=0 then
     begin
          if (Rec.Name<>'.')and(Rec.Name<>'..') then
          begin
               inc(n);
               SetLength(mOut,n);
               mOut[n-1]:=Rec.Name;
          end;
          while FindNext(Rec)=0 do
          begin
               if (Rec.Name<>'.')and(Rec.Name<>'..') then
               begin
                    inc(n);
                    SetLength(mOut,n);
                    mOut[n-1]:=Rec.Name;
               end;
          end;
     end;
     FindClose(Rec);
end;

// use
procedure TForm1.Button1Click(Sender: TObject);
var mas : DynamicArray;
    i : integer;
begin
     Memo1.Clear;
     GetFiles(mas, 'c:\путь');
     for i:=0 to High(mas) do
     Memo1.Lines.Add(mas[i]);
end;

[pavellyba]

СпС разобрался=)
Человек_Борща, спасибо огромное что дали операторы, я смог разобраться хоть, что к чему=)