while not ... do

[Matze]

Wenn beide Abfragen nicht eintreffen dürfen, musst du 2x not schreiben, falls dies dein problem ist:

Delphi-Quellcode:

while not (Tformelobjekt(formellist[i]).operator = '^') OR not (Tformelobjekt(formellist[i]).operator = 'Sq') 
   do inc(i);