paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-16 00:08:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixes for fpc 2.1.1 xmlcfg

Browse Source 
git-svn-id: trunk@7510 -
This commit is contained in:
vincents 2005-08-16 14:40:10 +00:00
parent e09bf2f62f
commit 81e58be5bc
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/grids.pas
View File

@ -5639,8 +5639,9 @@ var
begin begin
if FileExists(FileName) then DeleteFile(FileName); if FileExists(FileName) then DeleteFile(FileName);
Cfg:=TXMLConfig.Create(FileName); Cfg:=TXMLConfig.Create(nil);
Try Try
Cfg.FileName := FileName;
SaveContent(Cfg); SaveContent(Cfg);
Finally Finally
Cfg.Flush; Cfg.Flush;
@ -5656,8 +5657,9 @@ begin
if not FileExists(FileName) then if not FileExists(FileName) then
raise Exception.Create(rsGridFileDoesNotExists); raise Exception.Create(rsGridFileDoesNotExists);
Cfg:=TXMLConfig.Create(FileName); Cfg:=TXMLConfig.Create(nil);
Try Try
Cfg.Filename := FileName;
Version:=cfg.GetValue('grid/version',-1); Version:=cfg.GetValue('grid/version',-1);
if Version=-1 then raise Exception.Create(rsNotAValidGridFile); if Version=-1 then raise Exception.Create(rsNotAValidGridFile);
BeginUpdate; BeginUpdate;

6
lcl/xmlpropstorage.pas
View File

@ -81,8 +81,10 @@ end;
procedure TCustomXMLPropStorage.StorageNeeded(ReadOnly: Boolean); procedure TCustomXMLPropStorage.StorageNeeded(ReadOnly: Boolean);
begin begin
If (FXML=Nil) then If (FXML=Nil) then begin
FXML:=TPropStorageXMLConfig.Create(GetXMLFileName); FXML:=TPropStorageXMLConfig.Create(nil);
FXML.FileName := GetXMLFileName;
end;
Inc(FCount); Inc(FCount);
//debugln('TCustomXMLPropStorage.StorageNeeded ',dbgsname(FXML),' ',dbgs(FXML),' FCount=',dbgs(FCount)); //debugln('TCustomXMLPropStorage.StorageNeeded ',dbgsname(FXML),' ',dbgs(FXML),' FCount=',dbgs(FCount));
end; end;