paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 21:20:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added Read/Write of int64

Browse Source 
git-svn-id: trunk@25496 -
This commit is contained in:
michael 2013-09-16 08:25:11 +00:00
parent 3ffae89e12
commit 1449fbb9ff
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -116,6 +116,8 @@ type
property Items[Index: integer]: TIniFileSection read GetItem; default;
end;
{ TCustomIniFile }
TCustomIniFile = class
Private
FFileName: string;
@ -131,6 +133,8 @@ type
procedure WriteString(const Section, Ident, Value: String); virtual; abstract;
function ReadInteger(const Section, Ident: string; Default: Longint): Longint; virtual;
procedure WriteInteger(const Section, Ident: string; Value: Longint); virtual;
function ReadInt64(const Section, Ident: string; Default: Int64): Longint; virtual;
procedure WriteInt64(const Section, Ident: string; Value: Int64); virtual;
function ReadBool(const Section, Ident: string; Default: Boolean): Boolean; virtual;
procedure WriteBool(const Section, Ident: string; Value: Boolean); virtual;
function ReadDate(const Section, Ident: string; Default: TDateTime): TDateTime; virtual;
@ -465,6 +469,17 @@ begin
WriteString(Section, Ident, IntToStr(Value));
end;
function TCustomIniFile.ReadInt64(const Section, Ident: string; Default: Int64
): Longint;
begin
Result := StrToInt64Def(ReadString(Section, Ident, ''), Default);
end;
procedure TCustomIniFile.WriteInt64(const Section, Ident: string; Value: Int64);
begin
WriteString(Section, Ident, IntToStr(Value));
end;
function TCustomIniFile.ReadBool(const Section, Ident: string; Default: Boolean): Boolean;
var
s: string;