找不到定义

[littlecat2008]

unit Unit_Pub2;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,inifiles,xmldom,XMLIntf,msxmldom,XMLDoc,ComCtrls,ToolWin,StrUtils;
type //这里定义类型
TxmlNodeInf=record
IXMLNodeSelf : IXMLNode;
IntOperSign:integer;//是否存储信息的标志,无信息为0,不可操作,否则为1可操作
ID:integer;//本身的id,唯一
ParentId:integer;//父节点的id
end;

var
{ArrXmlNode_new:全局变量，按层存储更新XML接口文档的全部节点}
ArrXmlNode_new:Array [0..2000] of TxmlNodeInf;//从新的接口文件中读取的节点



=========================================================================================
unit Unit_Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg, Buttons, TFlatButtonUnit, TFlatSpeedButtonUnit,xmldom,XMLIntf,msxmldom,XMLDoc;


type
TFrm_main = class(TForm)
ImgMain: TImage;
BtnAboutUs: TSpeedButton;
BtnSelfRe: TSpeedButton;
BtnSelfSevice: TSpeedButton;
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormDblClick(Sender: TObject);
procedure BtnAboutUsClick(Sender: TObject);
procedure BtnSelfReClick(Sender: TObject);
procedure BtnSelfSeviceClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure ProcessMsg(var Msg:TMsg;var Handled:boolean);
public
{ Public declarations }

end;
var

Frm_main: TFrm_main;
function frm_GetXmlNodes():boolean;//自定义函数

function frm_GetCnt(var ArrXmlNode :Array of TxmlNodeInf):integer; //这里找不到定义


//////////////////////////////////////////////////////////////////////////////////////////////////////////////
都快被烦死了，这些代码都是移植的，可是放在新工程里，死活出问题，请高手支招啊～～～

[hongqi162]

unit Unit_Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg, Buttons, TFlatButtonUnit, TFlatSpeedButtonUnit,xmldom,XMLIntf,msxmldom,XMLDoc,Unit_Pub2;


type
TFrm_main = class(TForm)
ImgMain: TImage;
BtnAboutUs: TSpeedButton;
BtnSelfRe: TSpeedButton;
BtnSelfSevice: TSpeedButton;
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormDblClick(Sender: TObject);
procedure BtnAboutUsClick(Sender: TObject);
procedure BtnSelfReClick(Sender: TObject);
procedure BtnSelfSeviceClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure ProcessMsg(var Msg:TMsg;var Handled:boolean);
function frm_GetXmlNodes():boolean;//自定义函数
function frm_GetCnt(var ArrXmlNode :Array of TxmlNodeInf):integer; //这里找不到定义
public
{ Public declarations }

end;
var

Frm_main: TFrm_main;

[starluck]

錯誤信息看下。


應該這個函數的實現沒有吧？

[lovelymelon]

你的函数定义位置写错了吧。

[de410]

这样试一下~~

unit Unit_Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg, Buttons, TFlatButtonUnit, TFlatSpeedButtonUnit,xmldom,XMLIntf,msxmldom,XMLDoc;


type
TFrm_main = class(TForm)
ImgMain: TImage;
BtnAboutUs: TSpeedButton;
BtnSelfRe: TSpeedButton;
BtnSelfSevice: TSpeedButton;
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormDblClick(Sender: TObject);
procedure BtnAboutUsClick(Sender: TObject);
procedure BtnSelfReClick(Sender: TObject);
procedure BtnSelfSeviceClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure ProcessMsg(var Msg:TMsg;var Handled:boolean);
function frm_GetXmlNodes():boolean;//自定义函数
function frm_GetCnt(var ArrXmlNode :Array of TxmlNodeInf):integer;
public
{ Public declarations }

end;
var

Frm_main: TFrm_main;

[littlecat2008]

非常谢谢hongqi162 ，现在好了。也谢谢starluck 关注。
函数的定义是实现了的。
用hongqi162 的方法就可以了，我想我是直接use unit,导致它的定义在引用之后了。