Byte to int

[Kuehter]

Delphi-Quellcode:

 
repeat
      for counter := 0 to 3 do
      begin
          middlesafer[counter] := (numberdissect(rec[oneup]));
      end;
      inc(oneup);
   until oneup = 9;


   for counter := low(middlesafer) to high(middlesafer) do
   begin
      case (middlesafer[counter]) of
      0: picload[0];

      else
      end;

   end;