delphi常用

1. 给指定位置编号CTRL+SHIFT+数字键
2. 跳转到指定编号位置CTRL+数字键
3. 函数快捷定义CTRL+SHIFT+C
4. pos函数用法：取出子串在父串第一次出现的位置，他们属于StdCtrls模块，例如：

procedure TForm1.Button1Click(Sender: TObject);
var
  strModel : string;
  strPos : Integer;
begin
  strModel := Copy(Trim(self.Edit1.Text), 2, 6);	// 截取，同pos()函数一样，都是从1开始
  self.Label1.Caption := strModel;
  strPos := Pos('11', 'f1ff2211a');		// 返回7,如果子串在父串没有出现，则返回0
  ShowMessage(IntToStr(strPos));		// 把整型转字符型输出
end;

5. InPutBox()函数的用法：接收从对话框输入的信息，返回值为字符串

InPutBox(对话框标题，信息内容，默认值)

curScore := StrToInt(InPutBox('成绩输入', '第'+IntToStr(i)+'学生第'+IntToStr(j)+'门课程的成绩:', '0'));

6. 在窗体上显示文本，可以使用窗体的Canvas.TextOut方法

Canvas.FillRect(mainUI.ClientRect);     // 清除窗体上显示的信息
Canvas.TextOut(50+30*j, 50+30*i, IntToStr(slist[i,j]));		// 显示信息到窗体