معادل این کد VB در Delphi

[Delphi7_1]

کسی میتونه معادل این کد VB رو تو دلفی بنویسه؟


Private test As New ClassLink
Private Sub Command1_Click()
'All Command will send to Com1
Text2 = ""
Me.MousePointer = 11
Set test = New ClassLink

Text2 = test.TestCommunication("01")

هدف اجرای یک سری تابع از درون یک فایل DLL
ظاهرا DLL حاوی کلاسی هست با نام تست
اگر کسی کار کرده لطفا نمونه کد بذاره

[Hamid_PaK]

توی دلفی شما باید اصل کلاس را داشته باشید و بعد توابع را به DLL نسبت بدهید ، در غیر اینصورت فکر نکنم راهی باشه !!!

یا حق ...

[پرواز]

سلام
دوست عزیز من فکر کنم این کد مربوط به یه پروسیجر باشه نه کلاس. فکر کنم DLL تو VB اینجوری تعریف میشه.

[Mah]

سلام .

type
Form1 (Tform)
....
..
.
Private
Test : ClassLink
..
...

Procedure YourProc ;
var
Text2 : string;
begin
Test:=ClassLink.new(nil);
Self.MousePointer := 11;
Text2 = test.TestCommunication('01');
end;

گرچه منظور شما را کاملاً متوجه نشدم ولی فکر کنم کد معادلی را که می خواستی برات نوشتم .
امیدوارم کارت راه بیافته .