scanner/kersm_00.out

   1 method
   2 ident TForm1
   3 .
   4 ident FindString
   5 (
   6 )
   7 var
   8 ident hFile
   9 ;
  10 struct
  11 ident pIniData
  12 ;
  13 ident pData
  14 ;
  15 end
  16 ;
  17 ident hMapping
  18 :=
  19 ident _INVALID_HANDLE_VALUE
  20 ;
  21 ident pIniData
  22 :=
  23 num 13
  24 ;
  25 ident result
  26 :=
  27 num 1
  28 ;
  29 ident filename
  30 :=
  31 ident abc
  32 ;
  33 if
  34 ident FileExists
  35 (
  36 ident aSearchFile
  37 )
  38 then
  39 ident filename
  40 :=
  41 ident aSearchFile
  42 ;
  43 else
  44 return
  45 ;
  46 end
  47 ;
  48 this
  49 .
  50 ident hFile
  51 :=
  52 num a
  53 *
  54 ident pIniData
  55 ;
  56 if
  57 ident hFile
  58 <
  59 ident INVALID_HANDLE_VALUE
  60 then
  61 return
  62 num 2345
  63 ;
  64 if
  65 ident hFile
  66 =
  67 ident INVALID_HANDLE_VALUE
  68 then
  69 return
  70 num 5ba0
  71 ;
  72 while
  73 not
  74 ident result
  75 or
  76 ident pIniData
  77 =
  78 num 12
  79 do
  80 ident pIniData
  81 :=
  82 ident pIniData
  83 -
  84 num 1
  85 ;
  86 end
  87 ;
  88 end
  89 ;