这个循环喊话功能如何实现？【delphi源码】
以下功能当我运行了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;
procedure TForm1.Timer6Timer(Sender: TObject);//时钟周期为3秒
{$j+}
const i:integer=0; //定义常量 i
{$j-}
begin
hanhua(memo1.lines.strings);
if i >= memo1.lines.count - 1 then
i := 0
else
inc(i);
end;
定义一个全局变量或私有变量i (因为局部变量会初始化)
procedure TForm1.Timer6Timer(Sender: TObject);
strneirong:string;
begin
if i:=memo8.Lines.Countthen i:=0 //当喊到最后一行就从头开始循环喊
begin
strneirong:=memo8.Lines.Strings;//获取I行的字符串
hanhua(strneirong);// 喊话CALL功能。。
end;
i:=i+1;//循环递增
Timer6.Interval:=3000; 时钟周期3秒一次
end;
页:
[1]