怎样自定义类？(50分)

K

kmwap

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #1

在C中有这样一个结构：
struct login{
char 　 id[LEN+1];
char　 auth[LEN+1];
unsigned char　　bind_type;
unsigned char 　　version;
unsigned int　　　timestamp;
};
在Delphi中应怎样定义这样的一个类？
定义后怎么样引用？

 

T

TK128

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #2

这个问题真是初级得可以！
Const
Len=10;
Type
Login=Record
ID: Array [0..Len] of Char;
Auth: Array [0..Len] of Char;
Bind_Type: Byte;
Version: Byte;
TimeStamp: SmallInt;
End;

 

F

forss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #3

type TLogin=class
private
//1
protected
//2
public
//3
constructor Create;
destructor Destroy; override;
end
把你结构中的数据在1，2，3中任意一个地方申明即可。
方法也是， private protected public的区别请参考OBJECT PASCAL。。
你搞C++的应该知道吧。：）
然后实现的你这个类的方法，
使用的时候
var
login:TLogin;
begin
login:=TLoing.Create;
..............
end;

使用完
login.free;

GOOD LUCK..

 

W

wcp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #4

GOOD LUCK

 

S

sxbing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #5

Type mycalss=class()
ID: Array [0..Len] of Char;
Auth: Array [0..Len] of Char;
Bind_Type: Byte;
Version: Byte;
TimeStamp: SmallInt;
End;

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-19

• #6

...