Unicode Problem mit Lazarus/Fpc

[cookie22]

Hallo,

gibt es für Lazarus sowas wie WideStrings.pas und WideStringUtils.pas aus Delphi?

Ich muss aus einer UTF-16 kodierten Datei Strings auslesen und diese dann per InsertMenuW dann in ein Menü einfügen. Leider bekomme ich im Menü nur Müll angezeigt und nicht meine chinesischen Zeichen. Jemand ne Idee?

[Bernhard Geyer]

Verwendet Lazarus/FPC nicht primär UTF-8?

[himitsu]

Darum möchte er ja das UTF-16 konvertieren

Irgendwie/-wo wird das bestimmt möglich sein. (kann mir nicht vorstellen, daß die sowas vergessen haben)

[Bernhard Geyer]

Die Frage ist erstmal: Wird die Textdati korrekt ausgelesen?

Dann schau mal ob du eine UTF8ToWideString-Funktion findest.

[cookie22]

Zitat von Bernhard Geyer:

Die Frage ist erstmal: Wird die Textdati korrekt ausgelesen?

Dann schau mal ob du eine UTF8ToWideString-Funktion findest.

Was bringt mir UTF8ToWideString, ich muss UTF-16 lesen und das selbe an die API Funktion weiter geben.

Mir ist nicht mal klar wie ich die Datei lesen soll ohne das ich Datenmüll bekomme.

[JamesTKirk]

Zitat von Bernhard Geyer:

Verwendet Lazarus/FPC nicht primär UTF-8?

Lazarus verwendet UTF-8.
Free Pascal verwendet das Ansi System Encoding (unter Deutschem Windows meist CP1242 und unter Linux meist UTF-8).

Zitat von cookie22:

Hallo,

gibt es für Lazarus sowas wie WideStrings.pas und WideStringUtils.pas aus Delphi?

Ich muss aus einer UTF-16 kodierten Datei Strings auslesen und diese dann per InsertMenuW dann in ein Menü einfügen. Leider bekomme ich im Menü nur Müll angezeigt und nicht meine chinesischen Zeichen. Jemand ne Idee?

Wie liest du die Datei denn aus?

Wenn du am Ende auf jeden Fall einen WideString hast, dann machst du z. B. für ein MenuItem einfach folgendes:

Delphi-Quellcode:

  // alle GUI Elemente in Lazarus verwenden UTF-8, also einen WideString in
  // UTF-8 umkodieren
  item.Caption := UTF8Decode(MeinWideString);
  // für einen Ansi String funktioniert das übrigens ähnlich
  item.Caption := AnsiToUTF8(MeinAnsiString);
  // oder
  item.Caption := SysToUTF8(MeinAnsiString);

Nebenbei: Du könntest an Stelle von WideString auch UnicodeString verwenden (ab Free Pascal 2.4.0). Dieser hat im Gegensatz zu WideString eine Referenzzählung und Copy-On—Write Funktionalität analog zu AnsiString (aka String).

Gruß,
Sven

[himitsu]

Abgesehn von den Surrogate-Pairs entspricht kann man ganz einfach WideStringToUtf8 nutzen.

[cookie22]

Zitat:

Wie liest du die Datei denn aus?

Das ist hier die frage die ich mir stellen, bis jetzt irgendwie gar nicht.

Die Datei ist im Ini-Format, darum meine Frage nach WideStrings. Da hätt ich einfach mit LoadfromFile die Datei in eine WideString-Liste geladen und mir meine Strings rausgepickt. Gib es da nichts ähnliches?

[himitsu]

Du kannst es notfalls über einen Stream in einen WideString laden, dann nach Ansi oder UTF-8 umwandeln und zum Schluß in eine Stringliste.


Aber warum nutzt du denn nicht direkt die WinAPI (davon die Wide-Version nutzen), bzw. kennt FPC/Lazarus denn kein TIniFile, welches diese API nutzt?

[cookie22]

Die Ini-Datei ist im UTF-16 Format, darum gibt es mit TIniFile nur Datenmüll.