モナーの *やさしい* Delphi質問スレ
■ このスレッドは過去ログ倉庫に格納されています
0353デフォルトの名無しさん
NGNGこれでもみて悩んでちょ↓
unit A;
interface
type
TALPHA = class
private
fMember1:Integer;
public
fMember2:Integer;
procedure Func;
end;
var
gVar:Integer;
implementation
var
Var2:Integer;
procedure Func2;
begin
//使えるもの:Var2,gVar
//使えないもの:fMember1,fMember2,Func,FuncB
end;
procedure TALPHA.Func;
begin
//使えるもの:fMember1,fMember2,Var2,gVar,Func2
//使えないもの:FuncB
end;
end.
unit B;
interface
implementation
uses
A;
var
Alpha:TAlpha;
procedure FuncB;
begin
//使えるもの:gVar,Alpha.fMember2,Alpha.Func
//使えないもの:Var2,fMember2,Func2
end;
■ このスレッドは過去ログ倉庫に格納されています