Byte to int

[Kuehter]

der will den ja auch nicht in ein smallint schreiben

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender:  TObject);
type
    Allrounder = TImage;

var
    rec : TIntegerarray;
    pics : Tpicarray;
    saferend: TByteDynArray;
    firstIcon: Tstringarray;
    counter, oneup: integer;
    middlesafer : array[0..26] of Smallint;
    nein : array[0..26] of String;

begin

    oneup := 0;
   SetLength(saferend,3);
   rec := bedingung;
   firstIcon := Symbolspeicher;
   Pics := picload;

    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;