Byte to int

[DeddyH]

Auch kein Problem:

Delphi-Quellcode:

uses Generics.Collections;

type
  TByteDynArray = TArray<Byte>;

procedure TFormTest.Button1Click(Sender: TObject);
var
  TheArray: TByteDynArray;
  counter: integer;
  middlesafer : array[0..26] of Smallint;
begin
  SetLength(TheArray, Length(middlesafer));
  for counter := Low(TheArray) to High(TheArray) do
    TheArray[counter] := counter;
  for counter := Low(TheArray) to High(TheArray) do
    middlesafer[counter] := TheArray[counter];
  for counter := Low(middlesafer) to High(middlesafer) do
    case middlesafer[counter] of
      42:
        ShowMessage('Ultimative Antwort');
      else
        ShowMessage(IntToStr(middlesafer[counter]));
    end;
end;