mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 08:15:53 +01:00
80a0bc8f8c
ObjectMappers DataSetToObject support boolean types Sample\SoapRest Example application server providing both SOAP and REST webservices
45 lines
658 B
ObjectPascal
45 lines
658 B
ObjectPascal
unit WSHelperCustomersU;
|
|
|
|
interface
|
|
|
|
uses
|
|
BOCustomersU;
|
|
|
|
type
|
|
TWSHelperCustomers = class
|
|
public
|
|
function GetCustomers: TCustomers; overload;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.SysUtils;
|
|
|
|
{ TWSHelperCustomers }
|
|
|
|
function TWSHelperCustomers.GetCustomers: TCustomers;
|
|
var
|
|
Customer: TCustomer;
|
|
begin
|
|
Result := TCustomers.Create;
|
|
|
|
Customer := TCustomer.Create;
|
|
Customer.FirstName := 'Joe';
|
|
Customer.MiddleName := 'M';
|
|
Customer.Surname := 'Bloggs';
|
|
|
|
Result.Add(Customer);
|
|
|
|
Customer := TCustomer.Create;
|
|
Customer.FirstName := 'Mary';
|
|
Customer.MiddleName := 'J';
|
|
Customer.Surname := 'Jones';
|
|
|
|
Result.Add(Customer);
|
|
|
|
end;
|
|
|
|
|
|
end.
|