mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
76 lines
2.0 KiB
ObjectPascal
76 lines
2.0 KiB
ObjectPascal
unit EntitiesU;
|
|
|
|
interface
|
|
|
|
uses
|
|
MVCFramework.Serializer.Commons,
|
|
System.Generics.Collections,
|
|
MVCFramework.Swagger.Commons;
|
|
|
|
type
|
|
|
|
[MVCNameCase(ncLowerCase)]
|
|
TCustomer = class
|
|
private
|
|
fID: Integer;
|
|
fCustomerName: String;
|
|
fCountry: String;
|
|
fContactName: String;
|
|
public
|
|
function IsValid: Boolean;
|
|
[MVCSwagJSONSchemaField(stInteger, 'id', 'Customer ID', True)]
|
|
property ID: Integer read fID write fID;
|
|
[MVCSwagJSONSchemaField(stString, 'customername', 'The registered name of the customer', True)]
|
|
property CustomerName: String read fCustomerName write fCustomerName;
|
|
[MVCSwagJSONSchemaField(stString, 'contactname', 'Fullname of the customer''s contact', False)]
|
|
property ContactName: String read fContactName write fContactName;
|
|
[MVCSwagJSONSchemaField(stString, 'country', 'The country where the company is registered', True)]
|
|
property Country: String read fCountry write fCountry;
|
|
end;
|
|
|
|
[MVCNameCase(ncLowerCase)]
|
|
TCustomers = class(TObjectList<TCustomer>)
|
|
end;
|
|
|
|
function GetCustomer(const ID: Integer): TCustomer;
|
|
function GetCustomers: TCustomers;
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.Math, System.SysUtils;
|
|
|
|
const
|
|
CONTACT_NAMES: array [0 .. 2] of string = ('Daniele Teti', 'Peter Parker', 'Bruce Banner');
|
|
CONTRIES: array [0 .. 2] of string = ('ITALY', 'USA', 'United Kingdom');
|
|
CUSTOMER_NAMES: array [0 .. 2] of string = ('bit Time Professionals s.r.l.', 'Spidey Ltd.', 'Green Power Corp.');
|
|
|
|
function GetCustomer(const ID: Integer): TCustomer;
|
|
begin
|
|
Result := TCustomer.Create;
|
|
Result.ID := ID;
|
|
Result.CustomerName := CUSTOMER_NAMES[Random(3)];
|
|
Result.Country := CONTRIES[Random(3)];
|
|
Result.ContactName := CONTACT_NAMES[Random(3)];
|
|
end;
|
|
|
|
function GetCustomers: TCustomers;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
Result := TCustomers.Create(True);
|
|
for I := 1 to 3 do
|
|
begin
|
|
Result.Add(GetCustomer(I));
|
|
end;
|
|
end;
|
|
|
|
{ TCustomer }
|
|
|
|
function TCustomer.IsValid: Boolean;
|
|
begin
|
|
Result := not(CustomerName.IsEmpty or Country.IsEmpty);
|
|
end;
|
|
|
|
end.
|