about Export to text problem

bjzhq

when i export the report to text, always wait long time, then i have to kill it.
but i change the position of the memoview in the designer, quickly OK.

bjzhq

I find the pas in some forum, it say code is below:

while Round(m) < Round(curx) do
begin
if (RX.Count <= mi) then break; //need this condition
m := m + PObjCell(RX[mi]).Value - PObjCell(RX[mi - 1]).Value;
inc(mi);
end;

while Round(m) < Round(cury) do
begin
if (RY.Count <= mi) then break; //need this condition
m := m + PObjCell(RY[mi]).Value - PObjCell(RY[mi - 1]).Value;
inc(mi);
end;

I do not know whether it is right