[lazarus] Another one bug add: TMemo & TListBox I/O errors?

[Bogdan M.Maryniuck]

Oh... Sorry. TMemo have another one bug: nobody can edit it ;)

Regards,
            M.B.M
_____________________________________________________
----- Original Message -----
From: Bogdan M.Maryniuck
To: lazarus at miraclec.com
Sent: 26 àïðåëÿ 2000 ã. 10:46
Subject: TMemo & TListBox I/O errors?


Dear all.
Here is a real code from Delphi4, which works properly:

procedure TForm1.Button1Click(Sender: TObject);
var
  tt:textfile;
  s:string;
begin
  assignfile(tt,'c:\temp\test.txt'); //very big file
  reset(tt);
  while not eof(tt) do
     begin
       readln(tt,s);
       form1.Memo1.Lines.Add(s);
       form1.ListBox1.Items.Add(s);
     end;
end;

On Lazarus this code is NOT working: tt:textfile -- unknown something;
form1.memo1.add(s) -- freezing the X-Server (on Linux)
form1.ListBox1.Items.Add(s) -- is NOT working at all (or freezing the
X-Server).


So howto... load a some text from an file to some shild like a simple
NOTEPAD?
Thanx.