Displays a dialog box containing multiple input fields..

in Delphi XE4 iOS Firemonkey mobile Application I need to show a dialog box with multiple input fields, here is my code, it always shows the dialog box with ONE input field

const
     S : array [1..2] of string = ('ContactName' , 'ContactNumber');
var
     V : Array [1..2] of string;
begin
     if InputQuery('Contact Details', S, V, nil) then
     begin
          // Do something ...
     end;
end;

Open in new window



I tried also

if InputQuery('Contact Details', S, V) then {removed the last parameter}

Open in new window


I got same result.

any Ideas?

Thanks in advance.
i7mAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Sinisa VukConnect With a Mentor Commented:
Then must be Firemonkey issue on iOS platform. Maybe you can ask on Embarcadero forum.
0
 
Sinisa VukCommented:
Try this one:
var
  Vars : array of String;
begin
  SetLength(Vars,2);
  //default
  Vars[0] := '';
  Vars[1] := '';

  if InputQuery('Contact Details', ['ContactName' , 'ContactNumber'], Vars, nil) then
  begin
    ....

Open in new window


http://docwiki.embarcadero.com/Libraries/XE2/en/Vcl.Dialogs.InputQuery
Think that string array must start from 0 index (Array [0..1] of...)
0
 
i7mAuthor Commented:
Tried and got same result.

It displayed the the array item [1] only
0
Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

 
Sinisa VukCommented:
Is this code works on Win platform? Could be Firemonkey issue.
0
 
i7mAuthor Commented:
Yes Works Okay on Win32 Platform
Untitled.png
0
 
i7mAuthor Commented:
I posted it as a bug on Embarcader's Quality Center. and waiting their. Thanks for your help.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.