one more time where in the above code is the SL updated. only that procedure saves the files found.
Hi!
Sorry but I don't understand you again. My code is perfect, only doesn't work. But anyway, I found what is the problem (really). The problem is the bad implementation in the TListFileSearcher Lazarus code. See:
procedure TFileSearcher.DoFileFound;
begin
if Assigned(FOnFileFound) then OnFileFound(Self);
end;
Okay, now let me see the TListFileSearcher:
{ TListFileSearcher }
TListFileSearcher = class(TFileSearcher)
private
FList: TStrings;
protected
procedure DoFileFound; override;
public
constructor Create(AList: TStrings);
end;
DoFile found overrided, but how:
procedure TListFileSearcher.DoFileFound;
begin
FList.Add(FileName);
end;
Well, Inherited is missing! So the event is lost. If I put inherited the code, my code works correctly. Thank you, and wake up taazz