/[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 3076 by torben, Fri Sep 4 12:39:33 2015 UTC revision 3077 by torben, Thu Jul 28 21:25:58 2016 UTC
# Line 36  type Line 36  type
36      YPosSmskode : integer;      YPosSmskode : integer;
37      FontSizeSmskode : integer;      FontSizeSmskode : integer;
38    
39        BaseURL : string;
40    
41      procedure ReadFromInifile( iniFile: TIniFile);      procedure ReadFromInifile( iniFile: TIniFile);
42    
43    end;    end;
# Line 45  implementation Line 47  implementation
47    
48  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
49  begin  begin
50    
51      // ToDO : Omskriv alle URL referncer til at basere sig på BaseURL
52      BaseURL := 'http://omdeling.info/webservices';
53    
54    with iniFile do    with iniFile do
55    begin    begin
56    
Legend:
Removed from v.3076  
changed lines
  Added in v.3077
  ViewVC Help
Powered by ViewVC 1.1.20