TMemo.Lines.Strings[i] bug with unicode (utf8) character

[Slawek]

Hi,

If file utf8.txt contains text with utf8 characters (i.e. polish national
characters),  then Memo1.Lines.Strings returns wrong value.

Code: [Select]

var  str: String;
        i: Integer;
begin
  Memo1.Clear;
  Memo2.Clear;
  Memo1.Lines.LoadFromFile('utf8.txt');
  for i:=0 to Memo1.Lines.Count-1 do begin
    str := Memo1.Lines.Strings[i];   //wrong value
    Memo2.Lines.Add(str);
  end;
end;

Slawek

[antonio]

On Windows TMemo is a common control, a control provided by Windows.

[Slawek]

I use Linux system. Fedora 8.
Lazarus 0.9.25 beta, SVN Revision: 13579