我已經設置了一個指針,我想指向一個組件,但它指向的組件不會每次調用該過程時都是同一個組件,它只是簡單地聲明爲「指針'。這裏是指針指向組件的代碼。指向組件的未聲明標識符
Procedure DestroyConnection(Component,ID,Connections:Integer);
Var
ComponentPtr: Pointer;
begin
if Component = 1 then
ComponentPtr := Cell;
if Component = 2 then
ComponentPtr := Bulb;
這裏是指針被重用的代碼。
Procedure DestroyLink(Ptr:Pointer; ID:Integer);
var
Component: ^TObject;
begin
Component := Ptr;
Component.Connected := False;
我得到一個未聲明的標識符錯誤就行了:
Component.Connected := False;
我如何將能夠訪問該組件的指針指向的程序DestroyLink? 對不起,如果我沒有太大的意義:S
非常有幫助和清楚,謝謝! – user2141962