oq há de errado ?

Delphi

11/06/2016

var
Numero,I,Multiplicacao:Integer
begin
tab.Itens.Clear;
Numero:=StrToInt(num.Text);
I:=1;
While (I<=10) do
begin
Multiplicação:=Numero*1;
tabuada.itens.add(IntToStr(multiplicacao);
I:=I+1;
end;
num.setfocus;

end;
Samuel

Samuel

Curtidas 0

Respostas

Anderson

Anderson

11/06/2016

var
   Numero,I,Multiplicacao:Integer;

begin
    tab.Itens.Clear;  // Defina o nome igual ao do componente colocado no Form: é tab ou tabuada ?
    Numero:=StrToInt(num.Text);
    I:=1;
    While (I<=10) do
             begin
                 // Aqui deve ser o contador I e não o número 1  Ex: 5 x 1; incrementa I que passa a 2, logo 5 x 2; repete; 5 x 3; ... 5 x 10;
                 Multiplicacao:=Numero*I;  // O nome da variável declarado foi Multiplicacao (e não Multiplicação).
                 tabuada.itens.add(IntToStr(Multiplicacao);
                 I:=I+1;
             end;

    num.setfocus;
end;


Faça um teste de mesa (caneta e papel), simulando o funcionamento do código para ver se faz o que realmente quer.

Att.

Anderson.
GOSTEI 0
POSTAR