循环喊话模拟

循环喊话模拟
 
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;




你可能感兴趣的:(循环)