projects
/
testub10.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Kersm Parser Testfile richtig benannt.
[testub10.git]
/
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
;