paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some fcl examples compile again after changes

Browse Source 
git-svn-id: trunk@1594 -
This commit is contained in:
tom_at_work 2005-10-25 20:19:18 +00:00
parent 5520442fc4
commit efa68a1275
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/net/tests/rpccli.pp
View File

@ -1,6 +1,6 @@
program RPCCli; program RPCCli;
uses SysUtils, Classes, fpAsync, XMLRPC; uses SysUtils, Classes, fpAsync, xmlrpc;
type type

6
fcl/tests/cfgtest.pp
View File

@ -13,7 +13,8 @@ begin
WriteLn('Writing a sample XML configuration to "testcfg.xml"...'); WriteLn('Writing a sample XML configuration to "testcfg.xml"...');
cfg := TXMLConfig.Create('testcfg.xml'); cfg := TXMLConfig.Create(nil);
cfg.Filename := 'testcfg.xml';
cfg.SetValue('cfgtest/MainWindow/Constraints/Width', 600); cfg.SetValue('cfgtest/MainWindow/Constraints/Width', 600);
cfg.SetValue('cfgtest/MainWindow/Constraints/Height', 400); cfg.SetValue('cfgtest/MainWindow/Constraints/Height', 400);
cfg.SetValue('cfgtest/MainWindow/Caption', 'TXMLConfig Test'); cfg.SetValue('cfgtest/MainWindow/Caption', 'TXMLConfig Test');
@ -23,7 +24,8 @@ begin
WriteLn('Ok; now I''ll try to read back all values...'); WriteLn('Ok; now I''ll try to read back all values...');
cfg := TXMLConfig.Create('testcfg.xml'); cfg := TXMLConfig.Create(nil);
cfg.Filename := 'testcfg.xml';
i := cfg.GetValue('cfgtest/MainWindow/Constraints/Width', 0); i := cfg.GetValue('cfgtest/MainWindow/Constraints/Width', 0);
if i <> 600 then if i <> 600 then