【搞定】Result 没有初始化!请问如何解决!**

phnb

代码如下,在DELPHI中可以通过,X3中编译提示Result 没有初始化!
使的不能引用此函数
unit test;

interface

uses
  Business.System, Business.Model;

type
  MakeSIZE = record
    MakeLength:Integer;
    MakeWidth:Integer;
    MakeHigh:Integer;
    end;

type
  Ttest = class(TBizLibrary)
  private
    {private declarations}
  public

    static function SIZECONV(ZXLX ,LX, CCLX: string): MakeSIZE;
    {public declarations}
  end;

implementation

static function ttest.SIZECONV(ZXLX ,LX, CCLX: string): MakeSIZE;
begin
//
end;
end.

jiahaiminghr

错误定位在哪里？

lixy

这个只是提示性的。
因为你的函数没有返回值赋值。
随便加一个result:=***;就不报这个提示了。

atiger

不会呀，我这里编译正常的。
那仅仅是一个提示，可以忽略

phnb

编译正常是正常的,但在用这个函数的时候就不能通过了!

随便加一个result,因为写出来给你们看,所以没写!

我认为因为result是record类型引起的,只是如何解决!

jiahaiminghr

http://bbs.justep.com/forum.php?mod=viewthread&tid=3653
请参考第五条

phnb

哦!原来平台不支持.那我要反馈多个变量,应如何作!

jiahaiminghr

可以封装成一个对象啊

phnb

因为没有用过,能否将以上的代码,帮我改一下,同时再写一下,函数的使用方法.

lixy

TMakeSIZE = class
    public
      MakeLength:Integer;
      MakeWidth:Integer;
      MakeHigh:Integer;
    end;
  Ttest = class(TBizLibrary)
  private
    {private declarations}
  public

    static function SIZECONV(ZXLX ,LX, CCLX: string): TMakeSIZE;
    {public declarations}
  end;
implementation
static function ttest.SIZECONV(ZXLX ,LX, CCLX: string): TMakeSIZE;
var
   tmpM:TMakeSIZE;
begin
     tmpM:=TMakeSIZE.Create;
     tmpM.MakeHigh:=1;
     tmpM.MakeLength:=2;
     tmpM.MakeWidth:=3;
     result:=tmpM;
end;
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
procedure TMainForm.Button2Click(Sender: TObject);
var
   tmpM:TMakeSIZE;
begin
     tmpM:=ttest.SIZECONV('','','');
     jsdialogs.ShowMsg(sysutils.IntToStr(tmpM.MakeHigh),'');
     jsdialogs.ShowMsg(sysutils.IntToStr(tmpM.MakeLength),'');
     jsdialogs.ShowMsg(sysutils.IntToStr(tmpM.MakeWidth),'');
end;