How to read file with international text(unicode) format

[PlutoDev]

I tried with bellow source, but failed....

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
ch : char;
str : string;
begin
AssignFile(F, 'test.sql'); //file generate from (enteprice manager sql -> generate script)
reset(F); //Open F

while not EOF(F) do //Keeps reading each character until EOF (End Of File)
begin
read(F, ch);
str := str + ch;
end;

CloseFile(F); //Closes F
memo1.Text := (str); //Places the read text in variable str in memo2
end;

so, how to read the file with international text(unicode) format.

thanks

 

[Glenn9999]

Use WideString;

http://www.delphibasics.co.uk/RTL.asp?Name=WideString

I'm waiting for the white paper entitled "Finding Employment in the Era of Occupational Irrelevancy