帮助更多需要帮助的人,我等待着您的帮助!编写DLL时多个unit能调用全局变量吗? ( 积分: 50 )

jensgn · 2005-05-20

如: unit1.pas  public    tempstr: string; 在 unit2.pas 里怎么调用unit1.pas里的tempstr: string???? ----------------------------------------------------------- 朋友或许我的短讯打扰了您,希望您先不要生气,把问题看完了杀我都可以. 帮助更多需要帮助的人,我等待着您的帮助! ---------------------------------------------------------

jensgn · 2005-05-20

如: unit1.pas  public    tempstr: string; 在 unit2.pas 里怎么调用unit1.pas里的tempstr: string???? ----------------------------------------------------------- 朋友或许我的短讯打扰了您,希望您先不要生气,把问题看完了杀我都可以. 帮助更多需要帮助的人,我等待着您的帮助! ---------------------------------------------------------

woyaoying · 2005-05-20

你的那个变量是类成员,访问时不会冲突的.

jensgn · 2005-05-20

冲突的倒没有,也没出错,就是没数据显示! 如: unit1.pas procedure TTestAsp.typeapp; begin  tempstr := 'jerry-okokok!';  Response.Write (tempstr); end; procedure TTestAsp.typeok; var testtype: TACCN; begin  testtype := TACCN.Create;  Response.Write (' -------2------ ');  Response.Write (testtype.GetTypeStr);  testtype.Free; end; unit2.pas implementation uses unit1; function TACCN.GetTypeStr: string; var testtype: TTestAsp; begin  testtype := TTestAsp.Create;  Result := 'OK:'+testtype.tempstr;  testtype.Free; end;

tseug · 2005-05-20

你那个tempstr不像全局变量，应该是类属性，在unit2调用时，我没见到你在哪里初始化 这个属性，看你贴出来的，应该是在unit1的TTestAsp.typeapp里面赋值的

jensgn · 2005-05-20

对是在:unit1的TTestAsp.typeapp 里赋的值,然后再到unit2里把值读出来.tempstr我已经在 public    tempstr: string; 里定义过...

jensgn · 2005-05-20

路过的朋友随便顶顶,给个例子都行嘛.... 麻烦各位啦,小的真的急坏了.[

]

SmallGhost · 2005-05-20

用BPL包！

jingtao · 2005-05-20

testtype := TTestAsp.Create;  Result := 'OK:'+testtype.tempstr;  testtype.Free; 你的TTestAsp类有没有初始化那个tempstr啊

woyaoying · 2005-05-20

procedure TTestAsp.typeapp; begin  tempstr := 'jerry-okokok!';//这里你应该加上self;例如:self.tempstr:='jerry-okokok!'  Response.Write (tempstr);//同样加入self.tempstr; end;

jensgn · 2005-05-20

回jingtao,没有初始化也...能说一下怎么个初始法吗?多谢!

jensgn · 2005-05-20

非常感谢woyaoying的再出出手,加上self了但还是不行? 能告诉我self是什么意思吗? 多谢看贴的朋友.

yang_huafeng · 2005-05-20

其实uint1和unit2之间互相调用不好，最好是再建一个单元unit3,在unit3中定义tempstr,然后unit1和unit2都uses unit3,或则把tempstr设为全局变量

kk2000 · 2005-05-20

function TACCN.GetTypeStr: string; var testtype: TTestAsp; begin  testtype := TTestAsp.Create;  Result := 'OK:'+testtype.tempstr;//你这句在创建对象的时候没有处始化那肯定是空值拉.  testtype.Free; end; //Unit1 这里虽然赋值了, 但是你在function TACCN.GetTypeStr: string; //里面的对象是有创建一次的,所以根本不是你赋值的那个对象; procedure TTestAsp.typeapp; begin  tempstr := 'jerry-okokok!';  Response.Write (tempstr); end; //举个简单的列子 TmyObject = class   public     TmpStr: String   end; //现在我定义两个对象变量 var  myObject1, myObject2: TmyObject; begin  myObject1 := TmyObject.Create;  myObject1.TmpStr := 'OK';  myObject2 := TmyObject.Create;  Showmessage( myObject2.TmpStr)//这里显示出来肯定是个空值; //因为他们是两个对象.  myObject1.free;  myObject2.free; end; //你可以定义一个全局变量. 你现在定义的不是全局变量.你可以在 //每个Unit 的 var后面定义就可以了.

jensgn · 2005-05-20

//你可以定义一个全局变量. 你现在定义的不是全局变量.你可以在 //每个Unit 的 var后面定义就可以了. var后台定义是指那?如下吗? var  tempstr: string; implementation 但unit2就访问不了啦? 全局变量不是在:  public    { Public declarations }  end; 中定义的吗?

islet8 · 2005-05-20

在你Unit2.pas的implementation关键字后面加上 uses Unit1; 估计你Unit1是一个mainform的单元，所以它里面已经声明了一个Form1: TForm1;，所以你就可以Unit2里通过“Form1.tempstr”得到

kk2000 · 2005-05-20

//你可以定义一个全局变量. 你现在定义的不是全局变量.你可以在 //每个Unit 的 var后面定义就可以了. var后台定义是指那?如下吗? var  tempstr: string; implementation 但unit2就访问不了啦? 全局变量不是在:  public    { Public declarations }  end; 中定义的吗? //不是的 你调用的时候不用加任何对象来引用了! 只要你引用了unit1 就可以了. 直接调用 TempStr就可以了.

jensgn · 2005-05-20

多人接受答案了。

lovered · 2005-05-20

老兄，你给我发了多少个信息呀！怎么这个多？ 这个问题应该是初级的问题呀。初学者多数容易犯的问题。 function TACCN.GetTypeStr: string; var testtype: TTestAsp; begin  testtype := TTestAsp.Create;  //testtype.typeapp;//我加的，你这里什么方法都不调用，它不是空的才怪呢 Result := 'OK:'+testtype.tempstr;  testtype.Free; end;

jensgn · 2005-05-20

多谢各位热情解答,本问题已经解决.非常感谢kk2000.

帮助更多需要帮助的人,我等待着您的帮助!编写DLL时多个unit能调用全局变量吗? ( 积分: 50 )

jensgn

Unregistered / Unconfirmed

jensgn

Unregistered / Unconfirmed

woyaoying

Unregistered / Unconfirmed

jensgn

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

jensgn

Unregistered / Unconfirmed

jensgn

Unregistered / Unconfirmed

SmallGhost

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

woyaoying

Unregistered / Unconfirmed

jensgn

Unregistered / Unconfirmed

jensgn

Unregistered / Unconfirmed

yang_huafeng

Unregistered / Unconfirmed

kk2000

Unregistered / Unconfirmed

jensgn

Unregistered / Unconfirmed

islet8

Unregistered / Unconfirmed

kk2000

Unregistered / Unconfirmed

jensgn

Unregistered / Unconfirmed

lovered

Unregistered / Unconfirmed

jensgn

Unregistered / Unconfirmed

Similar threads