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.

Delphi-Quellcode:

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

Wer weiß Rat?

[mkinzler]

Delphi-Quellcode:

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

Delphi-Quellcode:

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

:gruebel:

[Oxmyx]

Delphi-Quellcode:

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