自定义类的成员变量定义和使用方法

holyten 2004-04-04 03:43:48
我自己定义了一个类,但是发现,在自己定义的类里面定义的成员变量在成员函数中使用的时候报错;我的自定义类如下:

unit VoiceLink;

interface

uses
Windows;

type
TVoiceLink = class(TObject)
private
LastErrorDescription:String;
Function SendCommand(Command:String;Value:String):longint; overload;
Function SendCommand(Command:String):longint;overload;
function getErrorDescription(Value: Integer): String;
public
Function Login(User:String;Password:String):boolean;
end;

var
MaxiAgent: TVoiceLink;

implementation

Function vlSendCmd(pszCommand:String):longint;stdcall;external 'VLCmd20.dll';

Function TVoiceLink.SendCommand(Command:String;Value:String):longint;
begin
Result:=vlSendCmd(Command+' '+Value);
end;

Function TVoiceLink.SendCommand(Command:String):longint;
begin
Result:=vlSendCmd(Command);
end;

Function TVoiceLink.Login(User:String;Password:String):boolean;
var
ret:longint;
begin
LastErrorDescription:=''; //运行到这里就报错!!!!!!!
ret:=SendCommand('USER',User);
if (ret<>200) then
begin
Result:=false;
end;
end;

end.
...全文
92 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
holyten 2004-04-04
  • 打赏
  • 举报
回复
函数调用是没有问题的,但是在自己的类里面加了个成员变量,然后在成员函数里面给这个变量赋值,就报错了,报的错是 内存方面的。
cll007 2004-04-04
  • 打赏
  • 举报
回复
看不出有什么错误
如果VLCmd20.dll是用其他语言写的,建议下面的string改成Pchar
Function vlSendCmd(pszCommand:String):longint;stdcall;external 'VLCmd20.dll';
曲滨_銘龘鶽 2004-04-04
  • 打赏
  • 举报
回复
不会吧,字符串 写''也报错!
一定是你系统有问题!
vavyboyleon 2004-04-04
  • 打赏
  • 举报
回复
什么错误啊,写一下阿
vavyboyleon 2004-04-04
  • 打赏
  • 举报
回复
对不起,看错了,上面的不算
vavyboyleon 2004-04-04
  • 打赏
  • 举报
回复
报什么错啊,是说找不到LastErrorDescription这个东东的定义吧,就没见你在什么地方定义过这个

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧