Byte to int

[Kuehter]

hallo will ein Dynbytearray in ein intArray eintragen, aber die zahlen sollen alle so bleiben,

nur leider funktioniert das nicht so

B[counter] := Bytetoint[c[counter]]

[DeddyH]

Was soll ByteToInt denn tun? Ein Byte passt immer in einen Integer, da gibt es nichts umzuwandeln.

[Kuehter]

kann das byte aber nicht in einen case benutzen aber er sagt mir Ordinaltyp erforderlich

[DeddyH]

Byte ist ein Ordinaltyp, zeig doch mal den fehlerverursachenden Code.

[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;

[DeddyH]

middlesafer ist ein Array of Byte? Eigentlich sollte das funtionieren.

[Kuehter]

Kein direkte Array of byte ein ByteDynArray

[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;

[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;

[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;