//메인폼의 스레드 실행부분
//호출시 어떨게 인수를 넘겨 주는지 궁금합니다.
if Assigned(n1thread) then
FreeAndNil(n1thread);
n1thread := n1.Create(True);
n1thread := 0;
with n1thread do
begin
Priority := tpLower;
Resume;
end;
//스레드 부분에 어떤값을 넘겨 받고 싶습니다.
//스레드 부분에서 어떻게 값을 받는지 궁금합니다.
unit n1u;
interface
uses
Classes,sysutils;
type
n1 = class(TThread)
private
procedure dataprocess;
protected
procedure Execute; override;
public
iCount: integer;
end;
implementation
uses file_menuu;
{ n1 }
procedure n1.dataprocess;
begin
end;
procedure n1.Execute;
begin
dataprocess;
end;
end.