paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-18 08:10:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: XmlConfig, fix saving default (delete) for enum values

Browse Source
This commit is contained in:
Martin 2024-03-11 21:23:38 +01:00
parent b1847337ca
commit 7fc68aa656
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/laz2_xmlcfg.pas
View File

@ -623,7 +623,7 @@ procedure TXMLConfig.SetDeleteValue(const APath: String; const AValue,
DefValue; const APTypeInfo: PTypeInfo); DefValue; const APTypeInfo: PTypeInfo);
begin begin
if CompareMem(@AValue, @DefValue, SizeOfTypeInfo(APTypeInfo)) then if CompareMem(@AValue, @DefValue, SizeOfTypeInfo(APTypeInfo)) then
DeletePath(APath) DeleteValue(APath)
else else
SetValue(APath, ValueWithTypeInfoToString(AValue, APTypeInfo)); SetValue(APath, ValueWithTypeInfoToString(AValue, APTypeInfo));
end; end;
@ -641,7 +641,7 @@ begin
else t := False; else t := False;
end; end;
if t then if t then
DeletePath(APath) DeleteValue(APath)
else else
SetValue(APath, AValue, APTypeInfo); SetValue(APath, AValue, APTypeInfo);
end; end;