1
0
mirror of synced 2024-12-22 09:13:07 +01:00

Fixed: Result not defined warning in registry Read functions

This commit is contained in:
Mark van Renswoude 2004-06-08 17:14:17 +00:00
parent 82daac7c02
commit 3f8b9fc77b

View File

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