Byte to int

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

[Kuehter]

Ihc würde mal sagen Delphi 7 war da noch nicht so weit

[DeddyH]

Leider kann ich Deinen Originalcode nicht testen, da er zuviel globales Zeugs enthält, dessen Datentypen ich nicht einmal kenne. Ich glaub aber kaum, dass es an Delphi 7 liegen soll.

[Kuehter]

wenn du möchtest kann ich den ein mal ganz hoch loaden wird nur etwas länger

und wenn du die zeit dazu erübrigen kannst

[himitsu]

In welcher Zeile knallt es nun genau?
Und wie war die genaue Fehlermeldung?

PS: Man kann nahezu alles per Strg+C als Text kopieren. (Compilermeldungen, Fehlerdialoge, ...)

PPS:

Zitat von DeddyH:

Da mein XE kein TByteDynArray kennt,

Types
http://docwiki.embarcadero.com/Libra....TByteDynArray

[Kuehter]

[Fehler] Unit1.pas(274): Inkompatible Typen: 'Smallint' und 'TByteDynArray'


Bei umbennen in TByte Dyn Array


[Fehler] Unit1.pas(282): Ordinaltyp erforderlich

[himitsu]

Zitat von Kuehter:

[Fehler] Unit1.pas(274): Inkompatible Typen: 'Smallint' und 'TByteDynArray'

Da hat wohl jemand vergessen das Array aufzulösen.
Ganzes Array ... obwohl man bestimmt nur einen der Werte daraus haben wollte.


function numberdissect(numbers: Cardinal): TByteDynArray;