Wenn du mal im Borlandverzeichnis unter Demos in Threads schaust, dann sind meine Threads genauso deklariert wie bei borland, sprich:
Delphi-Quellcode:
type
TMyThread = class(TThread)
private
{ Private-Deklarationen }
TFunc : Byte;
TData : PChar;
TNames : PChar;
TValues : PChar;
TIndex : Byte;
protected
procedure Execute; override;
function Myfunction: Integer; virtual; abstract;
public
constructor Create(Func: Byte; Data, Names, Values: PChar; DriveIdx: Byte);
end;
TFirstThread = class(TMyThread)
protected
function Myfunction: Integer; override;
end;
TSecondThread = class(TMyThread)
protected
function Myfunction: Integer; override;
end;
Unter Execute wird dann der jeweilige Thread aufgerufen und ausgeführt.