GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-09-19 17:56:09 +00:00
Code Issues Projects Releases Wiki Activity

Fixed: Result not defined warning in registry Read functions

Browse Source
This commit is contained in:
Mark van Renswoude 2004-06-08 17:14:17 +00:00
parent 82daac7c02
commit 3f8b9fc77b
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
X2UtSettingsRegistry.pas
View File

@ -174,7 +174,9 @@ begin
Result := FData.ReadBool(AName) Result := FData.ReadBool(AName)
except except
Result := ADefault; Result := ADefault;
end; end
else
Result := ADefault;
end; end;
function TX2RegistrySettings.ReadFloat; function TX2RegistrySettings.ReadFloat;
@ -184,7 +186,9 @@ begin
Result := FData.ReadFloat(AName) Result := FData.ReadFloat(AName)
except except
Result := ADefault; Result := ADefault;
end; end
else
Result := ADefault;
end; end;
function TX2RegistrySettings.ReadInteger; function TX2RegistrySettings.ReadInteger;
@ -194,7 +198,9 @@ begin
Result := FData.ReadInteger(AName) Result := FData.ReadInteger(AName)
except except
Result := ADefault; Result := ADefault;
end; end
else
Result := ADefault;
end; end;
function TX2RegistrySettings.ReadString; function TX2RegistrySettings.ReadString;
@ -204,7 +210,9 @@ begin
Result := FData.ReadString(AName) Result := FData.ReadString(AName)
except except
Result := ADefault; Result := ADefault;
end; end
else
Result := ADefault;
end; end;