Delphi 多线程如何得到返回值

[没有昵称哦]

先上图吧：
看到CSDN上面的wxieyang说用这种方法
个人水平有限，不知道怎么写的
谁有代码发来看看。谢谢 或者帮我写一个简单的例子！
就用这个函数为例子吧 返回两个X+y的值

function TForm1.myfun(x, y: Integer): Integer;

begin
 Result:=x+y;
end;

[没有昵称哦]

自己先顶一下！希望能得到方法啊

[看那山瞧那水]

1、如果是简单的数据，可以送地址 PMyData = ^TMyData; TMyData = record a:integer; b:double; end; TMyThread = class(TThread) private FMyData:TMyData;//TMyData是自定义数据类型，比如简单类型，结构，数组等 .... end; .... 通过消息来传递数据 PostMessage(AMainFormHandle,WM_MSG_001,Integer(@FMyData),0); 接收消息取数据 var aData:TMyData; begin .... aData:=PMyData(Msg.WLparam)^; end; 2、复杂和大数据，可以用共享内存（比如内在映射等方式共享数据）

[haitao]

线程间可以直接共享访问全局变量的 这样定义： threadvar X: Integer; Thread-local (or thread) variables are used in multithreaded applications. A thread-local variable is like a global variable, except that each thread of execution gets its own private copy of the variable, which cannot be accessed from other threads. Thread-local variables are declared with threadvar instead of var. For example,

[s11ss]

楼主先学会TThread的基本用法吧！

[没有昵称哦]

引用 4 楼 s11ss 的回复:

楼主先学会TThread的基本用法吧！

这不是正在学吗？不会的就发帖子问了

[pathletboy]

type
  TMyThread = class(TThread)
  private
    FX, FY: Integer;
  protected
    procedure Execute; override;
  public
    constructor Create(const x,y: Integer);
  end;

{ TMyThread }

constructor TMyThread.Create(const x,y: Integer);
begin
  FX := x;
  FY := y;
  inherited Create(False);
end;

procedure TMyThread.Execute;
begin
  ReturnValue := FX + FY;
end;

调用

  with TMyThread.Create(30, 50) do
  begin
    ShowMessage(IntToStr(WaitFor));
    Free;
  end;

[sololie]

tthread有个OnTerminate回调函数，可以利用

[没有昵称哦]

引用 7 楼 sololie 的回复:

tthread有个OnTerminate回调函数，可以利用

能给出代码吗？@专业撸过

[sololie]

你不是发过同样的帖子了么，帖子里也有了回复，你也结贴了，感情都是浪费表情 http://bbs.csdn.net/topics/390513469 再浪费多点表情

[打酱油的无证程序猿]

呵呵，顶。。。。。。

[SQLDebug_Fan]

上面的回复都很专业，楼主如果看不明白需要看看DELPHI的书籍，熟悉一下线程的使用。