
03.11.2009, 22:26
|
Новичок
|
|
Регистрация: 24.02.2007
Сообщения: 57
Репутация: 10
|
|
Итак первое:
Код:
type
TMyClass = class
private
{ Private declarations }
public
procedure MyMetod(str:string);overload;
procedure MyMetod(str:string;i:integer);overload;
procedure MyMetod(str:string;i:integer;j:boolean);overload;
{ Public declarations }
end;
Третье:
Код:
type
TAbClass = class
private
{ Private declarations }
public
procedure MyMetod(str:string);virtual; abstract;
{ Public declarations }
end;
type
TAb1Class = class(TAbClass)
private
{ Private declarations }
public
procedure MyMetod(str:string);virtual;
{ Public declarations }
end;
|