多线程问题?!!高手来

一个函数  
  funtion   temp(aa:integer;bb:integer):string;  
  var  
    i,j:integer;  
  begin  
  for   i=0   to   aa   do  
    begin  
      for   j=0   to   bb   do  
        begin  
          string:=string+string;  
        end;  
    end;  
  result:=string;  
  end;  
  两个按钮都调用该函数,就是传入的参数不同,第一个按钮temp(1000,1000),第二个temp(10000,10000)  
   
  如何用多线程来分别调用啊,酒是没两个按扭可以连续的点击,不需要一个处理完了才能继续点;  
  而且还有得到返回的变量!!!!!

>>如何用多线程来分别调用啊,  
   
  你从Thread继承两个线程类,在类的Execute中调用temp就可以了,

详细点啊,最好有代码啊

又遇到一位不求上进的懒人。  
   
  TMyThread   =   class(TThread)  
      private  
          FA:   Integer;  
          FB:   Integer;  
          function   Temp(aa:integer;   bb:integer):string;  
      protected  
          procedure   Execute;   override;  
      public  
          constructor   Create(const   AA,   AB:   Integer);   reintroduce;  
      end;  
   
   
  constructor   TMyThread.Create(const   AA,   AB:   Integer;   AE:   TEdit);  
  begin  
      FreeOnTerminate   :=   True;  
      inherited   create(True);  
      FA   :=   AA;  
      FB   :=   AB;  
  end;  
   
  procedure   TMyThread.Execute;  
  begin  
      inherited;  
      Temp(FA,   FB);  
  end;  
   
  ..........  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      with   TMyThread.Create(100,   100)   do  
        Resume;  
  end;  
   
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      with   TMyThread.Create(1000,   1000)   do  
        Resume;  
  end;  
   
 

这里只是一个基本框架，至于实际项目和同步显示还有许多工作要做，你自己慢慢学习吧！

--------------------------
新闻：FriendFeed 正在踏进 twitter 的领域
导航：博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看