Labels in ein Array?

[Gepard]

Sorry sieht sehr blöd aus

Delphi-Quellcode:

var 
          i, x: Integer 
        begin 
          for i := 1 to n do 
            x := a[i-1] 
        end;