请问：怎样再DELHPI中的一个UNIT中定义一个类？（最好有实例代码）

[benben1hao]

请问：怎样再DELHPI中的一个UNIT中定义一个类？（最好有实例代码）

[牧笛李]

仔细看看delphi的源代码，类都是定义在unit中的。

[初心2]

unit Unit2;

interface
uses
windows,QDialogs;

type
TAdd =class
private
fminvalue:integer;
fmaxvalue:integer;
procedure setminvalue(b:integer);
procedure setmaxvalue(a:integer);
public
property minvalue:integer read Fminvalue write SetMinvalue;
property maxvalue:integer read Fmaxvalue write Setmaxvalue;
function getmaxvalue:integer;
function addall:integer;//(minvalue,maxvalue:integer):integer;
constructor Create(cc:string); overload; //构造
// destructor Destroy ;override;// 这里可以不用的吗？

end;

implementation

{ TAdd }

function TAdd.addall:integer;//(minvalue, maxvalue: integer): integer;
var
i:integer;
begin
result:=0;
for i:=minvalue to maxvalue do
begin
result:=result+i;
end;
end;





constructor TAdd.Create(cc:string);

begin
showmessage(cc);
end;

function TAdd.getmaxvalue: integer;
begin
result:=maxvalue;
end;

procedure TAdd.setmaxvalue(a:integer);
begin
Fmaxvalue:=a;
end;

procedure TAdd.setminvalue(b:integer);
begin
Fminvalue:=b;
end;

end.

[ysycrazy]

unit Unit2;

interface
uses Forms;
type TMyclass=class(Tform)

end;
Student=record
xh:string;
xm:string;
nl:integer;
end;

implementation

end.

[benben1hao]

再问：我定义了一个类后，怎样实例化这个类，调用类中定义的对象???????

[foreveryday007]

clsAA: TClassAA;

clsAA := TClassAA.Create;

[benben1hao]

再请教一问：
我定义的函数为什么不能返回FLOAT类型？
代码如下：
type
TExpressionParsing=class(TObject)
public
function ExpParsing(strExp:string):float;

end;

[vargent77]

定义的函数应该是：
type
TExpressionParsing=class(TObject)
public
function ExpParsing(var strExp:TExpressionParsing):float;

end;

[ysycrazy]

var form1:tform;
begin
try
form1:=tfrom.create(application);
form1.show;
finally
from1.free;
end;
end;

[mbzdh]

问题都解决了，恭喜！

[大地精灵]

没有多大的问题，我就不来搅和了