delphi Createthread的线程传参数

最新推荐文章于 2025-05-22 10:01:04 发布

weixin_30466039

最新推荐文章于 2025-05-22 10:01:04 发布

阅读量698

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/MaxWoods/archive/2013/06/13/3133998.html

本文介绍了一个使用Delphi实现的简单多线程示例。该示例中定义了一个记录类型`Test`用于传递参数，并创建了一个名为`MyThreadFun`的线程函数来修改主线程中的`Memo1`文本。通过`CreateThread`函数启动新线程并传递了记录类型的实例作为参数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;

interface

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

type
Test=record
    a: Integer;
    b: Integer;
  end;


  TForm1 = class(TForm)
    btn1: TButton;
    memo1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

    function MyThreadFun(var Param:  Test): Integer; stdcall; //注，此行写成TForm1.MyThreadFun Createthread调用处会报错。

implementation

uses Unit2;

{$R *.dfm}


function MyThreadFun(var Param:  Test): Integer; stdcall;
begin
  Form1.Memo1.Text := IntToStr(Param.a);
  Result := 0;
end;



procedure TForm1.btn1Click(Sender: TObject);
var
  Id: Dword;
  P: test;
begin
  p.a:=5;
  Createthread(nil, 0, @MyThreadFun, @p, 0, Id);
end;