TDog

Delphi code posted by kai
created at 24 Mar 03:55

Edit | Back
1
2
3
4
5
6
7
8
9
TDog =
class(TAnimal)
  private
    FName: string;
  protected
    procedure SetName(const Name: string);
  public
    property Name: string read FName write SetName;
end;
179 Bytes in 3 ms with coderay