Porcentaje de un Numero en un Tedit

[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

[ZiriusB]

Gracias, mil gracias por responder y aclarar mis dudas he estado trabajando en eso y he aprendido...

Una vez que tengo el numero en dicho TEDIT ( tengo 13 TEDIT) he intentado con el COMPONENT COUNT mostrar el resultado de la suma de esos TEDIT y dividirlos entre el numero de TEDIT (13)

Código Delphi [-]
var
  c, i, j, f: integer;
  r: Double;
......
  
r:= 0;
c:= 0;
  for i:= 0 to ComponentCount -1 do
   if (Components[i] is Tedit) and
      (Tedit(Components[i]).text > -1) then
   begin
     r:= r + StrToFloat(Tedit(Components[i]).text [Tedit(Components[i]).text]);
     Inc(c);
   end;
    if c > 0 then
    npromedio.Text:=(FormatFloat('#,##0.##', r/c));

Eso lo coloco dentro de cada TEDIT evento ONCHANGE, use como base un ejemplo que me dieron hace tiempo para un COMBOBOX...