UTF8Decode(TStringList.Text) etc. ?
Ich gehe einfach einmal davon aus, dass wenn jemand die Zeichencodierung für eine Ausgabe in einem Delphi-Programm benötigt, auch Möglichkeiten zur Eingabe vorhanden sein dürften. Polondo sprach ja direkt von den TntUnicode Controls.
Wenn alle Stränge reißen
Delphi-Quellcode:
hndl:=CreateWindowExW(WS_EX_CLIENTEDGE, '
Edit',
Nil, WS_CHILD
or WS_VISIBLE, 10, 10,
121, 21,
Handle, 0, HInstance,
Nil);
// Ctrl+V
len:=GetWindowTextLengthW(hndl);
SetLength(wstr, len);
GetWindowTextW(hndl, PWChar(wstr), len);
tut es auch.