Saubere Programmierung?

[Muetze1]

Delphi-Quellcode:

lBase := x div 96;

  for k := 0 to 95 do
    Test1[k] := Test[lBase + k];
end;