FindNext Event
This event retrieves the next entry of a custom file listing.
Syntax
type TFindNextEvent = procedure ( Sender: TObject; ConnectionID: Int64; const Handle: String; var OperationStatus: Integer ) of Object;
property OnFindNext: TFindNextEvent read FOnFindNext write FOnFindNext;
Remarks
This event is fired repeatedly after FindFirst to retrieve the directory contents entry-by-entry. Please see the FindFirst topic for more details about implementing a handler of this event.
Remember to set OperationStatus to ostEOF when there are no more entries left to close the listing operation. If there are more entries to pass, set it to ostOK. Other possible values are given in the table below:
ostOk | 1 | |
ostNoSuchFile | 2 | |
ostAccessDenied | 3 | |
ostWriteProtect | 4 | |
ostUnsupported | 5 | |
ostInvalidParameter | 6 | |
ostEOF | 7 |