/[projects]/dao/DelphiScanner/Configuration.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Configuration.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3090 by torben, Mon Aug 15 19:26:48 2016 UTC revision 3091 by torben, Tue Aug 16 21:06:46 2016 UTC
# Line 73  type Line 73  type
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);
# Line 131  begin Line 133  begin
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
Legend:
Removed from v.3090  
changed lines
  Added in v.3091
  ViewVC Help
Powered by ViewVC 1.1.20