Resource Basics

Resource Details

Author Information

Script

procedure SaySimple;
begin
  Say('Hello world');
  Say2('Hello', 'World');
  Say3('Hello', 'World', 'what a wonderful world');
end;

procedure AskSimple;
begin
  if Ask('This is a question. What''s your answer?') then
    Say('you clicked Yes')
  else
    Say('you clicked No');
end;

procedure AskCustomList;
var
  ASl: TTntStringList;
  AChecked: Boolean;
  ARes: Integer;
begin
  AChecked := True;
  ASl := TTntStringList.Create;
  ASl.Add('john');
  ASl.Add('jane');
  ASl.Add('baby');
  ASl.Add('janie');
  ASl.Add('johnny');
  ARes := AskCustom(
            'select option',
            'sub text',
            '',   // 'info text'
            '',   // 'check this'
            AChecked,
            ASl
          );
  if (ARes <> -1) and (ARes <> -99 {cancel}) then
  begin
    Say('You clicked: ' + ASl.Strings[ARes]);
  end;
  ASl.Free;
end;

procedure AskCustomChecked;
var
  ASl: TTntStringList;
  AChecked: Boolean;
  ARes: Integer;
begin
  AChecked := True;
  ASl := TTntStringList.Create;
  ASl.Add('?john');
  ASl.Add('?jane');
  ASl.Add('?baby');
  ASl.Add('?janie');
  ASl.Add('?johnny');
  ARes := AskCustom(
            'select option',
            'sub text',
            '',   // 'info text'
            '',   // 'check this'
            AChecked,
            ASl
          );
  if ARes <> -1 then
  begin
    Say(ASl.Text);
  end;
  ASl.Free;
end;

SaySimple;
AskSimple;
AskCustomList;
AskCustomChecked;