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

RxFPC: fix compile after last commit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5451 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-12-08 13:54:00 +00:00
parent 078466b678
commit 17b82f66f4
12 changed files with 192 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/rx/trunk/rxconfigvalues.pas
View File

@ -126,6 +126,7 @@ type
end;
implementation
uses rxconst;
{ TConfigValuesEnumerator }
@ -370,7 +371,7 @@ begin
if FDataType = cvtString then
Result:=FValue
else
raise Exception.CreateFmt('Variable %s is not string', [FName]);
raise Exception.CreateFmt(sVariableIsNotString, [FName]);
end;
procedure TConfigValue.SetAsBoolean(const AValue: boolean);
@ -440,7 +441,7 @@ begin
end
end
else
raise Exception.CreateFmt('Variable %s is not string', [FName]);
raise Exception.CreateFmt(sVariableIsNotString, [FName]);
end;
constructor TConfigValue.Create;