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; |
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 |
|
|