delphi轮循算法

delphi轮循算法

var Index: Integer;
var count: integer = 2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  var i := Index mod count;
  inc(Index);
  Memo1.Lines.Add(i.ToString);
end;