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

lazdelphi: do not store default values

Browse Source
This commit is contained in:
mattias 2023-06-24 12:29:22 +02:00
parent 45ded69b77
commit 4289e7ad30
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/compilers/delphi/delphitool.pas
View File

@ -577,12 +577,18 @@ end;
procedure TLazProjectDelphiOptions.SetADO(AValue: String);
begin
CustomData[pKeyAdditionalOptions]:=aValue
if AValue<>'' then
CustomData[pKeyAdditionalOptions]:=aValue
else
CustomData.Remove(pKeyAdditionalOptions);
end;
procedure TLazProjectDelphiOptions.SetDCF(AValue: Boolean);
begin
CustomData[pKeyGenConfigFile]:=IntToStr(Ord(aValue));
if AValue then
CustomData[pKeyGenConfigFile]:=IntToStr(Ord(aValue))
else
CustomData.Remove(pKeyGenConfigFile);
end;