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

Fix : AV in the implementation generator.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@876 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-06-29 10:42:54 +00:00
parent 73d1b45eb8
commit e5e00893ef
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
wst/trunk/ws_helper/generator.pas
View File

@ -1712,17 +1712,27 @@ var
end; end;
procedure GenerateRegistrationProc(); procedure GenerateRegistrationProc();
Var var
strBuff : string; strBuff, locClassName, locInterfName : string;
Begin Begin
NewLine(); NewLine();
BeginAutoIndent(); BeginAutoIndent();
strBuff := ExtractserviceName(AIntf); strBuff := ExtractserviceName(AIntf);
locClassName := strClassName;
locInterfName := QuotedStr(AIntf.Name);
NewLine(); NewLine();
WriteLn('procedure Register%sImplementationFactory();',[strBuff]); WriteLn('procedure Register%sImplementationFactory();',[strBuff]);
WriteLn('Begin'); WriteLn('Begin');
IncIndent(); IncIndent();
WriteLn('GetServiceImplementationRegistry().Register(%s,TImplementationFactory.Create(%s,wst_GetServiceConfigText(%s)) as IServiceImplementationFactory);',[QuotedStr(AIntf.Name),strClassName,QuotedStr(AIntf.Name)]); strBuff := Format(
'GetServiceImplementationRegistry().Register(' +
'%s,' +
'TImplementationFactory.Create(' +
'%s,wst_GetServiceConfigText(%s)' +
') as IServiceImplementationFactory);',
[locInterfName,locClassName,locInterfName]
);
WriteLn(strBuff);
DecIndent(); DecIndent();
WriteLn('End;'); WriteLn('End;');
EndAutoIndent(); EndAutoIndent();