about Export to text problem

Comments

• bjzhq

  March 2006 edited March 2006

  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