griechische Zeichen (Unicode) im Delphi Editor

[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);