paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 14:32:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Components, PascalScript: fixed typos

Browse Source 
git-svn-id: trunk@45907 -
This commit is contained in:
maxim 2014-07-18 00:08:08 +00:00
parent 2eec396f95
commit 09b0c35af0
5 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/PascalScript/Samples/Debug/ide_editor.pas
View File

@ -142,8 +142,8 @@ var
resourcestring
STR_TEXT_NOTFOUND = 'Text not found';
STR_UNNAMED = 'Unnamed';
STR_SUCCESSFULLY_COMPILED = 'Succesfully compiled';
STR_SUCCESSFULLY_EXECUTED = 'Succesfully executed';
STR_SUCCESSFULLY_COMPILED = 'Successfully compiled';
STR_SUCCESSFULLY_EXECUTED = 'Successfully executed';
STR_RUNTIME_ERROR='[Runtime error] %s(%d:%d), bytecode(%d:%d): %s'; //Birb
STR_FORM_TITLE = 'Editor';
STR_FORM_TITLE_RUNNING = 'Editor - Running';

4
components/PascalScript/Samples/IDE/ide_editor.pas
View File

@ -142,8 +142,8 @@ var
resourcestring
STR_TEXT_NOTFOUND = 'Text not found';
STR_UNNAMED = 'Unnamed';
STR_SUCCESSFULLY_COMPILED = 'Succesfully compiled';
STR_SUCCESSFULLY_EXECUTED = 'Succesfully executed';
STR_SUCCESSFULLY_COMPILED = 'Successfully compiled';
STR_SUCCESSFULLY_EXECUTED = 'Successfully executed';
STR_RUNTIME_ERROR='[Runtime error] %s(%d:%d), bytecode(%d:%d): %s'; //Birb
STR_FORM_TITLE = 'Editor';
STR_FORM_TITLE_RUNNING = 'Editor - Running';

4
components/PascalScript/Samples/Import/fMain.pas
View File

@ -223,7 +223,7 @@ begin
x1.AllowNoEnd := true;
if x1.Compile(s) then
begin
Outputtxt('Succesfully compiled');
Outputtxt('Successfully compiled');
xpre.AdjustMessages(x1);
OutputMsgs;
if not x1.GetOutput(s) then
@ -412,7 +412,7 @@ begin
x1.OnUses := MyOnUses;
if x1.Compile(s) then
begin
Memo2.Lines.Add('Succesfully compiled');
Memo2.Lines.Add('Successfully compiled');
xpre.AdjustMessages(x1);
OutputMsgs;
if not x1.GetOutput(s) then

4
components/PascalScript/Samples/Kylix/fMain.pas
View File

@ -142,7 +142,7 @@ begin
x1.OnExternalProc := DllExternalProc;
if x1.Compile(Memo1.Text) then
begin
Outputtxt('Succesfully compiled');
Outputtxt('Successfully compiled');
OutputMsgs;
if not x1.GetOutput(s) then
begin
@ -306,7 +306,7 @@ begin
x1.OnUses := MyOnUses;
if x1.Compile(Memo1.Text) then
begin
Memo2.Lines.Add('Succesfully compiled');
Memo2.Lines.Add('Successfully compiled');
OutputMsgs;
if not x1.GetOutput(s) then
begin

4
components/PascalScript/Samples/TestApp/fMain.pas
View File

@ -128,12 +128,12 @@ begin
if PSScript.Compile then
begin
OutputMessages;
Memo2.Lines.Add('Compiled succesfully');
Memo2.Lines.Add('Compiled successfully');
if not PSScript.Execute then
begin
Memo1.SelStart := PSScript.ExecErrorPosition;
Memo2.Lines.Add(PSScript.ExecErrorToString +' at '+Inttostr(PSScript.ExecErrorProcNo)+'.'+Inttostr(PSScript.ExecErrorByteCodePosition));
end else Memo2.Lines.Add('Succesfully executed');
end else Memo2.Lines.Add('Successfully executed');
end else
begin
OutputMessages;