19/03/12 9:33
camaleonteplus
procedure TTriOnOff1.Button2Click(Sender: TObject); var X,Y,Z:INTEGER; S:STRING[10]; nDouble: Double; begin VAL(corrente.text,X,Z); VAL(hfe.text,Y,Z); nDouble := StrToFloatDef(Volt.text, 0); nDouble := (nDouble - 0.7) / (X / (Y / 3); STR(X,S); Label1.Caption := FloatToStr(Round(nDouble)); VAL(corrente.text,X,Z); nDouble := StrToFloatDef(Volt.text, 0); nDouble := nDouble * ( X / 1000 ); STR(X,S); Label22.Caption := FormatFloat('#0.##', nDouble); end; end.
Con questa riga:
nDouble := (nDouble - 0.7) / (X / (Y / 3);
dovrei eseguire questa formula matematica:
(5-0.7) / (30 / (20 / 3)
ma mi da questo errore:
[Error] TriOnOff.pas(45): ')' expected but ';' found
dove sbaglio?
aaa