Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #103 from User4martin/master

Browse Source 
Fixed spelling for Successfully
This commit is contained in:
Carlo Kok 2015-03-04 21:11:30 +01:00
commit c58ddc80f1
5 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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