|
[x]
Posted via EE Mobile
|
|
| Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
|
|
|
|
Asked by DelphiUK in Delphi Programming, Pascal Programming Language, Free Pascal
Hi
How do I get "TVirtual_Debugger_Engine.
X" in "unit1" to write in "Pointer_Event_OnAddToLog"
variable??
Then I have to get the "test" procedure in "unit2" to show what "Pointer_Event_OnAddToLog"
is?
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
|
{ UNIT1.pas }
Unit Unit1;
type
TVirtual_Debugger_Engine = class
public
property Event_OnAddToLog: string write X;
end;
var
Pointer_Event_OnAddToLog:String;
implementation
....
procedure TVirtual_Debugger_Engine.X(xv: string);
begin
Pointer_Event_OnAddToLog := xv;
end;
...
{ UNIT 2.pas }
Unit Unit2;
Uses UNIT1;
procedure test;
begin
ShowMessage(Unit1.Pointer_Event_OnAddToLog);
end;
|
20091111-EE-VQP-92 - Hierarchy / EE_QW_3_20080625
