fixed typos: usefull

git-svn-id: trunk@29446 -

components/synedit/synregexpr.pas

@@ -552,7 +552,7 @@ type
 
     property CompilerErrorPos : integer read GetCompilerErrorPos;
     // Returns pos in r.e. there compiler stopped.
-    // Usefull for error diagnostics
+    // Useful for error diagnostics
 
     property SpaceChars : RegExprString read fSpaceChars write fSpaceChars; //###0.927
     // Contains chars, treated as /s (initially filled with RegExprSpaceChars
@@ -578,7 +578,7 @@ type
     // Create set it to RegExprInvertCaseFunction (InvertCaseFunction by default)
 
     procedure Compile; //###0.941
-    // [Re]compile r.e. Usefull for example for GUI r.e. editors (to check
+    // [Re]compile r.e. Useful for example for GUI r.e. editors (to check
     // all properties validity).
 
     {$IFDEF RegExpPCodeDump}
@@ -620,7 +620,7 @@ function ReplaceRegExpr (const ARegExpr, AInputStr, AReplaceStr : RegExprString;
 function QuoteRegExprMetaChars (const AStr : RegExprString) : RegExprString;
 // Replace all metachars with its safe representation,
 // for example 'abc$cd.(' converts into 'abc\$cd\.\('
-// This function usefull for r.e. autogeneration from
+// This function useful for r.e. autogeneration from
 // user input
 
 function RegExprSubExpressions (const ARegExpr : string;
@@ -635,7 +635,7 @@ function RegExprSubExpressions (const ARegExpr : string;
 //   if exist!
 // AExtendedSyntax - must be True if modifier /m will be On while
 // using the r.e.
-// Usefull for GUI editors of r.e. etc (You can find example of using
+// Useful for GUI editors of r.e. etc (You can find example of using
 // in TestRExp.dpr project)
 // Returns
 //  0      Success. No unbalanced brackets was found;
@@ -833,7 +833,7 @@ function RegExprSubExpressions (const ARegExpr : string;
   Result := 0; // no unbalanced brackets found at this very moment
 
   ASubExprs.Clear; // I don't think that adding to non empty list
-  // can be usefull, so I simplified algorithm to work only with empty list
+  // can be useful, so I simplified algorithm to work only with empty list
 
   Len := length (ARegExpr); // some optimization tricks
 

examples/testallform.pp

@@ -1909,7 +1909,7 @@ Memo1 := TMemo.Create(Self);
     Lines.Text     := #13#10+'                                     WELCOME'+#13#10+
                       'You will find the component you want to test in the MainMenu'+
                       ' "Components". 60 components are mentioned, but all do not exist yet.'+
-                      ' I hope this application will be usefull...'+#13#10+'Chris';
+                      ' I hope this application will be useful...'+#13#10+'Chris';
   //MaxLength	   := 0;
     Name	   := 'Memo1';
   //OEMConvert	   := False;

ide/invertassigntool.pas

@@ -140,7 +140,7 @@ end;
 
 function IsAWholeLine(ALine: String): Boolean;
 begin
-  // This function is usefull for when the text is put back
+  // This function is useful for when the text is put back
   // in the synedit, things like this don't happen:
   // begin
   //   if CallSomeFunction > 0

lcl/interfaces/win32/win32wsdialogs.pp

@@ -458,7 +458,7 @@ end;
 
  The OpenFile API call returns false, if an error has occurred or the user has
  pressed cancel. If there was an error CommDlgExtendedError returns
- FNERR_BUFFERTOOSMALL. But enlarging the buffer at that time is not usefull
+ FNERR_BUFFERTOOSMALL. But enlarging the buffer at that time is not useful
  anymore, unless you show the dialog again with a bigger buffer (Sorry, the
  buffer was too small, please select the files again). This is not acceptable.
 

lcl/interfaces/wince/winceextra.pp

@@ -23,7 +23,7 @@
           Marc Weustink
 
   Abstract:
-    Missing and usefull windows api are defined and emulated here.
+    Missing and useful windows api are defined and emulated here.
     Not all functionalities are present,but only those neccessary for lcl to function.
 }
 unit WinCEExtra;