paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 18:20:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Jedi code format: Fix typo.

Browse Source
This commit is contained in:
DomingoGP 2024-06-09 17:47:03 +02:00
parent da0c4ec917
commit 1edd541c58
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/jcf2/ReadWrite/Converter.pas
View File

@ -170,7 +170,7 @@ begin
on E: Exception do
begin
fbConvertError := True;
SendStatusMessage('', Format(lisMsgExpectionClassMsg, ['', E.Message]), mtException, -1, -1);
SendStatusMessage('', Format(lisMsgExceptionClassMsg, ['', E.Message]), mtException, -1, -1);
Exit;
end;
end;
@ -338,7 +338,7 @@ var
leParseError: TEParseError;
leMessageType: TStatusMessageType;
begin
lsMessage := Format(lisMsgExpectionClassMsg, [pe.ClassName, pe.Message]);
lsMessage := Format(lisMsgExceptionClassMsg, [pe.ClassName, pe.Message]);
if pe is TEParseError then
begin

2
components/jcf2/jcfbaseconsts.pas
View File

@ -36,7 +36,7 @@ const
lisMsgEmptyExceptEndBlock = 'Empty except..end block';
lisMsgEmptyFinallyEndBlock = 'Empty finally..end block';
lisMsgEmptyTryBlock = 'Empty try block';
lisMsgExpectionClassMsg = 'Exception %s %s';
lisMsgExceptionClassMsg = 'Exception %s %s';
lisMsgExceptionParsing = 'Exception parsing "%s": %s';
lisMsgExceptionTokenising = 'Exception tokenising "%s": %s';
lisMsgExistsAlreadyRemoveIt = '%s %s %s exists already. Remove it?';