mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
44 lines
620 B
ObjectPascal
44 lines
620 B
ObjectPascal
|
unit Service3U;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
ServicesInterfaceU;
|
||
|
|
|
||
|
|
type
|
||
|
|
TCommonService = class(TInterfacedObject, ICommonService)
|
||
|
|
private
|
||
|
|
FID: string;
|
||
|
|
public
|
||
|
|
constructor Create;
|
||
|
|
destructor Destroy; override;
|
||
|
|
function GetID: string;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.SysUtils, MVCFramework.Logger;
|
||
|
|
|
||
|
|
{ TService3 }
|
||
|
|
|
||
|
|
constructor TCommonService.Create;
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
LogI('creating ' + ClassName);
|
||
|
|
FID := Random(1000).ToString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TCommonService.Destroy;
|
||
|
|
begin
|
||
|
|
LogI('destroing ' + ClassName);
|
||
|
|
inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TCommonService.GetID: string;
|
||
|
|
begin
|
||
|
|
Result := FID;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|