Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.456 Beiträge
 
Delphi 12 Athens
 
#17

Re: Klasse für sehr große Ini-Dateien + Unicode gesucht

  Alt 13. Jun 2008, 11:03
'ne Erweiterung für TBigIniFile könnte z.B. so aussehn.
(ein ReadAnsiString und WriteAnsiString gibt's in TBigIniFile ja auch schon)
Delphi-Quellcode:
type
  TWideBigIniFile = class(TBigIniFile)
  public
    function ReadWideString(const aSection, aKey: string; const aDefault: WideString): WideString; virtual;
    procedure WriteWideString(const aSection, aKey: string; const aValue: WideString); virtual;
  end;

function TWideBigIniFile.ReadWideString(const aSection, aKey: string; const aDefault: WideString): WideString;
begin
  Result := Utf8Decode(ReadString(aSection, aKey, Utf8Encode(aDefault)));
end;

procedure TWideBigIniFile.WriteWideString(const aSection, aKey: string; const aValue: WideString);
begin
  WriteString(aSection, aKey, Utf8Encode(aValue)));
end;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat