会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
Testudo
每天要进步一点点。
博客园
首页
新随笔
联系
订阅
管理
循环喊话模拟
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)
posted @
2012-05-26 08:13
XE2011
阅读(
104
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
公告