goto befehl

[mr.floppy81]

seid mal net so schnell, sonst schaff ich es gar net euch was reinzustellen
[delphi]
procedure TForm1.Button2Click(Sender: TObject);

label abmessung;

begin



if (checkbox1.checked=false)then Artikelbeschreibung:=artikel.text
else Artikelbeschreibung:=edit5.text;
if (checkbox1.checked=false)then bezeichnung1:=dbedit1.text
else bezeichnung1:=edit6.text;
if (checkbox1.checked=false)then bezeichnung2:=dbedit2.text
else bezeichnung2:=edit7.text;
if (checkbox1.checked=false)then ho:=strtofloat(dbedit3.text)
else ho:=strtofloat(edit8.text);
if (checkbox1.checked=false)then br:=strtofloat(dbedit4.text)
else br:=strtofloat(edit10.text);
if (checkbox1.checked=false)then ti:=strtofloat(dbedit5.text)
else ti:=strtofloat(edit12.text);

if (ho=0) or (ti=0) or (br=0)then abmessungen.showmodal;

if (ho=0) or (ti=0) or (br=0)then
goto abmessung;

hoinm:=ho/1000; brinm:=br/1000; tiinm:=ti/1000;

[delphi]

das ist der quelltext, wenn ho,ti oder br = 0 sind soll er solange zurück zum label abmessung springen bis was anderes eingegeben wird

wenn ho und ti und br ungleich null soll er im Prog weitermachen