Mass typo fixes in strings for packages.

packages/fcl-base/examples/testhres.pp

@@ -24,7 +24,7 @@ begin
       else
         begin
         Writeln('Name          : ',ResolvedName);
-        Writeln('Addres        : ',AddressAsString);
+        Writeln('Address       : ',AddressAsString);
         Writeln('Address count : ',AddressCount);
         For I:=0 to AddressCount-1 do
           Writeln('Adress ',I:2,'     : ',NetAddrToStr(Addresses[I]));

packages/fcl-base/examples/testipc_client.pp

@@ -84,7 +84,7 @@ begin
     if xClient.SendRequest(MESSAGE_STOP, nil, 100) and
        not xClient.ServerRunning
     then
-      Writeln('Server was sucessfully stopped.')
+      Writeln('Server was successfully stopped.')
     else
       Writeln('ERROR: I could not stop the server.')
   finally

packages/fcl-base/examples/testnres.pp

@@ -24,7 +24,7 @@ begin
       else
         begin
         Writeln('Name          : ',ResolvedName);
-        Writeln('Addres        : ',AddressAsString);
+        Writeln('Address       : ',AddressAsString);
 {
         Writeln('Address count : ',);
         For I:=0 to AddressCount-1 do

packages/fcl-base/examples/testrhre.pp

@@ -24,7 +24,7 @@ begin
       else
         begin
         Writeln('Name          : ',ResolvedName);
-        Writeln('Addres        : ',AddressAsString);
+        Writeln('Address       : ',AddressAsString);
         Writeln('Address count : ',AddressCount);
         For I:=0 to AddressCount-1 do
           Writeln('Adress ',I:2,'     : ',HostAddrToStr(Addresses[I]));

packages/fcl-base/examples/testrnre.pp

@@ -24,7 +24,7 @@ begin
       else
         begin
         Writeln('Name          : ',ResolvedName);
-        Writeln('Addres        : ',AddressAsString);
+        Writeln('Address       : ',AddressAsString);
         Writeln('Alias count   : ',AliasCount);
         For I:=0 to AliasCount-1 do
           Writeln('Alias ',i:2,'  : ',Aliases[I]);

packages/fcl-base/src/bufstream.pp

@@ -682,7 +682,7 @@ begin
           // Update file size
           if FCacheStreamPosition>FCacheStreamSize then FCacheStreamSize:=FCacheStreamPosition;
 
-          Assert(pCache^.PageRealSize=FStreamCachePageSize,'This must not happend');
+          Assert(pCache^.PageRealSize=FStreamCachePageSize,'This must not happened');
           lNewBuffer:=PBYTE(@Buffer)+lAvailableInThisPage;
           Result:=lAvailableInThisPage+DoCacheWrite(lNewBuffer^,Count-lAvailableInThisPage);
           exit;

packages/fcl-json/examples/parsedemo.pp

@@ -28,7 +28,7 @@ begin
   Try
     J:=P.Parse;
     Try
-      Writeln('Parse succesful. Dumping JSON data : ');
+      Writeln('Parse successful. Dumping JSON data : ');
       If Assigned(J) then
         begin
         Writeln('Returned JSON structure has class : ',J.ClassName);

packages/fcl-passrc/examples/pasrewrite.pp

@@ -86,7 +86,7 @@ begin
   Writeln('-t --indent=N         Number of characters for indent (default 2)');
   Writeln('-c --config=filename  Read ini file with configuration');
   Writeln('-H --header=filename  Add file header using contents of file "filename"');
-  Writeln('--no-implementation   Skip generation of executeable code');
+  Writeln('--no-implementation   Skip generation of executable code');
   Writeln('--no-externalclass    Skip generation of external classes (write as regular class)');
   Writeln('--no-externalvar      Skip generation of external variables (write as regular variables)');
   Writeln('--no-externalfunction Skip generation of external functions (write as regular functions)');

packages/fcl-passrc/examples/test_parser.pp

@@ -305,7 +305,7 @@ procedure GetTPasExpr(lex:TPasExpr);
     pekFuncParams:begin lbrak:='('; rbrak:=')'; Result:=','; end;
     pekArrayParams:begin lbrak:='['; rbrak:=']'; Result:=','; end;
     pekListOfExp:Result:=',';
-    pekInherited:Result:=' InheriteD';
+    pekInherited:Result:=' InheritD';
     pekSelf:Result:=' SelF';
    end;
   end;

packages/fcl-passrc/src/pasresolveeval.pas

@@ -4698,7 +4698,7 @@ begin
       RaiseNotYetImplemented(20170518200951,Expr);
     end;
     {$IFDEF VerbosePasResEval}
-    writeln('TResExprEvaluator.Eval primitiv end result=',Result<>nil,' ',dbgs(Result));
+    writeln('TResExprEvaluator.Eval primitive end result=',Result<>nil,' ',dbgs(Result));
     {$ENDIF}
     end
   else if C=TNilExpr then

packages/fcl-passrc/tests/tcmoduleparser.pas

@@ -214,7 +214,7 @@ begin
   StartImplementation;
   Add('finalization');
   ParseUnit;
-  AssertNull('Have no initalization section',Module.InitializationSection);
+  AssertNull('Have no initialization section',Module.InitializationSection);
   AssertNotNull('Have finalization section',Module.FinalizationSection)
 end;
 

packages/fcl-process/src/fpsimpleservice.pp

@@ -116,7 +116,7 @@ Resourcestring
   SErrNoServiceClass   = 'Cannot run: No service thread class registered.';
   SErrRunNeedsOverride = 'Cannot run: Runservice must be overridden';
   SErrRunningService   = 'Error running service: %s';
-  SControlCodeReceived = 'Service: Recived control code %d';
+  SControlCodeReceived = 'Service: Received control code %d';
   SServicePaused       = 'Service received pause command.';
   SServiceContinued    = 'Service received continue command.';
 

packages/fcl-registry/tests/regtestbasics.pp

@@ -127,7 +127,7 @@ begin
     r.RootKey := HKEY_CURRENT_USER;
     r.OpenKey('FirstNode',false);
     s := r.ReadString('string1');
-    AssertEquals('Failed chaning empty string value to non-empty one', 'string_value_1',s);
+    AssertEquals('Failed changing empty string value to non-empty one', 'string_value_1',s);
 
     r.WriteString('string1', '');
     r.CloseKey;

packages/fcl-report/test/tcreportstreamer.pp

@@ -917,7 +917,7 @@ begin
   E := TJSONObject(FRD.NewElement('MyElement'));
 
   AssertSame('Current element not changed', E, FRD.CurrentElement);
-  AssertEquals('Reading non-existant boolean property', False, FRD.ReadBoolean('Bool', False));
+  AssertEquals('Reading non-existent boolean property', False, FRD.ReadBoolean('Bool', False));
   AssertSame('Current element not changed', E, FRD.CurrentElement);
 end;
 
@@ -953,7 +953,7 @@ begin
   E := TJSONObject(FRD.NewElement('MyElement'));
 
   AssertSame('Current element not changed', E, FRD.CurrentElement);
-  AssertEquals('Reading non existant float property', 2.34, FRD.ReadFloat('Float', 2.34), 0.001);
+  AssertEquals('Reading non existent float property', 2.34, FRD.ReadFloat('Float', 2.34), 0.001);
   AssertSame('Current element not changed', E, FRD.CurrentElement);
 end;
 

packages/fcl-sdo/tests/test_suite/test_serializer.pas

@@ -3002,7 +3002,7 @@ begin
   depLs := compObj.getList('departments');
   depObj := compObj.createDataObject('departments');
   depLs.append(depObj);
-  depObj.setString('name','RAD Departement');
+  depObj.setString('name','RAD Department');
   depObj.setString('location','Moon');
   depObj.setInteger('number',2);
     empLs := depObj.getList('employees');
@@ -3030,7 +3030,7 @@ begin
 
   depObj := compObj.createDataObject('departments');
   depLs.append(depObj);
-  depObj.setString('name','Sales Departement');
+  depObj.setString('name','Sales Department');
   depObj.setString('location','Mars');
   depObj.setInteger('number',2);
     empLs := depObj.getList('employees');

packages/fcl-sdo/tests/test_suite/test_type.pas

@@ -1489,7 +1489,7 @@ begin
           ok := True;
         end;
       end;
-      Check(ok, 'Succefully create a object who''s type tree contains circular dependency.');
+      Check(ok, 'Successfully create a object who''s type tree contains circular dependency.');
       locTypeX := locFac.getType(s_uri,'B') as ISDOObjectType;
       locTypeX.DropProperty(locTypeX.getProperty('p_BA'));
       locFac := nil;
@@ -1518,7 +1518,7 @@ begin
             ok := True;
           end;
         end;
-        Check(ok, 'Succefully create a object who''s type tree contains circular dependency.');
+        Check(ok, 'Successfully create a object who''s type tree contains circular dependency.');
         locTypeX := locFac.getType(s_uri,'C') as ISDOObjectType;
         locTypeX.DropProperty(locTypeX.getProperty('p_CA'));
         locFac := nil;
@@ -1538,7 +1538,7 @@ begin
             ok := True;
           end;
         end;
-        Check(ok, 'Succefully create a object who''s type tree contains circular dependency.');
+        Check(ok, 'Successfully create a object who''s type tree contains circular dependency.');
         locTypeX := locFac.getType(s_uri,'C') as ISDOObjectType;
         locTypeX.DropProperty(locTypeX.getProperty('p_CB'));
         locFac := nil;
@@ -1568,7 +1568,7 @@ begin
         on  e : ESDOCircularDependencyTypeException do
           ok := True
       end;
-      Check(ok, 'Succefully create a object who''s type tree contains circular dependency.');
+      Check(ok, 'Successfully create a object who''s type tree contains circular dependency.');
 end;
 
 procedure TSDOBaseDataFactory_Test.check_circular_dependy_4();
@@ -1593,7 +1593,7 @@ begin
       ok := True;
     end;
   end;
-  Check(ok, 'Succefully create a object who''s type contains circular dependency.');
+  Check(ok, 'Successfully create a object who''s type contains circular dependency.');
   locTypeX := locFac.getType(s_uri,'A') as ISDOObjectType;
   locTypeX.DropProperty(locTypeX.getProperty('p_circular'));
 end;

packages/fcl-web/examples/routing/routes.pp

@@ -134,13 +134,13 @@ end;
 Procedure ParamPath(ARequest : TRequest; AResponse : TResponse);
 
 begin
-  RequestToResponse('Parametrized path (onepath/:param)',ARequest,AResponse,['param']);
+  RequestToResponse('Parameterized path (onepath/:param)',ARequest,AResponse,['param']);
 end;
 
 Procedure ParamPaths2(ARequest : TRequest; AResponse : TResponse);
 
 begin
-  RequestToResponse('Parametrized path (onepath/:param)',ARequest,AResponse,['param1','param2']);
+  RequestToResponse('Parameterized path (onepath/:param)',ARequest,AResponse,['param1','param2']);
 end;
 
 Procedure ComponentPath(AData : Pointer; ARequest : TRequest; AResponse : TResponse);

packages/fpgtk/examples/lister.pp

@@ -299,7 +299,7 @@ begin
   om.Menu := NewMenu ('Selection Mode', [
                  NewMenuItem ('Single',@CList_SelectionMode, inttopointer(0)),
                  NewMenuItem ('Browse',@CList_SelectionMode, inttopointer(1)),
-                 NewMenuItem ('Mutiple',@CList_SelectionMode, inttopointer(2)),
+                 NewMenuItem ('Multiple',@CList_SelectionMode, inttopointer(2)),
                  NewMenuItem ('Extended',@CList_SelectionMode, inttopointer(3))]);
   om.SetHistory (0);
   CList.CList.SelectionMode := GTK_SELECTION_SINGLE;
@@ -348,7 +348,7 @@ begin
   om.Menu := NewMenu ('Selection Mode', [
                  NewMenuItem ('Single','','',@List_SelectionMode, inttopointer(0)),
                  NewMenuItem ('Browse','','',@List_SelectionMode, inttopointer(1)),
-                 NewMenuItem ('Mutiple','','',@List_SelectionMode, inttopointer(2)),
+                 NewMenuItem ('Multiple','','',@List_SelectionMode, inttopointer(2)),
                  NewMenuItem ('Extended','','',@List_SelectionMode, inttopointer(3))]);
   om.SetHistory (0);
   List.List.SelectionMode := GTK_SELECTION_SINGLE;

packages/fpgtk/src/fpgtk.pp

@@ -2628,7 +2628,7 @@ Const
   sgrealize = 'realize';
   sgunrealize = 'unrealize';
   sgDrawFocus = 'draw-focus';
-  sgDrawDefault = 'draw-defaut';
+  sgDrawDefault = 'draw-default';
   sgParentSet = 'parent-set';
   sgGrabFocus = 'grab-focus';
   sgEvent = 'event';

packages/fpindexer/examples/TestIndexer.pp

@@ -126,7 +126,7 @@ begin
 
     endtime := Now;
     if N <> 0 then
-      writeln('indexing succesfull')
+      writeln('indexing successful')
     else
       writeln('error indexing.');
     writeln(Format('done in %.1f sec.', [(endtime - start) * 24 * 3600]));

packages/fpindexer/examples/docindexer.pp

@@ -169,7 +169,7 @@ begin
       end;
     endtime := Now;
     if N <> 0 then
-      WriteLog('Endexing succesful')
+      WriteLog('Endexing successful')
     else
       WriteLog('Error indexing or no words found...');
     WriteLog(Format('Done, indexed %d words in %d directories in %d sec.', [N,Length(FDirs),SecondsBetween(endtime,start)]));

packages/gitlab/examples/closetodo/closetodo.pp

@@ -173,7 +173,7 @@ begin
   Writeln('-c --config=FILE   Config file');
   Writeln('-h   --help        This help');
   Writeln('-l --list=FILE     if file exists, read todo IDS from list. If file does not exist, write file after querying gitlab');
-  Writeln('-n --no-write     Do not actaully change the TODO item');
+  Writeln('-n --no-write     Do not actually change the TODO item');
   Writeln('-q --quiet         less messages');
   Writeln('-s --state=STATE   State of issue coupled to TODO. default is "closed". If set to "any" all issues will be marked.');
 end;

packages/ide/fpide.pas

@@ -710,8 +710,8 @@ resourcestring  menu_local_gotosource = '~G~oto source';
                 label_colors_grp_clock        = 'Clock';
 
                 label_colors_clockview        = 'Clock view';
-                label_colors_highlighcolumn   = 'Higlight column';
-                label_colors_highlightrow     = 'Higlight row';
+                label_colors_highlighcolumn   = 'Highlight column';
+                label_colors_highlightrow     = 'Highlight row';
                 label_colors_errormessages    = 'Error message';
                 label_colors_helptext         = 'Text';
                 label_colors_helplinks        = 'Link';

packages/imagemagick/examples/wandpixelaccess.pas

@@ -18,7 +18,7 @@ var
   severity: ExceptionType;
 begin
   description := MagickGetException(wand, @severity);
-  WriteLn(Format('An error ocurred. Description: %s', [description]));
+  WriteLn(Format('An error occurred. Description: %s', [description]));
   description := MagickRelinquishMemory(description);
   Abort;
 end;

packages/objcrtl/examples/objcrtltest.pas

@@ -132,7 +132,7 @@ begin
   //  if InitializeObjcRtl20(DefaultObjCLibName) then // should be used of OSX 10.5 and iPhoneOS
 
   if InitializeObjcRtl10(DefaultObjCLibName) then // should be used of OSX 10.4 and lower
-    writeln('Objective-C runtime initialized successfuly')
+    writeln('Objective-C runtime initialized successfully')
   else begin
     writeln('failed to initialize Objective-C runtime');
     Halt;

packages/regexpr/tests/tcregexp.pp

@@ -246,7 +246,7 @@ const
 procedure TOrgTestRegexpr.TestEmpty;
 begin
   AssertNotNull('Have RE',RE);
-  AssertFalse('UseOsLineEndOnReplace correcly set', RE.UseOsLineEndOnReplace);
+  AssertFalse('UseOsLineEndOnReplace correctly set', RE.UseOsLineEndOnReplace);
 end;
 
 procedure TOrgTestRegexpr.RunTest1;

packages/rtl-console/src/amicommon/video.pp

@@ -248,7 +248,7 @@ begin
 
   {$ifdef VIDEODEBUG}
   If GetWindow <> nil then
-    WriteLn('DEBUG: Sucessfully opened videounit Window')
+    WriteLn('DEBUG: Successfully opened videounit Window')
   else
     WriteLn('ERROR: Failed to open videounit Window');
   {$endif}
@@ -340,7 +340,7 @@ begin
     ScreenColor := False;
 
     {$ifdef VIDEODEBUG}
-    Writeln('DEBUG: Fullscreen - windowed - Width * Heigth = ',ScreenWidth,' * ',ScreenHeight);
+    Writeln('DEBUG: Fullscreen - windowed - Width * Height = ',ScreenWidth,' * ',ScreenHeight);
     {$endif}
   end else
   begin

packages/vcl-compat/tests/utcregexapi.pas

@@ -280,7 +280,7 @@ begin
   AssertEquals('Match 0 group 1 length: ',2,M.Groups[1].Length);
   M2:=M.NextMatch;
   M:=MS[1];
-  AssertTrue('Match 1 resul: ',M.Success);
+  AssertTrue('Match 1 result: ',M.Success);
   AssertEquals('Match 1 value: ','abbba',M.Value);
   AssertEquals('NextMatch value: ','abbba',M2.Value);
   AssertEquals('Match 1 index: ',10,M.Index);
@@ -305,10 +305,10 @@ begin
   MS:=RegEx.Matches(TestStr,9);
   AssertEquals('Match count',2,MS.Count);
   M:=MS[0];
-  AssertTrue('Match 1 resul: ',M.Success);
+  AssertTrue('Match 1 result: ',M.Success);
   AssertEquals('Match 1 value: ','abbba',M.Value);
   M:=MS[1];
-  AssertTrue('Match 1 resul: ',M.Success);
+  AssertTrue('Match 1 result: ',M.Success);
   AssertEquals('Match 1 value: ','abbbba',M.Value);
 
 end;

packages/wasm-utils/src/wasm.regexp.objects.pas

@@ -197,7 +197,7 @@ function TWasmRegExp.CheckRegExpResult(Res: TWasmRegexpResult; const aOperation:
 begin
   Result:=Res=WASMRE_RESULT_SUCCESS;
   if (not Result) and aRaise then
-    Raise EWasmRegExp.CreateFmt('Error %d occured during "%s"',[Res,aOperation]);
+    Raise EWasmRegExp.CreateFmt('Error %d occurred during "%s"',[Res,aOperation]);
 end;
 
 constructor TWasmRegExp.Create(const aExpression, aFlags: String);