Memo - maior que 64k

Top  Previous  Next

procedure TForm1.LerMemo;

var 

   t:textfile; 

   l:string; 

   lines:tstrings;

begin

  memo1.lines.clear;

  assignfile(t,'c:\temp\ie4.txt');

  lines:=tstringlist.create;

  reset(t);

  screen.cursor:=crhourglass;

  

  while not eof(t) do 

  begin

    readln(t,l);

    lines.add(l);

  end;

 

  closefile(t);

  memo1.lines.assign(lines);

  screen.cursor:=crdefault;

  lines.free;

end;