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

Question

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

Answer 1

来个最简单的
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救不了你