Fórum Uma dúvida com Labels. #214047
13/02/2004
0
O que eu quero parece simples! Num form tenho 03 Labels, quero colocar
o valor do label1 e do label2 em um Edit mais a multiplicação pelo label3.
Por exemplo, O valor do label1 é: ´1´, o valor do label2 é: ´5´, o valor do label3 é: ´100´. No Edit1 deve aparecer isto: 1500, ou seja, a união de 1 e 5 multiplicado por cem! (15 x 100). Por favor se alguém puder me ajudar agradeço! P.S. (valeu, Beppe, aceito como uma lição...)
o valor do label1 e do label2 em um Edit mais a multiplicação pelo label3.
Por exemplo, O valor do label1 é: ´1´, o valor do label2 é: ´5´, o valor do label3 é: ´100´. No Edit1 deve aparecer isto: 1500, ou seja, a união de 1 e 5 multiplicado por cem! (15 x 100). Por favor se alguém puder me ajudar agradeço! P.S. (valeu, Beppe, aceito como uma lição...)
Ginosam
Curtir tópico
+ 0
Responder
Posts
13/02/2004
Vieira_alex
Cara vc. pode fazer assim.
Basta vc. criar um botão e colocar o seguinte código.
procedure TForm1.Button1Click(Sender: TObject);
var
calc:integer;
junta:string;
begin
junta := Label1.Caption+Label2.Caption;
calc := StrToInt(Junta)*StrToInt(Label3.Caption);
Edit1.Text := IntToStr(calc);
end;
Basta vc. criar um botão e colocar o seguinte código.
procedure TForm1.Button1Click(Sender: TObject);
var
calc:integer;
junta:string;
begin
junta := Label1.Caption+Label2.Caption;
calc := StrToInt(Junta)*StrToInt(Label3.Caption);
Edit1.Text := IntToStr(calc);
end;
Responder
Gostei + 0
13/02/2004
Ginosam
Obrigado, Vieira_alex. Aproveito para mostrar uma outra resposta que recebi de outro fórum:
Ok, vc deve fazer o seguinte:
Edit1.Text:=Label1.caption+Label2.Caption
Essa linha de comando fará com que o conteudo do edit1 seja 15,
conforme seu exemplo.
Depois:
Edit1.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Label3.Caption))
Isso irá realizar a multiplicação e jogar o valor para o Edit1.
Espero ter ajudado.
Sucesso.
Ok, vc deve fazer o seguinte:
Edit1.Text:=Label1.caption+Label2.Caption
Essa linha de comando fará com que o conteudo do edit1 seja 15,
conforme seu exemplo.
Depois:
Edit1.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Label3.Caption))
Isso irá realizar a multiplicação e jogar o valor para o Edit1.
Espero ter ajudado.
Sucesso.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)