mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-31 18:56:10 +02:00
Fix typo. Emtpy -> Empty
git-svn-id: trunk@43503 -
This commit is contained in:
parent
032e431f63
commit
1749b9b22a
@ -778,7 +778,7 @@ begin
|
||||
NearestAVLNodeBehind:=NearestAVLNode;
|
||||
end;
|
||||
|
||||
// choose the nearest of both (distance measured in emtpy lines,
|
||||
// choose the nearest of both (distance measured in empty lines,
|
||||
// this way blocks of procs are kept)
|
||||
if (NearestAVLNodeInFront<>nil) and (NearestAVLNodeBehind<>nil) then
|
||||
begin
|
||||
@ -5521,7 +5521,7 @@ begin
|
||||
ProcBodyNodes:=GatherProcNodes(TypeSectionNode,
|
||||
[phpInUpperCase,phpIgnoreForwards,phpOnlyWithClassname],
|
||||
ExtractClassName(CodeCompleteClassNode,true));
|
||||
// collect all emtpy bodies
|
||||
// collect all empty bodies
|
||||
AVLNode:=ProcBodyNodes.FindLowest;
|
||||
while AVLNode<>nil do begin
|
||||
NextAVLNode:=ProcBodyNodes.FindSuccessor(AVLNode);
|
||||
|
@ -340,7 +340,7 @@ end;
|
||||
|
||||
procedure ClearDanglingEvents(ListOfPInstancePropInfo: TFPList);
|
||||
const
|
||||
EmtpyMethod: TMethod = (code:nil; data:nil);
|
||||
EmptyMethod: TMethod = (code:nil; data:nil);
|
||||
var
|
||||
i: Integer;
|
||||
p: PInstancePropInfo;
|
||||
@ -349,7 +349,7 @@ begin
|
||||
for i:=0 to ListOfPInstancePropInfo.Count-1 do begin
|
||||
p:=PInstancePropInfo(ListOfPInstancePropInfo[i]);
|
||||
debugln('ClearDanglingEvents ',DbgSName(p^.Instance),' ',p^.PropInfo^.Name);
|
||||
SetMethodProp(p^.Instance,p^.PropInfo,EmtpyMethod);
|
||||
SetMethodProp(p^.Instance,p^.PropInfo,EmptyMethod);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
@ -2106,7 +2106,7 @@ resourcestring
|
||||
lisErrorLoadingFile2 = 'Error loading file "%s":%s%s';
|
||||
lisNoneClickToChooseOne = 'none, click to choose one';
|
||||
lisTreeNeedsRefresh = 'Tree needs refresh';
|
||||
lisEMDEmtpyMethods = 'Emtpy Methods';
|
||||
lisEMDEmtpyMethods = 'Empty Methods';
|
||||
lisEMDSearchInTheseClassSections = 'Search in these class sections:';
|
||||
lisUnableToLoadPackage = 'Unable to load package %s%s%s';
|
||||
lisSAMThisMethodCanNotBeOverriddenBecauseItIsDefinedInTh = 'This method can '
|
||||
|
Loading…
Reference in New Issue
Block a user