Question

delphi timer 问题

procedure TForm1.Timer1Timer(Sender: TObject);
var //要做Form1 滚动标题栏文字
temp :string;
begin
Temp:=application.Title;
Temp:=temp+temp[1]; // 这里是什么意思？
Temp:=Copy (Temp,2,length(temp)-1);//这个公式是什么意思？//除了这个公式还有没得公式吗？？
Application.Title:=temp;
Form1.Caption := temp;
谁能告诉我 上面我标上注释的 代码的具体意思。 好难理解啊。。
全部代码
var Form1: TForm1;
oldtitle:string;

implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption := '' ;
Form1.Caption:='abcdefghijklmn';
Application.Title:= Form1.Caption;
oldtitle :=application.Title;
timer1.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var temp :string;
begin //滚动文字
Temp:=application.Title;
Temp:=temp+temp[1];
Temp:=Copy (Temp,2,length(temp)-1);
Application.Title:=temp;
Form1.Caption := temp;

end;
procedure TForm1.Button1Click(Sender: TObject);
begin

Timer1.Enabled:=Not Timer1.Enabled;
if Timer1.Enabled=True then
BEGIN
Application.Title:= Form1.Caption;

Answer 1

Temp:=application.Title;
Temp:=temp+temp[1]; // 这里是什么意思？
这个是取字符串，TEMP不是等于Form1.Caption
Form1.Caption又等于'abcdefghijklmn';
temp[1]就是取第一个字符a
所以Temp=abcdefghijklmna

Temp:=Copy (Temp,2,length(temp)-1);//这个公式是什么意思？//除了这个公式还有没得公式吗？？
copy是取字符函数
和SQL的SUBSTR一样
从第二位取14位，length是字符的总长度
所以这Temp=bcdefghijklmna

Answer 2

知道你对我代表着什么吗

Answer 3

做这个有意义吗？