1
0
mirror of synced 2024-12-22 17:23:07 +01:00

Fixed: writing undefined keys always resulted in an empty value

This commit is contained in:
Mark van Renswoude 2004-09-05 14:50:31 +00:00
parent 7ad2a1a8d5
commit 00de61b4a8

View File

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