2010-04-09 16:02:20 -04:00
|
|
|
program new;
|
|
|
|
begin
|
2010-04-16 11:04:50 -04:00
|
|
|
GetSettingValueDef('Testme/wat','Yo wat');
|
|
|
|
GetSettingValueDef('Testme/wat2','Yo wat2');
|
|
|
|
Writeln(GetSettingValue('Testme/wat'));
|
|
|
|
if KeyIsDirectory('Testme') then
|
|
|
|
Writeln('Testme has atleast one child!');
|
|
|
|
if KeyIsSetting('Testme/wat') then
|
|
|
|
writeln('wat exists in the parent Testme!');
|
|
|
|
DeleteSetting('Testme/wat');
|
|
|
|
Writeln(GetSettingValue('Testme/wat2'));
|
|
|
|
Writeln(GetSettingValue('Testme/wat'));
|
|
|
|
writeln(DeleteSubSettings('Testme'));
|
|
|
|
if KeyIsSetting('Testme') then
|
|
|
|
writeln('Testme is a key now!');
|
2010-04-09 16:02:20 -04:00
|
|
|
end.
|