delphi 自定义类的问题

Question

我想定义一个user类，有uname,upwd,unum,ename,epwd,ehost这六个属性，unum是integer，剩下的都是string，六个属性都要可以直接从外部修改。还有两个procedure:Saveu,Delu,告诉我在哪里写就行了，这个我会写。
请把其他部分的代码也写一下，我搞不太清这个自定义类在什么地方声明。
谢谢谢谢！！！！

Answer 1

Type
TUser=Class(TObject)
private
public
property uName:String Read FuName Write FuName;
property uPwd:String Read FuPwd Write FuPwd;
property uNum:Integer Read FuNum Write FuNum;
property eName:String Read FeName Write FeName;
property ePwd:String Read FePwd Write FePwd;
property eHost:String Read FeHost Write FeHost;

procedure saveu;
procedure Delu;
end;

新建一个单元,在interface下输完上面的类结构代码后,把光标放在某一个属性或者方法,然后按Shift+Ctrl+C,Delphi会生成一个完整的类框架.你只需要在你的Saveu和Delu方法里写代码就行了.
上面的属性都是Read write一个变量,你可以把变量改成方法,看你怎么处理了.

Answer 2

unit User;

interface

uses
windows,sysutils;

Type
TUser=Class(TObject)
private
protected
FuName:string;
FuPwd:string;
FuNum:Integer;
FeName:String;
FePwd:String;
FeHost:String;
public
property uName:String Read FuName Write FuName;
property uPwd:String Read FuPwd Write FuPwd;
property uNum:Integer Read FuNum Write FuNum;
property eName:String Read FeName Write FeName;
property ePwd:String Read FePwd Write FePwd;
property eHost:String Read FeHost Write FeHost;

procedure saveu;
procedure Delu;
end;
implementation

procedure TUser.saveu;
begin

end;

procedure TUser.Delu;
begin

end;本回答被提问者和网友采纳

Answer 3

自定义的类最好放在某个独立的单元（没有对应的窗体文件）中。

类的声明放在implementation之前，类中过程、函数的实现代码，写在implementation之后。