caset 2016-08-13 11:21 采纳率: 0%
浏览 672

求助:DELPHI多线程的问题

学习TTHREAD的用法,照着写,但是结果好像只输出了最后一个线程

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
    procedure AddLogInfo(rybh: string);
  public
    { Public declarations }
  end;

   TMyThread = class(TThread)
  private
     str: string; //日志信息
     procedure AddLog; //添加日志
     public

     procedure Execute; override; 
  end; 

var
  Form1: TForm1;
  sl:Integer;
  Strlog:string;



implementation

{$R *.dfm}
procedure  TForm1.AddLogInfo(rybh: string);
begin

     Form1.ListBox1.Items.Add('返回值:'+rybh);

end;

procedure TMyThread.Execute; 
var 
  i: Integer; 
begin 
  FreeOnTerminate := True; {这可以让线程执行完毕后随即释放}
  i:=sl;
  Str:='D'+inttostr(I);
  StrLog:=Str;
  synchronize(AddLog); //发送成功给捕捉
end;

procedure TMyThread.AddLog;
begin
  Form1.AddLogInfo(StrLog);
end;



procedure TForm1.Button1Click(Sender: TObject);  
var ib:  Integer;
begin
    ib:=0;
    while ib<10 do
      begin
          sl:=ib;
          TMyThread.Create(False);
          sleep(50);
          ib:=ib+1;
      end;
end;

end. 
  • 写回答

1条回答 默认 最新

  • dabocaiqq 2017-02-07 15:36
    关注
    评论

报告相同问题?

悬赏问题

  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥65 汇编语言除法溢出问题