paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 16:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed typos: usefull

Browse Source 
git-svn-id: trunk@29446 -
This commit is contained in:
mattias 2011-02-10 09:43:23 +00:00
parent a92bf656be
commit 0e109ea1e1
5 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synregexpr.pas
View File

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

2
examples/testallform.pp
View File

@ -1909,7 +1909,7 @@ Memo1 := TMemo.Create(Self);
Lines.Text := #13#10+' WELCOME'+#13#10+ Lines.Text := #13#10+' WELCOME'+#13#10+
'You will find the component you want to test in the MainMenu'+ 'You will find the component you want to test in the MainMenu'+
' "Components". 60 components are mentioned, but all do not exist yet.'+ ' "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; //MaxLength := 0;
Name := 'Memo1'; Name := 'Memo1';
//OEMConvert := False; //OEMConvert := False;

2
ide/invertassigntool.pas
View File

@ -140,7 +140,7 @@ end;
function IsAWholeLine(ALine: String): Boolean; function IsAWholeLine(ALine: String): Boolean;
begin 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: // in the synedit, things like this don't happen:
// begin // begin
// if CallSomeFunction > 0 // if CallSomeFunction > 0

2
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -458,7 +458,7 @@ end;
The OpenFile API call returns false, if an error has occurred or the user has The OpenFile API call returns false, if an error has occurred or the user has
pressed cancel. If there was an error CommDlgExtendedError returns 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 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. buffer was too small, please select the files again). This is not acceptable.

2
lcl/interfaces/wince/winceextra.pp
View File

@ -23,7 +23,7 @@
Marc Weustink Marc Weustink
Abstract: 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. Not all functionalities are present,but only those neccessary for lcl to function.
} }
unit WinCEExtra; unit WinCEExtra;