delphi Createthread的线程传参数

本文介绍了一个使用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;

 

转载于:https://www.cnblogs.com/MaxWoods/archive/2013/06/13/3133998.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值