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:
Cita:
|
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!