这个循环喊话功能如何实现？【delphi源码】

sherwood5

以下功能当我运行了Timer6时钟后。就一次性发完了所有MEMO的内容。
我想实现的功能是：逐行读取MEMO内容 间隔时间为3秒  
然后一个一个的读出MEMO的内容并使用喊话功能！
请高手赐教。DELPHI学的不是很精。。

procedure TForm1.Timer6Timer(Sender: TObject);
var
i:integer;
strneirong:string;
begin
for i:=0 to memo8.Lines.Count-1 do
begin
strneirong:=memo8.Lines.Strings; //获取I行的字符串
hanhua(strneirong);  // 喊话CALL功能。。
end;
end;

niufen

1. 
   
2. 
   
3. procedure TForm1.Timer6Timer(Sender: TObject);  //时钟周期为3秒
   
4. {$j+}
   
5. const i:integer=0; //定义常量 i
   
6. {$j-}
   
7. begin
   
8. hanhua(memo1.lines.strings);
   
9. if i >= memo1.lines.count - 1 then
   
10.   i := 0
    
11. else
    
12. inc(i);
    
13. end;
    
14. 
    

复制代码

jinyuwei

定义一个全局变量或私有变量i (因为局部变量会初始化)  
procedure TForm1.Timer6Timer(Sender: TObject);  
strneirong:string;  
begin  
if i:=memo8.Lines.Count  then i:=0 //当喊到最后一行就从头开始循环喊  
begin  
strneirong:=memo8.Lines.Strings[I];  //获取I行的字符串  
hanhua(strneirong);  // 喊话CALL功能。。  
end;  
i:=i+1;//循环递增  
Timer6.Interval:=3000; 时钟周期3秒一次  
end;