在您停止的地方继续“for”
在您停止的地方继续“for”
提问于 2019-07-24 12:47:17
下面的代码遍历了Memo1的全部内容，并在Label2 = Edit1时退出。到目前为止一切正常，我想知道在退出后再次单击Button1时，我是如何做到这一点的，它是从Memo1下面的一行继续进行的，而不是再次从头开始。
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
Label2.Caption := Memo1.Lines.Strings[i];
Sleep(2500);
if Trim(Label2.Caption) = (Edit1.Text) then
begin
messageBeep(0);
exit;
end;
end;Stack Overflow用户
发布于 2019-07-24 15:18:59
要读取循环，请退出循环集FCurrentLine := i + 1，然后在窗体类中声明一个变量，名为
- ，类型为
FCurrentLine。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/57175436
复制相关文章
相似问题
腾讯云开发者
