Anweisung in if und for

[Klaus01]

.. meinst Du sowas?

Delphi-Quellcode:

          for i:= 1 to 3 do
              begin
                if i = eingabe then
                   begin
                     test[i]:= 0 ;
                     test1[i]:= 0;
                   end
                else
                  begin   
                    test[i]:= test[i] + 1;
                    test1[i]:= test1[i] + 1;
                  end;
              end;

Grüße
Klaus