Porcentaje de un Numero en un Tedit

[[oscarac]]

yo te recomendaria que el porcentaje no sea fijo (lo unico fijo que existe en la vida es la muerte)

y podrias hacerlo asi como te dije, colocar el porcentaje en otro edit

Código Delphi [-]
 
lblPorcentaje.Caption := inttostr(StrtoInt(edtNumerox.text) * strtoint(edtPorcentajeY.Text) / 100)

[ZiriusB]

Código Delphi [-]
label1.Caption := inttostr(StrtoInt(edit1.text) * strtoint(edit5.Text) / 100)

Me salta este error:
"[DCC Error] Unit1.pas(50): E2250 There is no overloaded version of 'IntToStr' that can be called with these arguments"

Lo del porcentaje es un porcentaje fijo para cada item...por eso digo que sera asi, igual tomare tu sugerencia.

Si le quito el InttoStr me salta este error:

[DCC Error] Unit1.pas(50): E2010 Incompatible types: 'string' and 'Extended'

[ecfisa]

Hola.

Código Delphi [-]
  Label1.Caption := FloatToStr(StrToFloat(Edit1.text) * StrToFloat(Edit5.Text) / 100);

Saludos.

[[oscarac]]

Empezado por ecfisa

Hola.


Código Delphi [-]
Label1.Caption := FloatToStr(StrToFloat(Edit1.text) * StrToFloat(Edit5.Text) / 100);





Saludos.

por eso dije... algo parecido...

[ecfisa]

Hola oscarac.

por eso dije... algo parecido...

Si por supuesto, al menos a mí, me quedó bién claro que era un ejemplo orientativo . ("no tengo delphi a la mano... seria algo asi:")

Pero como lo aplicó textualmente, le indiqué el por que le estaba dando error.

Un saludo.

[ZiriusB]

Gracias por sus respuestas, me quedo asi:

Código Delphi [-]
procedure TForm1.AdvOfficeRadioGroup2Click(Sender: TObject);
begin
edit2.Text:=IntToStr(AdvOfficeRadioGroup2.ItemIndex + 1);
edit7.Text := FloatToStr(StrToFloat(Edit2.text) * 15 / 100);
end;

Colocando el Procentaje Fijo para probar...lo probe del otro modo que me sugirio Oscarac y tambien funciono, ahora quiero sumar esos t edit y mostrar el resultado en uno EDTTOTAL:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
edit4.Text:= Inttostr(StrToInt(edit3.Text) +  StrToInt(edit7.Text)  +  StrToInt(edit8.Text));
end;

Pero me arroja este error:

First chance exception at $7C812AEB. Exception class EConvertError with message '''1,2'' is not a valid integer value'. Process Project1.exe (648)

Seria bueno una breve explicación de lo que estoy haciendo mal, para aprender..un saludo y gracias por sus respuestas!

[[Caral]]

Hola
1,2 es un numero que tiene decimales, en este caso, un decimal el numero 2.
Por eso la operacion que hiciste da error, usas integer que no contiene decimales, tienes que usar float que si los permite, asi:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
edit4.Text:= Floattostr(StrToFloat(edit3.Text) +  StrToFloat(edit7.Text)  +  StrToFloat(edit8.Text));
end;

Saludos

[[Caral]]

Hola

Código Delphi [-]
var v1,v2,v3 : Real;
begin
v1:= StrToFloat(Edit1.Text);
v2:= StrToFloat(Edit5.Text);
v3:= 100;
Label1.Caption := FloatToStr(v1 * v2 / v3);
end;

Saludos
PD: Vaciaciones sobre el mismo tema.