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

Replace property "store" prefix by sWST_PROP_STORE_PREFIX( = 'wstHas_')

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1340 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-10-11 12:23:49 +00:00
parent ed37484810
commit 040e7012bf
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2360,7 +2360,7 @@ var
Inc(locClassPropNbr);
if SymbolTable.IsOfType(p.VarType,TPasArrayType) then
Inc(locArrayPropsNbr);
if AnsiSameText('HAS',Copy(p.StoredAccessorName,1,3)) then
if AnsiSameText(sWST_PROP_STORE_PREFIX,Copy(p.StoredAccessorName,1,3)) then
Inc(locOptionalPropsNbr);
end;
end;
@ -2464,7 +2464,7 @@ var
IncIndent();
for k := 0 to Pred(locPropCount) do begin
p := TPasProperty(locPropList[k]);
if AnsiSameText('HAS',Copy(p.StoredAccessorName,1,3)) then begin
if AnsiSameText(sWST_PROP_STORE_PREFIX,Copy(p.StoredAccessorName,1,3)) then begin
Indent();
WriteLn('function %s() : Boolean;',[p.StoredAccessorName]);
end;
@ -2550,7 +2550,7 @@ var
end;
for k := 0 to Pred(locPropCount) do begin
p := TPasProperty(locPropList[k]);
if AnsiSameText('HAS',Copy(p.StoredAccessorName,1,3)) then begin
if AnsiSameText(sWST_PROP_STORE_PREFIX,Copy(p.StoredAccessorName,1,3)) then begin
NewLine();
WriteLn('function %s.%s() : Boolean;',[ASymbol.Name,p.StoredAccessorName]);
WriteLn('begin');