JAVA程序员请教一个delphi面向对象开发问题

Question

比如：
我想做一个类来存储 用户信息 name,sex, age需要定义类， 然后使用它，如何定义，如何使用呢，请有面向对象开发DELPHI经验的同学指点
怎么做呢,这样么unit Unit2;interface 
  type
  public
               {
   property Aaa: String read getAaa write SetAaa;
             }
       end;
implementationend.然后如何调用呀unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  Unit2;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
     KKK: TUnit2;  ///是这样声明么，然后
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := 'sdfsd'     ;
 KKK.SetAaa('fsfs');  //是这样调用么，怎么吊呀
end;end.
请DELPHI的同学指点,谢谢

Answer 1

定义类的方式不对，建议你看看基本的object pascal的书，另外，如果没有其他操作，只有变量，定义纪录就可以了，不要用类。

Answer 2

Type
  TUseInfo = class(TObject)
  private
    FName : string;
    FAge : integer;
    FSex : string;
  public
    constructor Create;
    
    property Name : string read FName write FName;
    property Age : integer read FAge write FAge;
    property Sex : string read FSex write FSex
  end;调用： 
  var a : TUseInfo;
  
  a := TUseInfo.create;
  a.Name := 'jjj'

Answer 3

Delphi中创建的对象要手工释放
  var a : TUseInfo;
  
  a := TUseInfo.create;
  try
     a.Name := 'jjj'
  finally
     FreeAndNil(a);
  end;

Answer 4

最好要  orerride  Destroy

Answer 5

可以参考 mhj403(mhj) 的办法！