delphi 按钮与循环问题？
答案:1 悬赏:60 手机版
解决时间 2021-04-05 08:50
- 提问者网友：不爱我么
- 2021-04-05 01:22
delphi 按钮与循环问题？
最佳答案
- 五星知识达人网友：时间的尘埃
- 2021-04-05 01:47
Procedure TForm1.Button1Click(Sender: TObject);
Begin
With Edit1 Do
Begin
If Tag < Memo1.Lines.Count Then
Begin
Text := Memo1.Lines[Tag];
If (Tag + 1) >= Memo1.Lines.Count Then
Tag := 0
Else
Tag := Tag + 1;
End;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Edit1.Tag := 0;
End;
Begin
With Edit1 Do
Begin
If Tag < Memo1.Lines.Count Then
Begin
Text := Memo1.Lines[Tag];
If (Tag + 1) >= Memo1.Lines.Count Then
Tag := 0
Else
Tag := Tag + 1;
End;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Edit1.Tag := 0;
End;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯