【搞定】回复不了“ 调用同一数据集中不同表单所定义的函数出错的问题[请求] ”主题

risehit

我回复不了“ 调用同一数据集中不同表单所定义的函数出错的问题[请求] ”主题，不知道是为什么，回复提示：本主题已经关闭

risehit

unit KBBD1;

interface

uses
  Business.System, Business.Model;

type
  TKBBD1 = class(TFormDoc)
    InfoBroker: TInfoBroker;
  private
  function APeriodTime(AParm:String):String;
    {private declarations}
  public
    {public declarations}
  end;

implementation
function TKBBD1.APeriodTime(AParm:String):String;
var
  lParm : String;
begin
  lParm := AParm;
  Result := lParm;
end;

end.

我在文档2种要调用function APeriodTime(AParm:String):String;   这个函数。
请别再把这个帖子删了，否则每次回复我都得开新帖子，谢谢！

atiger

怪了， http://bbs.justep.com/forum.php?mod=viewthread&tid=14526  那这个结贴了，就在这里跟吧

哦，我原来理解错了，以为要调用文档1上的控件呢，不过，原来也笔误，应该是 业务信息的ID.文档1类名（DocView1.Doc）...

那应该 业务信息的ID.文档1类名...就能调用到吧，我没有环境测试，不过我印象应该放到public中，
不是在  private 中吧。

risehit

就是真的很奇怪！那个帖子，我没有权限结帖呀！关于您说的方法我会去试一试，非常感谢您的帮助！请不要结帖，我会尽快上报测试结果的。

atiger

好，无论结果怎样，都请跟贴反馈

risehit

编译时报错：没有定义“文档1的类名”。我做了两个文档，代码分别如下：
文档1的代码：
unit KBBD1;

interface

uses
  Business.System, Business.Model;

type
  TKBBD1 = class(TFormDoc)
    InfoBroker: TInfoBroker;
  private
    {private declarations}
  public
    function APeriodTime(AParm:String):String;
    {public declarations}
  end;

implementation
function TKBBD1.APeriodTime(AParm:String):String;
var
  lParm : String;
begin
  lParm := AParm;
  Result := lParm;
end;

end.


文档2的代码：
unit test2;

interface

uses
  Business.System, Business.Model, Business.Forms;

type
  Ttest2 = class(TFormDoc)
    InfoBroker: TInfoBroker;
    ComboBox1: TComboBox;
    Button1: TButton;
    DocView1: TDocView;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure Ttest2.Button1Click(Sender: TObject);
var
  lParam : String;
begin
  lParam := '10';
//  ComboBox1.Text := (DocView1.Doc as TKBBD1).APeriodTime(lParam).ToString;
  ComboBox1.Text := DECISIONSUBSYSINFO.TKBBD1.APeriodTime(lParam);
end;

end.

我在文档1种定义了一个函数function APeriodTime，在文档2种调用function APeriodTime这个函数。编译报错：Undeclared identifier"TKBBD1". TKBBD1就是文档1的类名。我在文档2中写入DECISIONSUBSYSINFO业务信息ID之后，“.”不出TKBBD1，只能“.”出两个函数一个是Equals函数，另一个是ReferenceEquals函数。不知道为什么？应该如何解决？

risehit

atiger，我已经在楼上反馈了出错的详细信息！请查验！

risehit

我顶

risehit

我尝试将业务信息的ID写到uses模块里面，但是效果是一样的，还是报与6楼相同的错误。这不会是一个bug吧？我的版本：2611

atiger

procedure Ttest2.Button1Click(Sender: TObject);
var
  lBGWD := DECISIONSUBSYSINFO.TKBBD1;
  lParam : String;
begin
  lParam := '10';
  ComboBox1.Text := lBGWD.APeriodTime(lParam);
end;