ReadString aus TIniFile fehlerhaft

[himitsu]

Zitat von Moony:

Die Kodierung der Datei ist UTF8 ohne BOM.

Und woher soll dann die Auslesefunktion das wissen?

Der Standard ist nunmal ANSI, also wird auch als ANSI ausgelesen.



Zu dem Vorschlag von DeddyH:
Aufpassen, denn dein Delphi 2010 ließt es als ANSI aus, konvertiert es nach Unicode (ANSI>Unicode) und Utf8Decode würde das Unicode jetzt als RawString (hoffentlich zufällig mit einer Umkodierung nach ANSI) übernehen, versuchen als UTF-8 zu interpretieren und dann nach versuchen nach Unicode umzuwandeln.


Ich weiß auch garnicht, ob UTF-8 von der verwendeten WinAPI, welche in TIniFile gekapselt ist, überhaupt unterstützt wird.


Verwende stattdessen z.B. TMemIniFile und gib als Encoding das UTF-8 explizit an.
TMemIniFile arbeitet intern mit einer TStringList, welche es auch ohne BOM uslesen und konvertieren kann, danach werden alle Leseoperationen intern über diese StringList abgehandelt.

[Moony]

Ok, dann versuche ich es mit Tmeminifile und melde mich zurück.

[Moony]

So, habe es versucht, aber ich besitze keine Encoding-Eigenschaft. Ich arbeite bei diesem Projekt mit Delphi 2007.

[Bjoerk]

Zitat von Moony:

So, habe es versucht, aber ich besitze keine Encoding-Eigenschaft. Ich arbeite bei diesem Projekt mit Delphi 2007.

Dann ist string ein Alias auf Ansistring, egal ob TInfile oder TMemInifile.
Probier mal AnsiToUtf8 o. ä..

[DeddyH]

Das kann man aber auch sagen, wenn im Profil D2010 angegeben ist. Neuer Versuch:

Delphi-Quellcode:

var
  s: UTF8String;
begin
  ...
  s := UTF8String(Ini.ReadString(...));
  ShowMessage(UTF8ToAnsi(s));

Ob der explizite Typecast etwas bringt, weiß ich nicht, schaden kann es aber wohl kaum. In einem kurzen Test wurde zumindest bei mir "Gültig bis" korrekt ausgegeben.

[Moony]

Danke, das funktioniert....

Habe jetzt lediglich UTF8ToAnsi an eine Variable des Typs AnsiString übergeben und es klappt.

[himitsu]

Vor D2009 könnte man DeddyH's Variante nutzen, aber wie gesagt, ab D2009 mußt du dann aufpassen, also wenn du mal hochportierst.
Der Encoding-Parameter wurde erst mit Delphi 2009 und Unicode eingeführt.

Oder du verwendest fremde INI-Implementationen. (da TIniFile noch nie "schnell" war und bei größeren INIs gerne mal versagte, haben schon einige alternativen dafür entwickelt).


Du könntest die Datei auch erstmal so einlesen (z.B. über eine TStringList), über UTF8Decode umcodieren und dann mittels TMemIniFile.SetStrings laden.