Wie VB Codezeile in Delphi übersetzen?

[carknue]

Hallo,

ich habe den Source Code eines Visual Basic Programmes, welches ich in Delphi übersetzen möchte. Allerdings stolpere ich über folgende VB Zeile, die ich nicht übersetzen kann.

Smeter = sc + -(sc > 11.5) * (sc - 11.5) * 0.66

Sieht simple aus aber wie schreibt man das in Delphi um? Ich habe es so gemacht, was aber ein falsches Ergebnis liefert.

if sc>11.5 then Smeter:=sc-(sc-11.5)*0.66; Wer weiß Rat?

[mkinzler]

if sc>11.5 then Smeter:=sc-(sc-11.5)*0.66 else smeter := sc; [Edit]Delphi-Tags eingefügt[/edit]

[carknue]

Nein aber ich habs jetzt selber gefunden. Die Lösung ist erstaunlicherweise

if sc>11.5 then Smeter:=sc+(sc-11.5)*0.66 else smeter := sc;

[Oxmyx]

Smeter := sc + -Integer(sc > 11.5) * (sc - 11.5) * 0.66