Главная страница | назад





Article #17358: Using FindFirst to search for files.

 Question and Answer Database

FAQ2358D.txt   Using FindFirst to search for files.
Category   :Windows API
Platform    :All
Product    :All 32 bit  

Question:
How do I handle the memory loss when I use the example for
FindFirst to search for files?


Answer:
You need to qualify calls to FindFirst, FindNext, and FindClose to
include the SysUtils unit.

Example:

begin
    Result := SysUtils.FindFirst(Path, Attr, SearchRec);
    while Result = 0 do
    begin
      ProcessSearchRec(SearchRec);
      Result :=  SysUtils.FindNext(SearchRec);
    end;
     SysUtils.FindClose(SearchRec);
end;

7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99