Array
(
    [0] => stdClass Object
        (
            [Votos_Balanceados] => 1
            [id] => 585824
            [titulo] => ListBox e Input
            [dataCadastro] => DateTime Object
                (
                    [date] => 2017-09-13 20:29:19
                    [timezone_type] => 3
                    [timezone] => America/Sao_Paulo
                )

            [isFirstPost] => -1
            [idUsuario] => 172200
            [status] => A
            [isExample] => -1
            [NomeUsuario] => LUIZ MARCELO VICHIATTO
            [Login] => lmvichiatto
            [Apelido] => Luiz Vichiatto
            [Foto] => Clipboard01.jpg
            [Conteudo] => [code]procedure TForm1.ListBox1Click(Sender: TObject);
var
s1 : string;
begin
s1 := ListBox1.Items.Strings[ListBox1.ItemIndex];
if (s1='1') then
s1 := inttostr( 2 * StrToInt(s1))
else if (s1='2') then
s1 := inttostr( 3 * StrToInt(s1))
else
s1:='Erro';

ShowMessage('Saida '+s1);

end;
[/code] ) )

ListBox e Input

Graal
   - 13 set 2017

Estou começando agora com o Delphi e por isso não conheço mesmo coisas básicas.
Tenho as duas Listbox, e para cada ver que uma delas e selecionada gostaria de abrir um input diferente, mais ou menos assim:
#Código

If

<<Primeira opção ListBox1 acionada>>

n=inputBox('Entrada de dados', 'n');

a:=2*n

ShowMessage(a)

Else

<<Segunda opção ListBox1 acionada>>

n=inputBox('Entrada de dados', 'n');

b:=3*n

ShowMessage(a);

End.

Como posso fazer isso funcionar, qual comando devo usar?

Post mais votado

Luiz Vichiatto
|
MVP
Pontos: 2235
    13 set 2017

#Código

procedure TForm1.ListBox1Click(Sender: TObject);
var
  s1 : string;
begin
  s1 := ListBox1.Items.Strings[ListBox1.ItemIndex];
  if (s1='1') then
    s1 := inttostr( 2 * StrToInt(s1))
  else if (s1='2') then
    s1 := inttostr( 3 * StrToInt(s1))
  else
    s1:='Erro';

  ShowMessage('Saida '+s1);

end;

Graal
   - 14 set 2017

Obrigado, consegui entender e posso adaptar para minha situação.