1*2bcacabbSAdam Hornacek {* 2*2bcacabbSAdam Hornacek * CDDL HEADER START 3*2bcacabbSAdam Hornacek * 4*2bcacabbSAdam Hornacek * The contents of this file are subject to the terms of the 5*2bcacabbSAdam Hornacek * Common Development and Distribution License (the "License"). 6*2bcacabbSAdam Hornacek * You may not use this file except in compliance with the License. 7*2bcacabbSAdam Hornacek * 8*2bcacabbSAdam Hornacek * See LICENSE.txt included in this distribution for the specific 9*2bcacabbSAdam Hornacek * language governing permissions and limitations under the License. 10*2bcacabbSAdam Hornacek * 11*2bcacabbSAdam Hornacek * When distributing Covered Code, include this CDDL HEADER in each 12*2bcacabbSAdam Hornacek * file and include the License file at LICENSE.txt. 13*2bcacabbSAdam Hornacek * If applicable, add the following below this CDDL HEADER, with the 14*2bcacabbSAdam Hornacek * fields enclosed by brackets "[]" replaced with your own identifying 15*2bcacabbSAdam Hornacek * information: Portions Copyright [yyyy] [name of copyright owner] 16*2bcacabbSAdam Hornacek * 17*2bcacabbSAdam Hornacek * CDDL HEADER END 18*2bcacabbSAdam Hornacek *} 19*2bcacabbSAdam Hornacek 20*2bcacabbSAdam Hornacek // Copyright (c) 2016, Oracle and/or its affiliates. All rights reserved. 21*2bcacabbSAdam Hornacek 22*2bcacabbSAdam Hornacek unit Sample; 23*2bcacabbSAdam Hornacek uses 24*2bcacabbSAdam Hornacek User; 25*2bcacabbSAdam Hornacek 26*2bcacabbSAdam Hornacek interface 27*2bcacabbSAdam Hornacek type 28*2bcacabbSAdam Hornacek TSample = class 29*2bcacabbSAdam Hornacek private 30*2bcacabbSAdam Hornacek FId : integer; 31*2bcacabbSAdam Hornacek FDescription : String; 32*2bcacabbSAdam Hornacek FUserId: integer; GetId()33*2bcacabbSAdam Hornacek function GetId : integer; 34*2bcacabbSAdam Hornacek procedure SetId(const aValue : integer); 35*2bcacabbSAdam Hornacek public GetClassName()36*2bcacabbSAdam Hornacek class function GetClassName: string; GetIdAndDescriptionString()37*2bcacabbSAdam Hornacek function GetIdAndDescriptionString: string; virtual; GetUser()38*2bcacabbSAdam Hornacek function GetUser: TUser; 39*2bcacabbSAdam Hornacek published 40*2bcacabbSAdam Hornacek property Id: integer read GetId write SetId; 41*2bcacabbSAdam Hornacek property Description: string read FDescription write FDescription; 42*2bcacabbSAdam Hornacek end; 43*2bcacabbSAdam Hornacek 44*2bcacabbSAdam Hornacek implementation 45*2bcacabbSAdam Hornacek uses 46*2bcacabbSAdam Hornacek Logging; 47*2bcacabbSAdam Hornacek GetIdnull48*2bcacabbSAdam Hornacekfunction TSample.GetId: integer; 49*2bcacabbSAdam Hornacek begin 50*2bcacabbSAdam Hornacek Result := FId; 51*2bcacabbSAdam Hornacek end; 52*2bcacabbSAdam Hornacek 53*2bcacabbSAdam Hornacek procedure TSample.SetId(const aValue: integer); 54*2bcacabbSAdam Hornacek begin 55*2bcacabbSAdam Hornacek FId := aValue; 56*2bcacabbSAdam Hornacek end; 57*2bcacabbSAdam Hornacek TSample.GetClassName()58*2bcacabbSAdam Hornacekclass function TSample.GetClassName: string; 59*2bcacabbSAdam Hornacek begin 60*2bcacabbSAdam Hornacek Result := 'TSample'; 61*2bcacabbSAdam Hornacek end; 62*2bcacabbSAdam Hornacek GetUsernull63*2bcacabbSAdam Hornacekfunction TSample.GetUser: TUser; 64*2bcacabbSAdam Hornacek begin 65*2bcacabbSAdam Hornacek Result := TUser.Create(FUserId); 66*2bcacabbSAdam Hornacek end; 67*2bcacabbSAdam Hornacek 68*2bcacabbSAdam Hornacek end. 69