Delphi 7, Int64 und Ini.ReadInteger

[DeddyH]

Oder mit der erwähnten Ableitung:

Delphi-Quellcode:

type
  TIniFile = class(IniFiles.TIniFile)
  public
    procedure WriteInt64(const Section, Ident: string; Value: int64);
    function ReadInt64(const Section, Ident: string; DefaultValue: int64): int64;
  end;

{ TIniFile }

function TIniFile.ReadInt64(const Section, Ident: string;
  DefaultValue: int64): int64;
var
  HexString: string;
begin
  HexString := ReadString(Section, Ident, '');
  Result := StrToIntDef(HexString, DefaultValue);
end;

procedure TIniFile.WriteInt64(const Section, Ident: string; Value: int64);
var
  HexString: string;
begin
  HexString := '$' + IntToHex(Value, 16);
  WriteString(Section, Ident, HexString);
end;