继续您中断的地方

Question

下面的代码遍历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;

Answer 1

1. 在名为FCurrentLine类型的Integer的表单类中声明一个变量
2. 将循环更改为读取for i := FCurrentLine to ...
3. 退出循环时，设置FCurrentLine := i + 1