Problem mit if abfrage

[holz-felix]

Hallo,

ich hab folgendes problem:

ich habe eine rechnung, deren ergebnis nicht negativ (sprich unter null) sein darf.

falls dies doch der fall sein sollte, soll zu meinem ergebnis solange 7 addiert werden, bis eine positive zahlt entsteht.

ich habe es mit:

Delphi-Quellcode:

if w < 0 
then w:= w + 7;

probiert, aber dies funktioniert leider nicht

hat mir vielleicht jemand einen lösungsvorschlag?

wäre echt cool

MFG Holz