parser/kersm_00.2

   1 method TForm1.FindString()
   2 var hFile;
   3
   4 struct
   5     pIniData;
   6     pData;
   7 end;
   8
   9   /* Initalize Data */
  10   hMapping  := _INVALID_HANDLE_VALUE;
  11   pIniData     := 0x13;
  12
  13   result := 1;
  14
  15
  16       /* Search File in Workspace... */
  17       filename := abc;
  18       if FileExists(aSearchFile) then
  19         filename := aSearchFile;
  20       else
  21         return;
  22       end;
  23
  24       /* CreateFileHandle... */
  25       this.hFile := 10 * pIniData;
  26
  27
  28
  29       if hFile < INVALID_HANDLE_VALUE then
  30         return 0x2345;
  31
  32       if hFile = INVALID_HANDLE_VALUE then
  33         return 23456;
  34
  35
  36       while not result or pIniData = 0x12 do
  37
  38         pIniData := pIniData - 1;
  39       end;
  40 end;