Fórum Fazer Multiplicação com 1 só Edit #556882
09/06/2016
0
Olá a todos!
Eu preciso que o usuário indique a quantidade de determinado caracter seja passada a um ListBox, somente digitando no Edit '2*A'.
Nesse caso, seriam passado dois A's ao ListBox.
Alguem poderia me dizer como fazer isso? Lembrando que ele poderia digitar 'A*2' tambem.
Eu preciso que o usuário indique a quantidade de determinado caracter seja passada a um ListBox, somente digitando no Edit '2*A'.
Nesse caso, seriam passado dois A's ao ListBox.
Alguem poderia me dizer como fazer isso? Lembrando que ele poderia digitar 'A*2' tambem.
Vitor Ferreira
Curtir tópico
+ 0
Responder
Posts
09/06/2016
Raimundo Pereira
Veja se Ajuda.
var QT:integer;
var Adicionado:integer;
var Dados_add:string;
begin
QT:=0;
Adicionado:=0;
if key=#13 then
begin
if Copy(Edt.Text,1,1)<>'*' then
begin
ShowMessage('Dados Incorretos, informar * antes da quantidade');
Edt.SetFocus;
end
else
begin
QT:=StrToInt(Copy(Edt.Text,2,1));
Dados_add :=(Copy(Edt.Text,3,150));
if QT>0 then
begin
for Adicionado:=1 to QT do
begin
ListBox1.Items.Add(IntToStr(Adicionado)+'|'+Dados_add);
end;
end;
end;
end;
Clique aqui para vê o resultado do código acima:
var QT:integer;
var Adicionado:integer;
var Dados_add:string;
begin
QT:=0;
Adicionado:=0;
if key=#13 then
begin
if Copy(Edt.Text,1,1)<>'*' then
begin
ShowMessage('Dados Incorretos, informar * antes da quantidade');
Edt.SetFocus;
end
else
begin
QT:=StrToInt(Copy(Edt.Text,2,1));
Dados_add :=(Copy(Edt.Text,3,150));
if QT>0 then
begin
for Adicionado:=1 to QT do
begin
ListBox1.Items.Add(IntToStr(Adicionado)+'|'+Dados_add);
end;
end;
end;
end;
Clique aqui para vê o resultado do código acima:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)