1 method TForm1.FindString()
10 hMapping := _INVALID_HANDLE_VALUE;
16 /* Search File in Workspace... */
18 if FileExists(aSearchFile) then
19 filename := aSearchFile;
24 /* CreateFileHandle... */
25 this.hFile := 10 * pIniData;
29 if hFile < INVALID_HANDLE_VALUE then
32 if hFile = INVALID_HANDLE_VALUE then
36 while not result or pIniData = 0x12 do
38 pIniData := pIniData - 1;