Question

在Delphi中，实现单击同一个按钮改变不同的内容，求源代码

在Delphi中，我设置了一个按钮，caption属性为"下一页"，以及一个编辑框，编辑框的内容是"床前明月光"，我想单击下一页按钮的时候，编辑框内容改变成"疑是地上霜"，再单击一次，再改变为"举头望明月"...这样的效果。直到把这首诗一句一句的显示完。求程序代码，可以的话加上代码注释，解释一下。用什么语句都可以。急！！！

Answer 1

Delphi不是我的特长，我忘记了，也没有编译器，不过提示你怎么做吧（代码语法不一定对，伪代码）： 1）设置一个字符串数组，其中包含李白的这个“静夜思”的四个句子（窗体类全局变量）。2）设置一个索引变量，用于指向具体要显示的某一句的索引（默认0，窗体类全局变量）。3）在窗体加载的时候，显示诸如：Editor.Text:=数组[索引变量];4）按钮事件这样写：if (索引变量>3){ 索引变量 = 0; //从头显示}else{ 索引变量=索引变量+1;}Editor.Text:=数组[索引变量];

Answer 2

implementation
var
i:Integer = 0;
{$R *.dfm}

procedure TForm2.btn1Click(Sender: TObject);
begin
if i=4 then
i:=0;
case i of
0:edt1.Text:='第一句';
1:edt1.Text:='第二句';
2:edt1.Text:='第三局';
3:edt1.Text:='第四句';
end;
Inc(i);
end;

end.