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

Unify resource strings in wst_consts.pas

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@902 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-07-09 14:10:58 +00:00
parent 3b875dfea2
commit eda0eb7910
11 changed files with 129 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
wst/trunk/ws_helper/pascal_parser_intf.pas
View File

@@ -208,7 +208,8 @@ type
function CreateWstInterfaceSymbolTable(AContainer : TwstPasTreeContainer) : TPasModule;
implementation
uses parserutils, wst_types;
uses
parserutils, wst_types, wst_consts;
const
SIMPLE_TYPES_COUNT = 14;
@@ -559,7 +560,7 @@ function MakeInternalSymbolNameFrom(const AName : string) : string ;
begin
Result := ExtractIdentifier(AName);
if IsStrEmpty(AName) then begin
raise ESymbolException.CreateFmt('Unable to make an internal symbol Name from "%s".',[AName]);
raise ESymbolException.CreateFmt(SERR_CannotMakeInternalSymbolName,[AName]);
end;
if IsReservedKeyWord(Result) then begin
Result := '_' + Result;
@@ -830,7 +831,7 @@ function TwstPasTreeContainer.AddBinding(const AName : string; AIntf : TPasClass
begin
Result := FindBinding(AName);
if Assigned(Result) then begin
raise Exception.CreateFmt('Duplicated binding : "%s"',[AName]);
raise Exception.CreateFmt(SERR_DuplicateBindingName,[AName]);
end;
Result := TwstBinding.Create(AName, AIntf, AIntf.Parent);
FBindingList.Add(Result);