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;

 

posted @ 2022-11-07 07:59  delphi中间件  阅读(105)  评论(0编辑  收藏  举报