SRL Archive - Suggestions

MessageBox / ShowMessage pl0x? :)

we don't have Readln?

From: Bebe
we don't have Readln?

Nope. But I don't need that :D

I can't think of a lot of situations this would be handy.

From: CX gamer
I can't think of a lot of situations this would be handy.

Mainly useful if you use forms and whatnot in your script :)

Or right, I understand. Like for example when CheckUserNicks returns False, a user can choose wether to go back to the form to correct his mistake or to run the script anyway. :)

Added: MessageBox/MessageDlg/ShowMessage (and we already had InputQuery)..

See test-script:

program new;
var
  Value : string;
begin
  ShowMessage('ShowMessage!');
  Writeln('MessageBox -> ');
  case MessageBox('This is the text','My Caption', mbYesNoCancel) of
    mrYes : Writeln('Pressed yes!');
    mrNo  : Writeln('Pressed no!');
    mrCancel : Writeln('Pressed Cancel!');
  end;
  Writeln('MessageDlg -> ');
  case MessageDlg('Caption','Press a button!',mtError, [mbAbort,mbYes,mbIgnore]) of
    mrAbort : Writeln('Pressed abort!');
    mrYes   : Writeln('Pressed Yes');
    mrIgnore: Writeln('Pressed Ignore');
    mrCancel: Writeln('pressed Cancel');
  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.