paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +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; end;
function TCustomIniFile.ReadInteger(const Section, Ident: string; Default: Longint): Longint; function TCustomIniFile.ReadInteger(const Section, Ident: string; Default: Longint): Longint;
var
s: string;
begin begin
Result := Default; // StrToInfDef() supports hex numbers prefixed with '0x' via val()
s := ReadString(Section, Ident, ''); Result := StrToIntDef(ReadString(Section, Ident, ''), Default);
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;
end; end;
procedure TCustomIniFile.WriteInteger(const Section, Ident: string; Value: Longint); procedure TCustomIniFile.WriteInteger(const Section, Ident: string; Value: Longint);