procedure TForm5.startClick(Sender: TObject);
var num:integer;
I: Integer;
t:thread;
newtp: ParameterizedThreadStart;
mei:MethodInfo ;
systype:system.&Type;
begin
num:=convert.ToInt32(edit1.Text);
for I := 0 to num - 1 do
begin
systype:=self.GetType;
mei:=systype.GetMethod('computer_func');
if mei=nil then
showmessage('err');
try
newtp:=Delegate.CreateDelegate(typeof(ParameterizedThreadStart),form5,'computer_func',true)
as ParameterizedThreadStart ;
except on e:exception do
begin
showmessage(e.Message);
end;
end;
// newtp:=@computer_func;
t:=system.Threading.Thread.Create(newtp);
threadlist.Add(t);
t.Start(i.ToString);
end;
end;