paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02: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);
begin
if CompareMem(@AValue, @DefValue, SizeOfTypeInfo(APTypeInfo)) then
DeletePath(APath)
DeleteValue(APath)
else
SetValue(APath, ValueWithTypeInfoToString(AValue, APTypeInfo));
end;
@ -641,7 +641,7 @@ begin
else t := False;
end;
if t then
DeletePath(APath)
DeleteValue(APath)
else
SetValue(APath, AValue, APTypeInfo);
end;