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: wrong version committed

Browse Source
This commit is contained in:
Mark van Renswoude 2004-09-05 14:04:41 +00:00
parent 330ba47f5e
commit ccda940d01
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
X2UtSettings.pas
View File

@ -206,18 +206,16 @@ begin
pDefine := FFactory.GetDefine(FSection, AName); pDefine := FFactory.GetDefine(FSection, AName);
if not InternalReadBool(AName, Result) then if not InternalReadBool(AName, Result) then
begin
if Assigned(pDefine) then if Assigned(pDefine) then
Result := pDefine.Value Result := pDefine.Value
else else
raise EX2SettingsUndefined.CreateFmt(RSUndefined, [AName]) raise EX2SettingsUndefined.CreateFmt(RSUndefined, [AName])
if Assigned(pDefine) then if Assigned(pDefine) then
begin begin
vValue := Result; vValue := Result;
pDefine.Action(saRead, FSection, AName, vValue); pDefine.Action(saRead, FSection, AName, vValue);
Result := vValue; Result := vValue;
end;
end; end;
end; end;