goto befehl

[mr.floppy81]

habe versucht einen gotosprung wie in der delphi hilfe zu basteln...

Problematisch ist jedoch, dass er mir beim compilieren anzeigt:

"label wurde deklariert und referenziert, aber nicht gesetzt: 'abmessung' "

is wahrscheinlich total billig aber an solchen problemen scheitert es ja meist

habe mir das so gedacht, dass ich wenn eine Bedingung erfüllt nicht erfüllt ist, der pointer solange auf auf 'abmessung' zurückspringt.
bis eine gültige eingabe erfolgt
so zum bsp.

var x:float
label abmessung;

begin

x:=edit1.text;
if x=0 then goto abmessung

....