Can't get EnumerateFiles to work

[eric]

sorry... Delphi 5, windowsXPhome and Systools 3

--
thanks,
eric kundl
http://www.kundl.org
"

[eric]

well i guess you can forget this question.. i found in searching the
newsgroup i was missing the ForInclusion parameter.

--
thanks,
eric kundl
http://www.kundl.org

"eric" <er...@kundl.org> wrote in message
news:KD$iegNoC...@tpsmail01.turbopower.net...

[eric]

i have a single form with this code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

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

var
Form1: TForm1;

implementation
{$R *.DFM}
uses StUtils;

function MyFilter(const SR : TSearchRec) : Boolean; far;
begin
Result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumerateFiles('C:\Diag',ListBox1.Items,true,MyFilter);
end;
end.

i get a compile error "Incompatible types: Parameter lists differ" on the
EnumerateFiles line.

what am i doing wrong with this?

[Robert Love [TPX]]

>well i guess you can forget this question.. i found in searching the
>newsgroup i was missing the ForInclusion parameter.

Glad you found the solution to your problem.

-
Robert Love [TPX]
rober...@tpx.turbopower.com

Those of us with [TPX] after our names are not TurboPower employees
but a group of folks that have volunteered to assist TurboPower and
help fellow users who have questions about the operation of the products
--