Fazer Multiplicação com 1 só Edit
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
Curtidas 0
Respostas
Raimundo Pereira
09/06/2016
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:
GOSTEI 0