#228 ---> 'ä'

[Bernd82]

Wie kann ich aus ANSI #228 bzw. aus Char(228) einen String mit einem 'ä' drin machen Ich habe schon verstanden, dass ein AnsiString das 'ä' in zwei Zeichen speichert Arbeitet Freepascal eigentlich mit UTF-8 oder Unicode oder mit was? Ich habe schon herum gesucht, aber nichts richtig gefunden. Bei "AnsiString" steht leider nix - der AnsiString ist aber auch kein Ansicode-String mehr

Danke im Voraus! Gruß Bernd

[theo]

Lazarus arbeitet mit UTF-8 also Unicode.
Erkläre doch bitte in einem erweiterten Zusammenhang, was du erreichen möchtest.
Bei Unicode muss man manchmal gewohnte Vorgehensweisen überdenken.

[Bernd82]

Ich möchte gerne aus einer Zahl, die einem Ansi-Zeichen entspricht (z.B. #228) einen String machen, der das entsprechende UTF-8 Zeichen enthält (z.B. ä):

Code: Alles auswählen

VAR i:Byte;
    s:String;
BEGIN
  i:=228;
  s:=xyz(i);
  IF s='ä' THEN ...super...
END;

Gibt es eine Funktion xyz, die aus einer Ansi-Zahl einen (UTF-8-) String mit dem entsprechenden Zeichen macht?

[Mathias]

Code: Alles auswählen

var
  i: Byte;
  s: string;
begin
  i := 228;
  s := AnsiToUtf8(char(i));
  if s = 'ä' then begin
    Caption := s;
  end;
end;       

[theo]

Der Code von Mathias funktioniert unter Liniux nicht.

Und dich Bernd82 habe ich nach dem erweiterten Zusammenhang gefragt.
Das was du wiederholst, hatte ich schon verstanden, aber nicht, was du in einem Unicode System damit erreichen willst, bzw. was du mit "ANSI" willst.

[Bernd82]

Danke Mathias. Das funktioniert und ist genau was ich brauche!

Hallo theo, ich habe Strings und Chars im Format ANSI und muss sie mit Lazarus z.B. in einem TMemo anzeigen. Warum funktioniert es unter Linux nicht und was müsste ich dort anders machen?

Danke und Gruß Bernd

[theo]

Hallo theo, ich habe Strings und Chars

Woher hast du die? Aus einer Datei?
Oben hast du aber eine Zahl (Byte) welche auf einer bestimmten ANSi Codepage einem Buchstaben 'ä' entspricht.
Lass dir doch nicht alles aus der Nase ziehen. Für eine vernünftige Antwort muss man mehr wissen.

[Socke]

@theo: Rekursive Grüße an dich

Warum funktioniert es unter Linux nicht und was müsste ich dort anders machen?

Lass dir doch nicht alles aus der Nase ziehen. Für eine vernünftige Antwort muss man mehr wissen.

[theo]

@theo: Rekursive Grüße an dich

Warum? Ich möchte einfach zuerst wissen worum es geht. Dann kann ich eine passende Antwort geben.
Ist das zuviel verlangt?
Wenn jemand mit 1-Byte ANSI arbeitet, gibt es ja möglicherweise andere Optimierungsmöglichkeiten.

[Socke]

Für den Fall, das AnsiToUTF8 unter Linux nicht funktioniert, könnte dies ein nicht beabsichtigter Fehler sein, der in einen Bug-Report dokumentiert gehört.
Oder fehlt bei dir der C-WideString-Manager?

[theo]

Offenbar geht es hier weiter:

http://forum.lazarus.freepascal.org/ind ... cseen.html

Ich bin dann mal raus.

[Bernd82]

Unter Linux kann ich wahrscheinlich die Unit LConvEncoding verwenden. Die Funktionen

Code: Alles auswählen

  CP1252ToUTF8(#228);
  ISO_8859_1ToUTF8(#228);

scheinen jeweils ein 'ä' zu erzeugen bzw. einen alten Ansi-String korrekt in einen Lazarus-String umzusetzen. Danke den Postern, die mir hier geholfen haben! Danke an wp, der mir hier geholfen hat.

Gruß Bernd

[theo]

Das hätte ich dir auch sagen können. Sieht aber nicht unbedingt nach einer guten Idee aus.
Na egal.

[Bernd82]

Hallo theo,

was hältst Du für kritisch? Würdest Du es anders machen? Ich habe Strings aus Dateien, die ANSI-codiert sind. Die muss ich in Lazarus verwenden, verarbeiten und ggf. anzeigen. Nachher muss ich sie wahrscheinlich wieder ANSI-codiert in Dateien zurück schreiben (Dateiformat-Kompatibilität).

Gruß Bernd

[Bernd82]

Ich habe mir unter Windows mal alle konvertierten Buchstaben angesehen und bin der Meinung dass

CP1252ToUTF8( )

die bessere Alternative zu sein scheint.

ISO_8859_1ToUTF8( )

hingegen hat eine undefinierte Lücke von Character #128 bis #159. Z.B. das €-Zeichen würde dann fehlen...

Bernd