Sonderzeichen in TEdits (Charset?)

[shmia]

Bei meinem Delphi 5 funktioniert das auf Abhieb nur durch Umstellen von Font.Charset im Objektinspektor.
Natürlich muss dein Windows auch ClearType- oder Truetype-Fonts installiert haben, bei denen die russischen Zeichen enthalten sind.
Die Codepage 1251 Cyrilic wird nicht von jedem Font unterstützt.

[uligerhardt]

Zitat von shmia:

Bei meinem Delphi 5 funktioniert das auf Abhieb nur durch Umstellen von Font.Charset im Objektinspektor.
Natürlich muss dein Windows auch ClearType- oder Truetype-Fonts installiert haben, bei denen die russischen Zeichen enthalten sind.
Die Codepage 1251 Cyrilic wird nicht von jedem Font unterstützt.

Im konkreten Fall ist der Font in beiden Fällen Courier New.
Kannst du bitte mal dein Projekt anhängen, am besten Quelltext + Exe, damit ich es mal auf meinem System laufen lassen kann?

[shmia]

Demo-Programm im Anhang.
Courier New unterstützt die Codepages auf meinem System (Windows XP SP3).

[uligerhardt]

Zitat von shmia:

Demo-Programm im Anhang.

Danke!
Ich hab's jetzt rausgefunden - es ist das Theming.
Ein XPMan ins uses deines Testprogramms und bumm - nix mehr Kyrillisch.
Na, mal schauen, ob man da was machen kann...

Update: Ich bin nicht der Einzige mit dem Problem:

http://groups.google.de/group/borlan...59cb953c3e502/
http://groups.google.de/group/borlan...11b795ea52aee/

Eine Lösung habe ich aber noch nicht gefunden.

[Bernhard Geyer]

Wenn du kein Win9x/ME benötigst nimm die letzte freie Version der TNTWare-Kompos (oder die neuen von TMS) und schmeiß die Codepage/Charset-Krücke weg.

[uligerhardt]

Zitat von Bernhard Geyer:

Wenn du kein Win9x/ME benötigst nimm die letzte freie Version der TNTWare-Kompos (oder die neuen von TMS) und schmeiß die Codepage/Charset-Krücke weg.

Da hätte ich mal ne Frage - hab leider kein Delphi hier, um's auszuprobieren: Der Benutzer kann dann in ein TNT-Edit das komplette Unicode-Spektrum eingeben, sagen wir auf einem russischen System auch griechische oder türkische (chinesische? arabische?) Zeichen, richtig? Was passiert dann, wenn ich die ohne irgendwelche Umcodierungen direkt als AnsiString (genauer gesagt als string[N]) speichere, also:

Delphi-Quellcode:

type
  TMyStoredRecord = record
    EinString: string[50];
  end;
var
  rec: TMyStoredRecord;
begin
  rec.EinString := TntEdit1.Text;
...

Das ist ja wohl verlustbehaftet. Kann mas das TNT-Edit irgendwie veranlassen, nur "passende" Eingaben zuzulassen? Und wenn wir schon dabei sind: Wie wäre das mit einem Unicode-VCL-TEdit?

[mkinzler]

Der Inhalt solcher Komponenten ist dann WideString.

[himitsu]

Zitat von uligerhardt:

Der Benutzer kann dann in ein TNT-Edit das komplette Unicode-Spektrum eingeben, sagen wir auf einem russischen System auch griechische oder türkische (chinesische? arabische?) Zeichen, richtig?

Ja

Zitat von uligerhardt:

Was passiert dann, wenn ich die ohne irgendwelche Umcodierungen direkt als AnsiString (genauer gesagt als string[N]) speichere,

Wenn du es nicht selber umkodierst, dann wird die CodePage des Systems zum Speichern verwendet.
Also auf einem russischen System wird nur der rusische Teil in ANSI gespeichert.
Ließt man nun diesen AnsiString in einem anderem System aus, so wird da ebenfalls die SystemCodePage verwendet und es wird falsch ausgelesen.

Also lieber WideString nutzen, oder

Delphi-Quellcode:

TMyStoredRecord = record
  EinString: array[1..50] of WideChar;
end;

[p80286]

Zitat von shmia:

Die Codepage 1251 Cyrilic wird nicht von jedem Font unterstützt.

Wahrscheinlich klemmt es hier.

Ohne den richtigen Font bist mit der Codepage ziemlich verloren.

Gruß
K-H

[uligerhardt]

Zitat von p80286:

Zitat von shmia:

Die Codepage 1251 Cyrilic wird nicht von jedem Font unterstützt.

Wahrscheinlich klemmt es hier.

Ohne den richtigen Font bist mit der Codepage ziemlich verloren.

Wenn ich im Debugger nichts übersehen habe, ist der Font sowohl im funktionierenden als auch im nichtfunktionierenden Fall Courier New, und das Charset in beiden Fällen 204 aka RUSSIAN_CHARSET.