* spelling mistakes fpc repo part, mantis #30233

git-svn-id: trunk@33882 -

ide/fp.pas

@@ -525,7 +525,7 @@ BEGIN
           end;
         if ideapp.displaymode=dmUser then
           begin
-            writeln('Fatal exception occured while in user screen mode. File save message boxes');
+            writeln('Fatal exception occurred while in user screen mode. File save message boxes');
             writeln('cannot be displayed. We are sorry, but need to terminate now.');
             halt(255);
           end;

ide/fphelp.pas

@@ -96,7 +96,7 @@ const
       hint_systemmenu        = 'System menu';
       hint_update            = 'Refresh and redraw display';
       hint_about             = 'Show version and copyright information';
-      hint_filemenu          = 'File managment commands (Open, New, Save, etc.)';
+      hint_filemenu          = 'File management commands (Open, New, Save, etc.)';
       hint_filenew           = 'Create a new file in a new edit window';
       hint_filenewfromtemplate='Create a new file using a code template';
       hint_fileopen          = 'Locate and open a file in an edit window';
@@ -204,7 +204,7 @@ const
       hint_openini           = 'Load a previously saved options file';
       hint_saveini           = 'Save all the changes made in the options menu';
       hint_saveasini         = 'Save all the changes made under a different name';
-      hint_windowmenu        = 'Windows managment commands';
+      hint_windowmenu        = 'Windows management commands';
       hint_tile              = 'Arrange windows on desktop by tiling';
       hint_cascade           = 'Arrange windows on desktop by cascading';
       hint_closeall          = 'Close all windows on the desktop';

ide/wconstse.inc

@@ -90,7 +90,7 @@
     label_name = '~N~ame';
 
     msg_searchstringnotfound = 'Search string not found.';
-    msg_replacethisoccourence = 'Replace this occurence?';
+    msg_replacethisoccourence = 'Replace this occurrence?';
     msg_fileexistsoverwrite = 'File %s already exists. Overwrite?';
     msg_readingwinclipboard = 'Reading windows clipboard';
     msg_copyingwinclipboard = 'Copying to windows clipboard';

packages/cdrom/src/fpcddb.pp

@@ -184,7 +184,7 @@ implementation
 Resourcestring
   SErrNoDisk         = 'No disk active';
   SErrInvalidTrackNo = 'Invalid track number: %d';
-  SErrParsingLine    = 'An error occured while parsing line %d of the response: %s';
+  SErrParsingLine    = 'An error occurred while parsing line %d of the response: %s';
   SErrCDDBResponse   = 'CDDB error in command response: %s';
 
 function DiscIDToStr(ID: Integer): String;

packages/fcl-db/src/base/dbconst.pas

@@ -87,7 +87,7 @@ Resourcestring
   SInvalidSearchFieldType  = 'Searching in fields of type %s is not supported';
   SDatasetEmpty            = 'The dataset is empty';
   SFieldIsNull             = 'The field is null';
-  SOnUpdateError           = 'An error occured while applying the updates in a record: %s';
+  SOnUpdateError           = 'An error occurred while applying the updates in a record: %s';
   SApplyRecNotSupported    = 'Applying updates is not supported by this TDataset descendent';
   SNoWhereFields           = 'No %s query specified and failed to generate one. (No fields for inclusion in where statement found)';
   SNoUpdateFields          = 'No %s query specified and failed to generate one. (No fields found for insert- or update-statement found)';

packages/fcl-db/src/sqlite/sqliteds.pas

@@ -325,7 +325,7 @@ begin
         Exit;
       end;
   else
-    Result := 'Unknow Return Value';
+    Result := 'Unknown Return Value';
   end;
   Result := Result + ' - ' + sqlite_error_string(FReturnCode);
 end;

packages/fcl-net/src/httpsvlt.pp

@@ -478,7 +478,7 @@ begin
     except
       on e: Exception do
       begin
-        s := 'An error occured: ' + ' ' + e.Message;
+        s := 'An error occurred: ' + ' ' + e.Message;
         ResponseHeader.ContentType := 'text/plain';
         ResponseStream.Write(s[1], Length(s));
       end;

packages/fcl-sdo/src/base/sdo_consts.pas

@@ -117,7 +117,7 @@ resourcestring
   SERR_OperationNotAllowedOnActivePool = 'Operation not allowed on an active pool.';
   SERR_ParamaterNotFound           = 'Parameter non found : "%s".';
   SERR_Parsing                     = 'Parsing "%s" ...';
-  SERR_RecordExtendedRttiNotFound  = 'Record extended RTTI informations not found in type registry : "%s".';
+  SERR_RecordExtendedRttiNotFound  = 'Record extended RTTI information not found in type registry : "%s".';
   SERR_RootObjectCannotBeNIL       = 'The root object cannot be NIL.';
   SERR_SchemaNodeRequiredAttribute = 'The Schema node must have at least the "%s" attribute.';
   SERR_SerializerInitializationException = 'Unable to initialize the serializer of that type : "%s".';

packages/fcl-sdo/src/base/sdo_xpath_helper.pas

@@ -1085,7 +1085,7 @@ var
     locTmpNode := FTermStack.Pop() as TXPathNode;
     if not locTmpNode.InheritsFrom(TXPathRigthSquareBraketNode) then begin
       FTermStack.Push(locTmpNode);
-      raise EXpathException.Create('Predicate begining expected.');
+      raise EXpathException.Create('Predicate beginning expected.');
     end;
     FreeAndNil(locTmpNode);
     locExp := FTermStack.Pop() as TXPathNode;

packages/fcl-xml/src/xmltextreader.pp

@@ -2211,7 +2211,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(')');

packages/fcl-xml/tests/testgen.pp

@@ -932,7 +932,7 @@ begin
       try
         ConvertTest(root, sl);
       except
-        Writeln('An exception occured while converting ', casename);
+        Writeln('An exception occurred while converting ', casename);
         raise;
       end;
       if sl.Count > 0 then

packages/fv/src/editors.pas

@@ -428,7 +428,7 @@ resourcestring  sClipboard='Clipboard';
                 sReformatNotPossible='Paragraph reformat not possible while trying to wrap current line with current margins.';
                 sReformattingTheDocument='Reformatting the document:';
                 sReplaceNotPossible='Wordwrap on:  Replace not possible in current margins when at end of line.';
-                sReplaceThisOccurence='Replace this occurence?';
+                sReplaceThisOccurence='Replace this occurrence?';
                 sRightMargin='Right Margin';
                 sSearchStringNotFound='Search string not found.';
                 sSelectWhereToBegin='Please select where to begin.';

packages/fv/src/strtxt.inc

@@ -75,7 +75,7 @@ const standard_string_count=107;
           (nr:sReplace;text:'Replace'),
           (nr:sReplaceFile;text:'Replace file?'#13#10#13#3'%s'),
           (nr:sReplaceNotPossible;text:'Wordwrap on:  Replace not possible in current margins when at end of line.'),
-          (nr:sReplaceThisOccurence;text:'Replace this occurence?'),
+          (nr:sReplaceThisOccurence;text:'Replace this occurrence?'),
           (nr:sRightMargin;text:'Right Margin'),
           (nr:sSaveAs;text:'Save As'),
           (nr:sScrollbarIcons;text:'Scroll bar icons'),

rtl/macos/system.pp

@@ -450,7 +450,7 @@ begin
           if IsConsole then
             Writeln( '### Program exited with exit code ' + s)
           else if macosHasSysDebugger then
-            DebugStr('A possible error occured, exit code: ' + s + '. Type "g" and return to continue.')
+            DebugStr('A possible error occurred, exit code: ' + s + '. Type "g" and return to continue.')
           else
             {Be quiet}
         end;

rtl/objpas/sysconst.pp

@@ -129,7 +129,7 @@ const
   SVarUnexpected                = 'Unexpected variant error';
   SZeroDivide                   = 'Floating point division by zero';
 
-  SFallbackError                = 'An error, whose error code is larger than can be returned to the OS, has occured';
+  SFallbackError                = 'An error, whose error code is larger than can be returned to the OS, has occurred';
 
   SNoToolserver                 = 'Toolserver is not installed, cannot execute Tool';
 

utils/delp.pp

@@ -167,7 +167,7 @@ begin
   writeln('  -r    Recurse into directories.');
   writeln('  -n    Do not actually delete files.');
   writeln('  -m N  Maximum depth to recurse into directories (1 based, zero is no max).');
-  writeln('  -q    Quietly perfoms deleting.');
+  writeln('  -q    Quietly performs deleting.');
   writeln('  -v    Verbose (print names of deleted files).');
   Halt(1);
 end;

utils/fpdoc/dglobals.pp

@@ -163,7 +163,7 @@ resourcestring
   SUsageOption140  = '--lang=lng        Select output language.';
   SUsageOption150  = '--ostarget=value  Set the target OS for the scanner.';
   SUsageOption160  = '--output=name     use name as the output name.';
-  SUsageOption170  = '                  Each backend interpretes this as needed.';
+  SUsageOption170  = '                  Each backend interprets this as needed.';
   SUsageOption180  = '--package=name    Set the package name for which to create output,';
   SUsageOption190  = '                  e.g. --package=fcl';
   SUsageOption200  = '--project=file    Use file as project file';

utils/fpdoc/dwriter.pp

@@ -28,7 +28,7 @@ interface
 uses Classes, DOM, dGlobals, PasTree, SysUtils;
 
 resourcestring
-  SErrFileWriting = 'An error occured during writing of file "%s": %s';
+  SErrFileWriting = 'An error occurred during writing of file "%s": %s';
 
   SErrInvalidShortDescr = 'Invalid short description';
   SErrInvalidDescr = 'Invalid description (illegal XML element: "%s")';

utils/fpdoc/fpclasschart.pp

@@ -712,7 +712,7 @@ begin
     if FileExists(MOFilename) then
       gettext.TranslateResourceStrings(MoFileName)
     else
-      writeln('NOTE: unable to find tranlation file ',MOFilename);
+      writeln('NOTE: unable to find translation file ',MOFilename);
     // Translate internal documentation strings
     TranslateDocStrings(DocLang);
     end;

utils/fpdoc/makeskel.pp

@@ -588,7 +588,7 @@ begin
     if FileExists(MOFilename) then
       gettext.TranslateResourceStrings(MoFileName)
     else
-      writeln('NOTE: unable to find tranlation file ',MOFilename);
+      writeln('NOTE: unable to find translation file ',MOFilename);
     // Translate internal documentation strings
     TranslateDocStrings(DocLang);
     end;

utils/fpdoc/unitdiff.pp

@@ -189,7 +189,7 @@ begin
     if FileExists(MOFilename) then
       gettext.TranslateResourceStrings(MoFileName)
     else
-      writeln('NOTE: unable to find tranlation file ',MOFilename);
+      writeln('NOTE: unable to find translation file ',MOFilename);
     // Translate internal documentation strings
     TranslateDocStrings(DocLang);
     end;