griechische Zeichen (Unicode) im Delphi Editor

[Bernhard Geyer]

Zitat von Olli:

Zitat von Bernhard Geyer:

Für Άrabĩ habe ich WideChar($0386)+WideString('rab')+WideChar($0129) im Quellcode stehen - und es funktioniert.

Also geht es mit D6 + SP's

const MsgBoxText:WideString = WideChar(1057)+WideChar(1085)+WideChar(1110)+WideChar(1078)+WideChar(1086)+WideChar(1082)+'.txt'; Der hier kompiliert erst garnicht wegen "inkompatiblen Typen".
const MsgBoxText:WideString = WideChar($0386)+WideString('rab')+WideChar($0129); Gibt mir eine wunderbare und nachvollziehbare Exception in einem Delphi-Package während des Kompilierens ...

Beides: D4

Dann ist D4 definitiv zu alt um halbwegs vernünftig mit Unicode zu arbeiten.

[Olli]

Zitat von Bernhard Geyer:

Dann ist D4 definitiv zu alt um halbwegs vernünftig mit Unicode zu arbeiten.

Aber wo ist die Grenze? D5, D6?

[jfheins]

Also so bekomme ich eine MessageBox mit (für mich unverständlichen ) Unicode-Zeichen - ich vermute, das gewünschte Ergebnis

Delphi-Quellcode:

program Test; 
uses
   Windows;

const MsgBoxText: Array[1..6] of WideChar = (#1057,#1085,#1110,#1078,#1086,#1082);

begin
   MessageBoxW(0, @MsgBoxText[1], nil, 0);
end.

Also muss man mit einem Array of WideChar arbeiten, statt einem WideString ... Delphi & Unicode

P.S. const MsgBoxText:WideString = WideChar($0386)+WideString('rab')+WideChar($0129); geht bei mir

[Olli]

Zitat von jfheins:

Also muss man mit einem Array of WideChar arbeiten, statt einem WideString ... Delphi & Unicode

Sehr schöne Lösung. Dann werde ich gleich mal mein Uniconv aufrüsten ... dann unterstützt es diese Syntax auch.

[Union]

Zitat von jfheins:

Also so bekomme ich eine MessageBox mit (für mich unverständlichen ) Unicode-Zeichen - ich vermute, das gewünschte Ergebnis

Delphi-Quellcode:

program Test; 
uses
   Windows;

const MsgBoxText: Array[1..6] of WideChar = (#1057,#1085,#1110,#1078,#1086,#1082);

begin
   MessageBoxW(0, @MsgBoxText[1], nil, 0);
end.

Also muss man mit einem Array of WideChar arbeiten, statt einem WideString ... Delphi & Unicode

P.S. const MsgBoxText:WideString = WideChar($0386)+WideString('rab')+WideChar($0129); geht bei mir

Damit es fehlerfrei funktioniert muss es heissen (Nullbyte am Ende!):
const MsgBoxText: Array[1..7] of WideChar = (#1057,#1085,#1110,#1078,#1086,#1082,#0);

[Olli]

Zitat von Union:

Damit es fehlerfrei funktioniert muss es heissen (Nullbyte am Ende!):
const MsgBoxText: Array[1..7] of WideChar = (#1057,#1085,#1110,#1078,#1086,#1082,#0);

Stimmt prinzipiell. Ist aber glaube ich nur an Paragraphen oder DWORD-Grenzen relevant, weil ansonsten immer noch ne 0 dranhängt. Außerdem ist es irrelevant, weil noch ein Cast stattfindet (bei MessageBox) - Delphi sorgt also dafür, daß es nullterminiert ist. (Zumindest in unserem Fall).

Aber recht hast du, sicher ist sicher

[Union]

Zitat von Olli:

Zitat von Union:

Damit es fehlerfrei funktioniert muss es heissen (Nullbyte am Ende!):
const MsgBoxText: Array[1..7] of WideChar = (#1057,#1085,#1110,#1078,#1086,#1082,#0);

Stimmt prinzipiell. Ist aber glaube ich nur an Paragraphen oder DWORD-Grenzen relevant, weil ansonsten immer noch ne 0 dranhängt. Außerdem ist es irrelevant, weil noch ein Cast stattfindet (bei MessageBox) - Delphi sorgt also dafür, daß es nullterminiert ist. (Zumindest in unserem Fall).

Aber recht hast du, sicher ist sicher

Bei mir gab es OHNE #0 nämlich Сніжок.txt säep98füuj afölkj aösfdkl ösldfkj etc. Es hängt vom momentanen Zustand und der Fragmentierung usw. ab, was passiert. Es klappt auch häufiger dass man einfach StrPas wegläßt... und mal wieder nicht.

[Olli]

Zitat von Union:

Bei mir gab es OHNE #0 nämlich Сніжок.txt säep98füuj afölkj aösfdkl ösldfkj etc. Es hängt vom momentanen Zustand und der Fragmentierung usw. ab, was passiert. Es klappt auch häufiger dass man einfach StrPas wegläßt... und mal wieder nicht.

Funktioniert es bei dir ohne das @ und die Referenzierung des Elements? Dann müßte definitiv ein impliziter Cast passieren.
Irgendwie gefällt mir C++ immer besser ...