unit uThread;
interface
uses
Classes;
type
Th = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
以上是创建的一个多线程
我在另外一个单元里Unit1有一个函数
function Myfun(username,password:string):boolean
现在要把Myfun放到多线程里执行,怎么传递参数呢?
谁有这样的Demo给一个我,帮我讲解一下,感激不尽!我看到网上说有结构体,因本人才学Delphi没多久,不太懂的,希望大牛们指点迷津!
解决方法如下:
// 线程类
unit Unit2;
interface
uses
Classes;
type
TMyThread = class(TThread)
private
FUserName: string;
FPassWord: string;
FFlag: Boolean;
procedure GetUserName(const Va