mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 16:25:54 +01:00
29 lines
504 B
ObjectPascal
29 lines
504 B
ObjectPascal
|
unit Service1U;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses ServicesInterfaceU, Spring.Container.Common;
|
||
|
|
|
||
|
|
type
|
||
|
|
TUsersService = class(TInterfacedObject, IUsersService)
|
||
|
|
protected
|
||
|
|
[Inject]
|
||
|
|
fCommonService: ICommonService;
|
||
|
|
public
|
||
|
|
function GetUserNameByID(const ID: Integer): string;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.SysUtils;
|
||
|
|
|
||
|
|
{ TUsersService }
|
||
|
|
|
||
|
|
function TUsersService.GetUserNameByID(const ID: Integer): string;
|
||
|
|
begin
|
||
|
|
Result := Format('User #%d (CommonServiceID = %s)', [ID, fCommonService.GetID]);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|