@ Matze:
Zitat:
erstens gibt es keine if-Schleifen,
Ich weiss, dass folgender Code
verpönt ist, aber es scheint sie doch noch zu geben
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
label hier;
begin
i:=0;
hier:
inc (i);
if i < 10 then goto hier;
edit1.Text:=IntToStr(i);
end;
@alle
Das mit dem
Goto bitte ganz schnell wieder vergessen, sonst mache ich mich hier unbeliebt
Gruß
Wolfgang