asked on

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.

Sinisa Vuk

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...)

i7m

ASKER

Tried and got same result.

It displayed the the array item [1] only

Sinisa Vuk

Is this code works on Win platform? Could be Firemonkey issue.

i7m

ASKER

Yes Works Okay on Win32 Platform
Untitled.png

ASKER CERTIFIED SOLUTION

Sinisa Vuk