73 |
TjekUrls : String; |
TjekUrls : String; |
74 |
TestFunktionen : String; |
TestFunktionen : String; |
75 |
|
|
76 |
|
LabelStor : integer; |
77 |
|
|
78 |
|
|
79 |
|
|
80 |
procedure ReadFromInifile( iniFile: TIniFile); |
procedure ReadFromInifile( iniFile: TIniFile); |
133 |
TjekUrls := ReadString('Settings','TjekUrls','2'); |
TjekUrls := ReadString('Settings','TjekUrls','2'); |
134 |
|
|
135 |
|
|
136 |
LabelType := ReadInteger('Settings','LabelType',1); |
LabelType := ReadInteger('Settings','LabelType', 1); |
137 |
|
|
138 |
|
LabelStor := ReadInteger('Settings','LabelStor', 0); |
139 |
|
|
140 |
if LabelType = 0 then |
if LabelType = 0 then |
141 |
begin |
begin |