接口的初次利用.

此次接口的利用当中练习到了:
1.利用对接口的实现.2.对接口方法在类中改名(方法别名).3.异常的利用.
EConvertError 异常.当试图用转换函数把数据从一种形式转换为另一种形式时引发,特别是当把一个字符串转换为数值时引发。

ITest =interface (Iinterface)

['{5578FA85-1544-4B49-8DE2-5ABC4AE261B3}']

function MathTest(Value:Integer;var Str:string):Boolean;

end;

TypeTest = class(TInterfacedObject,ITest)

function MathValue(Value:Integer;var Str:string):Boolean; 在类中实现接口方法的函数名称.

function ITest.MathTest =MathValue; //实现在此类中的方法别名

end;

function TypeTest.MathValue(Value: Integer;var Str:string): Boolean;

begin

Str:=IntToStr(Value);

if Str <> '' then

Result:=True

else

raise EConvertError.Create('请输入正常的值');

end;

procedure TForm1.btn1Click(Sender: TObject);

var

Math:TypeTest;

S:string;

begin

Math:=TypeTest.Create;

Math.MathValue(123456789,S);

ShowMessage(S);

end;

注意: 如果需要在类中对接口函数使用"别名".那么就要使用"别名"来实现例程.

posted on 2009-04-07 16:33 Archer 阅读(253) 评论(0) 编辑收藏引用所属分类: Interface 接口的学习与运用

只有注册用户登录后才能发表评论。

导航