Multiinputbox no funciona

[[José Luis Garcí]]

Hola compañeros , estaba intentando hacer funcionar el siguiente artículo http://www.humbug.in/stackoverflow/d...--1879427.html pero no lo logro me da el mensaje

[DCC Error] Unit1.pas(342): E2197 Constant object cannot be passed as var parameter

Me podéis ayudar, un saludo.

[ecfisa]

Hola José Luis.

Declara la cabecera del procedimiento de este modo:

Código Delphi [-]
procedure MultiInputBox(const Prompts: array of string; Values: array of string);

Saludos.

[ecfisa]

Hola José.

Me quede pensando... como te puse arriba no te va a dar error, y tampoco va a modificar los valores enviados. Pero aparentemente lo que desea el autor del código del enlace es cambiar el valor de las variables. De ese modo no le va a funcionar (al menos no en Delphi 7).

Creo que lo correcto sería:

Código Delphi [-]
procedure MultiInputBox(const Prompts: array of string; var Values: array of string);
var
  i: Integer;
begin
   for i := 0 to High(Prompts) do
     Values[i] := InputBox(Application.Title, Prompts[i], Values[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  vs: array of string;
begin
  SetLength(vs,3);
  vs[0]:= TimeToStr(Now); // (DefaultTime)
  vs[1]:= IntToStr(90);   // (DefaultPressure)
  vs[2]:= '';             // (DefaultName)
  MultiInputBox(['Time', 'Pressure', 'Name'], vs);
  //...
  // Mostrar valores
  ShowMessage(vs[0] + #10#13 + vs[1] + #10#13 + vs[2]);
end;

Saludos.

[[José Luis Garcí]]

Muchas gracias ecfisa, lo probare esta tarde en casa.

[[José Luis Garcí]]

Probado y Perfecto, muchísimas gracias.