Variable beim Programmstart definieren

[idefix2]

if (Richtung<>1) and (Richtung<>3) and (Richtung<>4) and (Richtung<>2) and (Richtung<>6) then .

gescheiter ist auf alle Fälle:

Delphi-Quellcode:

case richtung of
 1,3,4,2,6: ...
 else ...
 end;