[fpc-pascal] FindFirst...FindClose

[Jonas Maebe]

On 18 May 2009, at 17:25, Michael Van Canneyt wrote:

> On Mon, 18 May 2009, Jonas Maebe wrote:
>
>> On 18 May 2009, at 16:39, Leonardo M. Ramé wrote:
>>
>>> By reading the FPC.RTL documentation, I found it says that  
>>> FindClose must be
>>> used outside the if, as follows:
>>>
>>> if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
>>> begin
>>> repeat
>>>  ...
>>>  ...
>>> until FindNext(sr) <> 0;
>>> end;
>>> FindClose(sr);
>>>
>>> Can be this the cause of the problem in my application?.
>>
>> Yes.
>
> Huh ? Since when is this requirement ?

Since as long as I can remember. It at least predates the switch to  
svn (revision 1 of both rtl/unix/dos.pp and of rtl/unix/sysutils.pp  
requires it).


Jonas