Byte to int

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

[DeddyH]

Ein paar Zwischenvariablen täten dem Verständnis gut. War vielleicht eher so etwas gemeint?
middlesafer[counter] := numberdissect(rec[oneup])[counter];

[Kuehter]

es funktioniert

[DeddyH]

Wo gibst Du eigentlich die ganzen TPicture-Instanzen aus dem Array wieder frei?

[Kuehter]

"noch" nirgends

habe mich noch nicht damit auseinander gesetzt wie man das wieder frei gibt

[DeddyH]

Ungetestet:

Delphi-Quellcode:

procedure ClearPictures(var Pictures: Tpicarray);
var
  i: integer;
begin
  for i := Low(Pictures) to High(Pictures) do
    Pictures[i].Free;
  Pictures := nil;
end;

Allerdings würde ich ohne Not keine Arrays von Objektinstanzen verwenden, sondern stattdessen lieber eine TObjectList hernehmen, die verwaltet die enthaltenen Instanzen selbstständig (hatte ich das nicht woanders schon einmal erwähnt)?