Topic: Bug ? TMemo Not Support UTF8
How to Fix script load text for support utf8 !
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
opendialog : topendialog ;
begin
opendialog := topendialog.create(form1) ;
if opendialog.execute then
form1.Memo1.Lines.loadfromfile(opendialog.filename);
opendialog.free
end;
begin
end.
Text Example(jp utf8.txt)
ももたろう Momotarou
Momotarou, the Peach Boy
ISBN4-591-03701-0 C8739 P1000E
Translation by Tom Ray and Hiromi Mochizuki (hiromi@hip.atr.co.jp) ももたろう momotarou
page 2
むかし、 むかし、 ある ところ に
おじいさん と おばあさん が いました。
おじいさん が 山(やま) へ 木(き) を きり に いけば、
おばあさん は 川(かわ) へ せんたく に でかけます。
「おじいさん、 はよう もどって きなされ。」
「おばあさん も き を つけて な。」
まい日(にち) やさしく いい あって でかけます。
Easy For Beginner Student For Me