Listar archivos?

[marcoszorrilla]

Para listar los ficheros en ShowMessage utilizando el FileListBox, sino quieres que se vea símplemente le pones su propiedad visible a False y arreglado.

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
cLista:String;
i:Integer;
begin
FileListBox1.Mask:='*.txt';
FileListBox1.Drive:='e';

For i:= 0 to FileListbox1.Items.Count -1 do
begin
cLista:=cLista+FileListbox1.Items.strings[i]+Chr(10)+Chr(13);
end;

ShowMessage(cLista);
end;

Un Saludo.