循环喊话模拟

 

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;

来自为知笔记(Wiz)