线程中代码

Unit getinfo;

constructor getinfo.Create(h:string;vlist:TTreeview); //取id!!
begin
v:=h;
ViewList:=vlist;
FreeOnTerminate := True;
inherited create(false);
end;


function check(a:string):string;
begin
//…
form1.memo1.lines.add(a);
end;

procedure getinfo.Execute;
begin
Check(v);
end;


创建线程代码

Unit Unit1;
var
infothread:array of getinfo;

procedure Tform1.Threadstop;
begin
//如果是这里应该添加什么代码,能让创建的线程立即停止.
//我试过Terminate - Free 等都失败了.
//出现过 句柄无效 或 程序卡死 或 直到线程将任务处理完成.
//我想立即终止线程,让它不在工作,该在哪里添加代码?//英雄,救命吧..
end;

procedure Tform1.GetStart;
var
i,v: integer;
begin
SetLength(infothread,self.Memo1.Lines.Count); // 动态设置线程的数量
for i := 0 to self.Memo1.Lines.Count -1 do
begin
infothread[i] := getinfo.Create(self.Memo1.Lines.Strings[i],self.treeview1);
infothread[i].OnTerminate := Threadok;
end;
end;
end;

編輯記錄

使用一個自訂的Thread, 安排其動作流程
應該可以達到你的需求

以下測試碼提供你參考

http://delphi.ktop.com.tw/download.php?download=upload/486b1190abf8e_Test070.zip


[code delphi]
unit fMain;

interface

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

type
TBreakEvent = procedure(Sender: TObject; var IsBreak: Boolean) of object;

TMyThread = class(TThread)
private
FOnStart: TNotifyEvent;
FOnDone: TNotifyEvent;
FOnWorking: TNotifyEvent;
FOnCheckBreak: TBreakEvent;
FCountDown: Integer;
FIndex: Integer;
FOwner: TForm;
FOnBreak: TNotifyEvent;
protected
FX: Integer;
FY: Integer;
FColor: TColor;
procedure Execute; override;
procedure Draw;
public
constructor Create(AOwner: TForm; Index, CountDown: Integer);
property Index: Integer read FIndex;
property Owner: TForm read FOwner;
property CountDown: Integer read FCountDown;
property OnStart: TNotifyEvent read FOnStart write FOnStart;
property OnWorking: TNotifyEvent read FOnWorking write FOnWorking;
property OnDone: TNotifyEvent read FOnDone write FOnDone;
property OnCheckBreak: TBreakEvent read FOnCheckBreak write FOnCheckBreak;
property OnBreak: TNotifyEvent read FOnBreak write FOnBreak;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TMyThread }

constructor TMyThread.Create(AOwner: TForm; Index, CountDown: Integer);
begin
inherited Create(True);
FreeOnTerminate := True;
FOwner := AOwner;
FIndex := Index;
FCountDown := CountDown;
FX := (FIndex mod 5) * 150;
FY := (FIndex div 5) * 20;
FColor := RGB(Random($100),Random($100),Random($100));
Resume;
end;

procedure TMyThread.Draw;
var
C: TCanvas;
S: string;
R: TRect;
begin
if FOwner <> nil then
begin
S := Format('%d@(%d,%d)=%d',[FIndex,FX,FY,FCountDown]);
C := FOwner.Canvas;
C.Lock;
try
C.Brush.Color := FOwner.Color;
C.Brush.Style := bsSolid;
C.Font.Color := FColor;
C.Font.Height := 20 - 2;
R := Rect(0,0,150,C.TextHeight('0'));
OffsetRect(R,FX 100,FY);
C.TextRect(R,FX 100,FY,S);
finally
C.Unlock;
end;
end;
end;

procedure TMyThread.Execute;
var
IsBreak: Boolean;
begin
IsBreak := False;

if Assigned(FOnStart) then FOnStart(Self);
while not Terminated do
begin
Synchronize(Draw);

if Assigned(FOnCheckBreak) then FOnCheckBreak(Self, IsBreak);

if IsBreak then Break;

if Assigned(FOnWorking) then FOnWorking(Self);

Dec(FCountDown);

if FCountDown <= 0 then Break;

Application.ProcessMessages;

Sleep(10);


end;

Synchronize(Draw);

case IsBreak of
False: if Assigned(FOnDone) then FOnDone(Self);
else if Assigned(FOnBreak) then FOnBreak(Self);
end;

Terminate;

end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to 149 do
TMyThread.Create(Self,I,Random(200) 200);
end;

end.


[/code]

編輯記錄