delphi中如何定义类？如何继承类？
delphi中如何定义类？如何继承类？

[解决办法]
来个最简单的
TBudded = class
funtion GetName: String; virtual;
end;

TBuddedSon = class(TBudded)
funtion GetName: String; override;
end;

funtion TBudded.GetName: String;
begin
Result := 'Budded';
end;

funtion TBuddedSon.GetName: String;
begin
Result := 'Budded''s Son!';
end;

你还是找本书好好的看看，现在这情况，BBS救不了你