unit1.cpp

有视频

//---------------------------------------------------------------------------
#include <vcl.h>
#include <stdlib.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SetRowCol(void)
{
  TPoint po;
  int xx,yy;
  po=Memo1->CaretPos;
  xx=po.x+1;
  yy=po.y+1;
  Label1->Caption="行："+IntToStr(yy);
  Label2->Caption="列："+IntToStr(xx);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int ii,row,col,bg,ww;
  row=atoi(Edit1->Text.c_str());
  col=atoi(Edit2->Text.c_str());
  bg=0;ii=0;
  for(ii=1;ii<row;ii++)
  {
    bg=bg+Memo1->Lines->Strings[ii-1].Length()+2;
  }

  ww=Memo1->Lines->Strings[row-1].Length();
  if(col>ww)col=ww+1;

  bg=bg+col-1;
  Memo1->SelStart=bg;
  Memo1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1Click(TObject *Sender)
{
  SetRowCol();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
  SetRowCol();
}
//---------------------------------------------------------------------------