Byte to int

[DeddyH]

Da mein XE kein TByteDynArray kennt, hab ich mir das mal schnell selbst deklariert. Das hier tut bei mir:

Delphi-Quellcode:

uses Generics.Collections;

type
  TByteDynArray = TArray<Byte>;

procedure TFormTest.Button1Click(Sender: TObject);
var
  TheArray: TByteDynArray;
  counter: integer;
begin
  SetLength(TheArray, 3);
  TheArray[0] := 42;
  TheArray[1] := 100;
  TheArray[2] := 255;
  for counter := Low(TheArray) to High(TheArray) do
    case TheArray[counter] of
      42:
        ShowMessage('Ultimative Antwort');
      else
        ShowMessage(IntToStr(TheArray[counter]));
    end;
end;