Как использовать указатели в классах ?

← →
AllDer (2003-09-13 02:01) [0]

Здраствуйте эксперты.!Проблема:
function Messager:dword;stdcall;
begin
//....code
end;

var
kId:dword;//cardinal!!!Source\Rtl\Win\windows.pas
// есть определение DWORD = LongWord;

begin { main }
//..create memory kID
createthread(nil,0,@Messager,0,0,@kID);
//....
end;
Это Работает!-запуск thread

Суем в класс-не работает
TTest = class
procedure ShowInfo;
function Mes:dword;stdcall;
end;

function TTest.Mes:dword;stdcall;
begin
//----code
end;

procedure TTest.CreateMessage;
begin
createthread(nil,0,@Mes,0,0,@kID);//<--здесь ошибка некомпилит
end;

D4 некомпилит-"Combining signed and unsigned types -
widened both operands/Variable required"

Неработает ссылка на память @Mes(type pointer) и между классами
типа:
procedure TTest.Ini;
Var
pArr:^dword;
begin
pArr:=@Cl.Array;
{var Cl:TTest2;где
TTest2 = class
Array:pointer;}

end;
Как использовать указатели в классах на функции
(своего! и чужого класса) и переменные!?

← →
zaporshivets (2003-09-15 09:52) [1]

Нужно разделять понятия метод класса и функцию. Функция в памяти имеет один физический адрес, а метод два адреса. Один - адрес экземпляра класса, а другой непосредственно адрес функции. Поэтому присвоить метод класса указателю на обычную функцию нельзя.

Как использовать указатели в классах ? Найти похожие ветки