ListBox e Input

Delphi

13/09/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:

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?
Graal

Graal

Curtidas 0

Melhor post

Luiz Vichiatto

Luiz Vichiatto

13/09/2017

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;
GOSTEI 1

Mais Respostas

Graal

Graal

13/09/2017

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