作者：hxfwsk
email: hxfwsk@hotmail.com
日期：2001-6-18 14:55:40
 在RichEdit中如何將光標移動到指定的行？(轉載)
void __fastcall TRichEditTerm::SetCursor(int ARow, int ACol) 
{//ARow and ACol start from 0 
  int i,j,iSelStart; 
  AnsiString as; 

  if(ARow<0) 
    ARow=0; 
  if(ACol<0) 
    ACol=0; 

  iSelStart=0; 
  if(ARow>Lines->Count-1) 
    {//Require add lines 
    j=ARow-Lines->Count+1; 
    for(i=1;i<=j;i++) 
      Lines->Add(""); 
    for(i=0;i<ARow;i++) 
      iSelStart+=Lines->Strings[i].Length()+2; 
    i=Text.Length(); 
    } 
  else if(ARow<=Lines->Count-1) 
    { 
    for(i=0;i<ARow;i++) 
      iSelStart+=Lines->Strings[i].Length()+2; 
    } 

  j=Lines->Strings[ARow].Length(); 
  if(j<ACol) 
    { 
    as=Lines->Strings[ARow]; 
    for(i=0;i<ACol-j;i++) 
      as.Insert(" ",j+1); 
    Lines->Strings[ARow]=as; 
    } 
  SelStart=iSelStart+ACol; 
  SendMessage(Handle,EM_SCROLLCARET,0,0); 
}