Listar arquivos de um diretório

[IvanLeal 0]

Bom dia Pessoal...Sou novato em delphi e estive pesquisando , mas não estou encontrando algum código exemplo para listar arquivos de um determinado diretório...Alguem teria um exemplo?Obrigado

[Motta 645]

filelistbox da paleta win 3.1

[IvanLeal 0]

ok, Motta.Mas o delphi deve possuir alguma função que eu posso pegar o nome dos arquivos de uma pasta e coloca-los em um matriz por exemplo, sem precisar usar algum componente, certo?Obrigado pela ajuda

[Motta 645]

ponha um memo e um botao num form ...

 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
  function GetFileList(const Path: string): TStringList;
  var
    I: Integer;
    SearchRec: TSearchRec;
  begin
    Result := TStringList.Create;
    try
      I := FindFirst(Path, 0, SearchRec);
      while I = 0 do
      begin
        Result.Add(SearchRec.Name);
        I := FindNext(SearchRec);
      end;
    except
      Result.Free;
      raise;
    end;
  end;
begin
  Memo1.Lines := GetFileList('C:\Lixo\*.*');
end;

end.