循环喊话模拟

 
procedure TForm1.Timer1Timer(Sender: TObject);
{$j+} //全局变量
const i:integer=0; //定义常量 i
{$j-}
begin
  ListBox1.Items.Add(memo1.lines.strings[i]);
  if i >= memo1.lines.count - 1 then  i := 0
  else inc(i);
end;




【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/xe2011/p/2518884.html