GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 17:23:07 +01:00
Code Issues Projects Releases Wiki Activity

Fixed: writing undefined keys always resulted in an empty value

Browse Source
This commit is contained in:
Mark van Renswoude 2004-09-05 14:50:31 +00:00
parent 7ad2a1a8d5
commit 00de61b4a8
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
X2UtSettings.pas
View File

@ -371,11 +371,10 @@ var
begin
pDefine := FFactory.GetDefine(FSection, AName);
if Assigned(pDefine) then
begin
vValue := AValue;
if Assigned(pDefine) then
pDefine.Action(saWrite, FSection, AName, vValue);
end;
InternalWriteBool(AName, vValue);
end;
@ -387,11 +386,10 @@ var
begin
pDefine := FFactory.GetDefine(FSection, AName);
if Assigned(pDefine) then
begin
vValue := AValue;
if Assigned(pDefine) then
pDefine.Action(saWrite, FSection, AName, vValue);
end;
InternalWriteFloat(AName, vValue);
end;
@ -403,11 +401,10 @@ var
begin
pDefine := FFactory.GetDefine(FSection, AName);
if Assigned(pDefine) then
begin
vValue := AValue;
if Assigned(pDefine) then
pDefine.Action(saWrite, FSection, AName, vValue);
end;
InternalWriteInteger(AName, vValue);
end;
@ -419,11 +416,10 @@ var
begin
pDefine := FFactory.GetDefine(FSection, AName);
if Assigned(pDefine) then
begin
vValue := AValue;
if Assigned(pDefine) then
pDefine.Action(saWrite, FSection, AName, vValue);
end;
InternalWriteInteger(AName, vValue);
end;