paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Optimization to ReadInteger from Alex Zolotov

Browse Source 
git-svn-id: trunk@7163 -
This commit is contained in:
michael 2007-04-23 19:57:46 +00:00
parent 986dea1cfc
commit 8c00103c8e
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-base/src/inc/inifiles.pp
View File

@ -335,20 +335,9 @@ begin
end;
function TCustomIniFile.ReadInteger(const Section, Ident: string; Default: Longint): Longint;
var
s: string;
begin
Result := Default;
s := ReadString(Section, Ident, '');
if s > '' then try
// convert hex string
if Pos('0X', UpperCase(s)) = 1 then
s := '$' + Copy(s, 3, Length(s) - 2);
Result := StrToInt(s);
except
on EConvertError do
else raise;
end;
// StrToInfDef() supports hex numbers prefixed with '0x' via val()
Result := StrToIntDef(ReadString(Section, Ident, ''), Default);
end;
procedure TCustomIniFile.WriteInteger(const Section, Ident: string; Value: Longint);