String
Como multiplicar 2 strings ?
Vtotal := (edt1.Text) * (edt2.Text);
Ou por 2 var... exemplo Vtotal := v1*v2
Mas não funciona precisa converter como eu faço ?
valeu
Vtotal := (edt1.Text) * (edt2.Text);
Ou por 2 var... exemplo Vtotal := v1*v2
Mas não funciona precisa converter como eu faço ?
valeu
Smeagol
Curtidas 0
Respostas
Rodrigo_rcp
15/12/2003
var
v1,v2,vTotal:real;
begin
v1:=StrToFloat(Edit1.Text);
v2:=StrToFloat(Edit2.Text);
VTotal:=v1*v2;
Edit3.Text:=FloatToStr(VTotal);
v1,v2,vTotal:real;
begin
v1:=StrToFloat(Edit1.Text);
v2:=StrToFloat(Edit2.Text);
VTotal:=v1*v2;
Edit3.Text:=FloatToStr(VTotal);
GOSTEI 0