paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 01:28:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix some more spelling errors.

Browse Source 
git-svn-id: trunk@52490 -
This commit is contained in:
bart 2016-06-12 16:32:39 +00:00
parent 2a41a0e2f4
commit e12b65390b
6 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/finddeclarationtool.pas
View File

@ -3514,7 +3514,7 @@ function TFindDeclarationTool.FindIdentifierInContext(
Params: TFindDeclarationParams; var IdentFoundResult: TIdentifierFoundResult
): boolean;
{ searches an identifier in context node
It does not care about code in front of the identifier like 'a.Identifer'.
It does not care about code in front of the identifier like 'a.Identifier'.
Params:
Identifier

6
components/codetools/ide/codyidentifiersdlg.pas
View File

@ -233,7 +233,7 @@ type
TQuickFixIdentifierNotFoundShowDictionary = class(TMsgQuickFix)
public
function IsApplicable(Msg: TMessageLine; out Identifer: string): boolean;
function IsApplicable(Msg: TMessageLine; out Identifier: string): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix({%H-}Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
end;
@ -367,11 +367,11 @@ end;
{ TQuickFixIdentifierNotFoundShowDictionary }
function TQuickFixIdentifierNotFoundShowDictionary.IsApplicable(
Msg: TMessageLine; out Identifer: string): boolean;
Msg: TMessageLine; out Identifier: string): boolean;
var
Dummy: string;
begin
Result:=IDEFPCParser.MsgLineIsId(Msg,5000,Identifer,Dummy);
Result:=IDEFPCParser.MsgLineIsId(Msg,5000,Identifier,Dummy);
end;
procedure TQuickFixIdentifierNotFoundShowDictionary.CreateMenuItems(

2
components/debuggerintf/dbgintfdebuggerbase.pp
View File

@ -1889,7 +1889,7 @@ type
property OnCurrent: TDBGCurrentLineEvent read FOnCurrent write FOnCurrent; // Passes info about the current line being debugged
property OnDbgOutput: TDBGOutputEvent read FOnDbgOutput write FOnDbgOutput; // Passes all debuggeroutput
property OnDbgEvent: TDBGEventNotify read FOnDbgEvent write FOnDbgEvent; // Passes recognized debugger events, like library load or unload
property OnException: TDBGExceptionEvent read FOnException write FOnException; // Fires when the debugger received an exeption
property OnException: TDBGExceptionEvent read FOnException write FOnException; // Fires when the debugger received an ecxeption
property OnOutput: TDBGOutputEvent read FOnOutput write FOnOutput; // Passes all output of the debugged target
property OnBeforeState: TDebuggerStateChangedEvent read FOnBeforeState write FOnBeforeState; // Fires when the current state of the debugger changes
property OnState: TDebuggerStateChangedEvent read FOnState write FOnState; // Fires when the current state of the debugger changes

2
components/fpdebug/fpdbgdisasx86.pp
View File

@ -378,7 +378,7 @@ var
begin
case Mode of
0: begin
if rm = 6 // disp16 -> exeption to the regs
if rm = 6 // disp16 -> exception to the regs
then AddOperand('%s', ASize, 2, [hvfSigned, hvfIncludeHexchar], [ofMemory])
else AddOperand(REGS16[rm], ASize, 0, [], [ofMemory]);
end;

8
components/fpdebug/fppascalparser.pas
View File

@ -2255,8 +2255,8 @@ begin
// BinaryOperator...
// foo
// Identifer
// "Identifer" can hane a binary-op next. But it must be applied to the parent.
// Identifier
// "Identifier" can hane a binary-op next. But it must be applied to the parent.
// So it is not valid here.
// If new operator has a higher precedence, it go down to the child again and replace it
if (APrevPart.Parent <> nil) and (APrevPart.Parent.HasPrecedence) then
@ -2403,8 +2403,8 @@ begin
// BinaryOperator...
// foo
// Identifer
// "Identifer" can hane a binary-op next. But it must be applied to the parent.
// Identifier
// "Identifier" can hane a binary-op next. But it must be applied to the parent.
// So it is not valid here.
// If new operator has a higher precedence, it go down to the child again and replace it
if (APrevPart.Parent <> nil) and (APrevPart.Parent is TFpPascalExpressionPartOperator) then

2
components/synedit/synregexpr.pas
View File

@ -554,7 +554,7 @@ const
function ExecRegExpr (const ARegExpr, AInputStr : RegExprString) : boolean;
// true if string AInputString match regular expression ARegExpr
// ! will raise exeption if syntax errors in ARegExpr
// ! will raise exception if syntax errors in ARegExpr
procedure SplitRegExpr (const ARegExpr, AInputStr : RegExprString; APieces : TStrings);
// Split AInputStr into APieces by r.e. ARegExpr occurencies