paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 22:20:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix spelling errors. Issue #0030258. Patch by Paul Gevers.

Browse Source 
git-svn-id: trunk@52489 -
This commit is contained in:
bart 2016-06-12 16:07:57 +00:00
parent 4706ec8505
commit 2a41a0e2f4
6 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/propedits.pp
View File

@ -3996,7 +3996,7 @@ begin
if obj is TPersistent then
Result:=TPersistent(obj)
else
raise EInvalidOperation.CreateFmt('List element %d is not a TPersistent decendant', [Index]);
raise EInvalidOperation.CreateFmt('List element %d is not a TPersistent descendant', [Index]);
end;
function TListPropertyEditor.CreateElementPropEditor(Index: integer

6
components/jcf2/Parse/BuildParseTree.pas
View File

@ -4836,7 +4836,7 @@ begin
lc := fcTokenList.FirstSolidToken;
if not IdentifierNext(peStrictness) then
raise TEParseError.Create('Expected identifer', lc);
raise TEParseError.Create('Expected identifier', lc);
PushNode(nIdentifier);
Recognise(IdentiferTokens);
@ -4867,7 +4867,7 @@ var
lbMore: boolean;
begin
if not (IdentifierNext(idAllowDirectives)) then
raise TEParseError.Create('Expected identifer', fcTokenList.FirstSolidToken);
raise TEParseError.Create('Expected identifier', fcTokenList.FirstSolidToken);
// a method name is an identifier
PushNode(nIdentifier);
@ -5079,7 +5079,7 @@ begin
lc := fcTokenList.FirstSolidToken;
if not (lc.TokenType in IdentiferTokens + [ttAtSign]) then
raise TEParseError.Create('Expected asm identifer', lc);
raise TEParseError.Create('Expected asm identifier', lc);
while (lc.TokenType in IdentiferTokens + [ttAtSign]) do
begin

4
components/lazdebuggergdbmi/cmdlinedebugger.pp
View File

@ -360,7 +360,7 @@ begin
except
on E: Exception do begin
FOutputBuf := E.Message;
DebugLn('Exeption while executing debugger: ', FOutputBuf);
DebugLn('Exception while executing debugger: ', FOutputBuf);
end;
end;
end;
@ -376,7 +376,7 @@ begin
try
FreeAndNil(FDbgProcess);
except
on E: Exception do DebugLn('Exeption while freeing debugger: ', E.Message);
on E: Exception do DebugLn('Exception while freeing debugger: ', E.Message);
end;
end;

2
components/lazutils/laz2_xmlread.pas
View File

@ -2798,7 +2798,7 @@ begin
SkipWhitespace;
CheckName([cnToken]);
if not AttDef.AddEnumToken(FName.Buffer, FName.Length) then
ValidationError('Duplicate token in enumerated attibute declaration', [], FName.Length);
ValidationError('Duplicate token in enumerated attribute declaration', [], FName.Length);
SkipWhitespace;
until not CheckForChar('|');
ExpectChar(')');

2
docs/xml/lcl/lresources.xml
View File

@ -2074,7 +2074,7 @@
</element>
<!-- function Visibility: public -->
<element name="TUTF8Parser.TokenComponentIdent">
<short>Parses an (possibly) qualified identifer, after a symbol has been parsed.</short>
<short>Parses an (possibly) qualified identifier, after a symbol has been parsed.</short>
<descr/>
<seealso/>
<errors>EParserError when Token is not toSymbol.

2
ide/codehelp.pas
View File

@ -3000,7 +3000,7 @@ function TCodeHelpManager.SourceToFPDocHint(Src: string; NestedComments: boolean
begin
case TokenID of
tkComment: Result:='comment';
tkIdentifier: Result:='identifer';
tkIdentifier: Result:='identifier';
tkKey: Result:='keyword';
tkNumber: Result:='number';
tkString: Result:='string';