Código Delphi [-] var valorA,ValorB,Resultado:real; begin valorA:=StrToFLoat(Edit1.text); valorB:=StrToFLoat(Edit2.text); //+,-,x etc. Resultado:=(valorA+valorB); Edit3.Text:=FormatFloat('##,##0.00', Resultado); end;
var valorA,ValorB,Resultado:real; begin valorA:=StrToFLoat(Edit1.text); valorB:=StrToFLoat(Edit2.text); //+,-,x etc. Resultado:=(valorA+valorB); Edit3.Text:=FormatFloat('##,##0.00', Resultado); end;
Código Delphi [-] try ProgramarMicro(80C52,'Intel',MnHex,True); except On Exception do MicroChip.IsPresent(True); end;
try ProgramarMicro(80C52,'Intel',MnHex,True); except On Exception do MicroChip.IsPresent(True); end;