本人才学习Delphi不久
是一个十足的菜鸟。。
对于这些我都是半懂不懂..
感觉看代码还是看的懂
但是自己就是写不出来
所以恳请大神们帮我写出代码
我自己看看代码再领悟一下
下次争取自己能够写出来
谢谢各位大神们的帮助！！！
谢谢了！

type
    Tstudent=class
      
public
        procedure setage();
        procedure setname();
        procedure setsex();            
private
        age:integer;
        name:string;
        sex:boolean;
end;

class   procedure setage(nianlin:integer);
begin
        age:=nianlin;
end;

class   procedure setname(xingming:string);
begin
        name:=xingming;
end;

class   procedure setsex(xingbie:boolean);
begin
        sex:=xingbie;
end;

请问大神
这个代码怎么运行啊？？

不知道 运行耶..

type
   Tstudent=class
   private
          name:string;
          age:integer;
          sex:string;
   public
          function getname(mingzi:string):string;

          function getage(nianlin:integer):integer;

          function getsex(xingbie:string):string;

   end;


function Tstudent.getname(mingzi:string):string;
begin
  name:=mingzi;
end;

function Tstudent.getage(nianlin:integer):integer;
begin
  age:=nianlin;
end;

function Tstudent.getsex(xingbie:string):string;
begin
  sex:=xingbie;
end;

这是一个例子，全部的代码，编译通过的，你参考下：


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
   Tstudent=class
   private
          name:string;
          age:integer;
          sex:string;
   public
          function getname(mingzi:string):string;

          procedure getage(nianlin:integer);

          procedure getsex(xingbie:string);

   end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

function Tstudent.getname(mingzi:string):string;
begin
  name:=mingzi;
end;

procedure Tstudent.getage(nianlin:integer);
begin
  age:=nianlin;
end;

procedure Tstudent.getsex(xingbie:string);
begin
  sex:=xingbie;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  std:Tstudent;
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  std:=Tstudent.Create();
  std.getname('小明');
  std.getage(10);
  std.getsex('男');
  edit1.Text:=std.name;
  edit2.Text:=inttostr(std.age);
  edit3.Text:=std.sex;
end;

end.

谢谢，非常感谢