moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-17 15:50:13 -05:00
Code Issues Releases Wiki Activity

Made test file nicer.

Browse Source
This commit is contained in:
Raymond 2010-09-11 14:05:28 +02:00
parent 6c40005b17
commit ffe9fd2b2a
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Tests/PS/messagebox.simba
View File

@ -1,4 +1,6 @@
program new; program new;
var
Value : string;
begin begin
ShowMessage('ShowMessage!'); ShowMessage('ShowMessage!');
Writeln('MessageBox -> '); Writeln('MessageBox -> ');
@ -14,4 +16,7 @@ begin
mrIgnore: Writeln('Pressed Ignore'); mrIgnore: Writeln('Pressed Ignore');
mrCancel: Writeln('pressed Cancel'); mrCancel: Writeln('pressed Cancel');
end; end;
Writeln('InputQuery -> ');
Value := 'Edit.. or not?';
Writeln(format('Result of inputquery = [%s] the value = [%s]',[booltostr(InputQuery('Enter something funny','ENTER HERE',value)),value]));
end. end.