pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Remove redundant casts, PtrInt -> Integer, IInterface in classes definitions (Thanks Juha) 1

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3891 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-01-19 09:31:59 +00:00
parent f5e5b7dc75
commit 8b22dded32
36 changed files with 105 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/server_binary_formatter.pas
View File

@ -63,7 +63,7 @@ Type
function TBinaryFormatterFactory.CreateInstance(): IInterface;
begin
Result := TBinaryFormatter.Create() as IFormatterResponse;
Result := TBinaryFormatter.Create();
end;
@ -134,7 +134,7 @@ end;
procedure Server_service_RegisterBinaryFormat();
begin
GetFormatterRegistry().Register(sPROTOCOL_NAME,sBINARY_CONTENT_TYPE,TBinaryFormatterFactory.Create() as IItemFactory);
GetFormatterRegistry().Register(sPROTOCOL_NAME,sBINARY_CONTENT_TYPE,TBinaryFormatterFactory.Create());
end;
Initialization