paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 00:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* spelling mistakes fpc repo part, mantis #30233

Browse Source 
git-svn-id: trunk@33882 -
This commit is contained in:
marco 2016-06-02 20:01:09 +00:00
parent af26a31251
commit 869d24f7d1
21 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fp.pas
View File

@ -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;

4
ide/fphelp.pas
View File

@ -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';

2
ide/wconstse.inc
View File

@ -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';

2
packages/cdrom/src/fpcddb.pp
View File

@ -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;

2
packages/fcl-db/src/base/dbconst.pas
View File

@ -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)';

2
packages/fcl-db/src/sqlite/sqliteds.pas
View File

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

2
packages/fcl-net/src/httpsvlt.pp
View File

@ -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;

2
packages/fcl-sdo/src/base/sdo_consts.pas
View File

@ -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".';

2
packages/fcl-sdo/src/base/sdo_xpath_helper.pas
View File

@ -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;

2
packages/fcl-xml/src/xmltextreader.pp
View File

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

2
packages/fcl-xml/tests/testgen.pp
View File

@ -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

2
packages/fv/src/editors.pas
View File

@ -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.';

2
packages/fv/src/strtxt.inc
View File

@ -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'),

2
rtl/macos/system.pp
View File

@ -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;

2
rtl/objpas/sysconst.pp
View File

@ -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';

2
utils/delp.pp
View File

@ -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;

2
utils/fpdoc/dglobals.pp
View File

@ -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';

2
utils/fpdoc/dwriter.pp
View File

@ -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")';

2
utils/fpdoc/fpclasschart.pp
View File

@ -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;

2
utils/fpdoc/makeskel.pp
View File

@ -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;

2
utils/fpdoc/unitdiff.pp
View File

@ -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;