Foros Club Delphi - Ver Mensaje Individual - tengo un error con un programa usando array

ecfisa · #4 10-05-2013

Hola frankmanuel06.

El código donde comentaste el error debería ser:

Código Delphi [-]procedure TForm1.txtSueldoChange(Sender: TObject);
begin
  if (txtsueldo.text<>'') then
   txtcomision.Text := floattostr(strtofloat(txtsueldo.text)*0.10);
end;

Aunque mas seguro sería:

Código Delphi [-]procedure TForm1.txtSueldoChange(Sender: TObject);
var
  v: Double;
begin
  if TryStrToFloat(txtSueldo.Text,v) then
    txtComision.Text := FloatToStr(v * 0.10);
end;

Saludos