看流星社区 › 其它编程技术 › 如何在TIMER每隔几秒事件中逐行写入数值

userchm 发表于 2011-4-2 09:39:52

如何在TIMER每隔几秒事件中逐行写入数值

下面的代码会一下子全写出，
如何在TIMER每隔几秒逐行写入物品名，请高人指点下！
procedure TForm1.Timer1Timer(Sender: TObject);
var
id:Integer;
wpname:string;
begin
For Id := 0 To 39 do
begin
    wpname :=pchar($64CBC8 + $1 + id * $60); //物品名
    listbox1.items.add(wpname);
    Timer1.Interval:=StrToInt(Trim(ComboBox1.Text));
end;

yemao4587 发表于 2011-4-2 09:40:10

procedure TForm1.Timer1Timer(Sender: TObject);
var
id:Integer;
wpname:string;
begin
iflistbox1.items.count<40 then
begin
    wpname :=pchar($64CBC8 + $1 + listbox1.items.count * $60); //物品名
    listbox1.items.add(wpname);
    Timer1.Interval:=StrToInt(Trim(ComboBox1.Text));
end;

查看完整版本: 如何在TIMER每隔几秒事件中逐行写入数值