Array an Array anhängen

[hedie]

Hallo

Ich empfange von meiner Hardware Arrays mit einer Länge von 10'000 Byte's (Länge kann ich definieren)
Nun möchte ich dieses Array an ein einziges Grosses array anfügen.

Wie kann ich dies performance schonend bewerkstelligen?

So das ich am schluss ein Array mit 200'000 bytes habe...




Besten Dank

[Namenloser]

Am besten mit Move.

[rollstuhlfahrer]

performance-schonend nicht unbedingt. Du musst deinem bestehenden array zuerst sagen, dass es um die 10.000 Einträge wachsen soll (SetLength(array, Length(array) + 10000) und dann einzeln die Daten einfügen oder per Move() alle Daten durch den Speicher auf einmal kopieren. Dürfen nur keine Strings mit variabler Länge sein. Dabei hast du das neue Array kurzzeitig 2x im Speicher bevor du es 1x wieder aus dem Speicher entfernst.

Bernhard

[hedie]

Hmmm

also das grosse Array hab ich auf 512kb festgelegt...

Somit sollte ich ja nichts mehr an der länge ändern müssen oder?

[rollstuhlfahrer]

solltest du nicht, solange die neuen Daten noch Platz finden (SizeOf(Typ) * Length(array)) musst du nichts an der Länge drehen. Sollen die Daten aber durchlaufen, also nach vorne kommen, wenn hinten dicht ist,musst du auch wieder mit Move() ran und die Daten einfach vorschieben.

Bernhard

[himitsu]

Wenn du die Speichergröße des Arrays groß genug dimensioniert und die Größe der tatsächlichen Daten kennst, dann kannst du es einfach reinkopieren.

Delphi-Quellcode:

//if DataCount + Length(arrEmpfang) > Length(arrGross) then
//  OutOfMemoryError;
Move(arrEmpfang[0], arrGross[DataCount], Length(arrEmpfang));
Inc(DataCount, Length(arrEmpfang));

wenn Array vergrößert werden muß:

Delphi-Quellcode:

var arrGross, arrEmpfang: TBytes; {aka "array of Byte"}
  i: Integer;
begin
i := Length(arrGross);
SetLength(arrGross, i + Length(arrEmpfang));
Move(arrEmpfang[0], arrGross[i], Length(arrEmpfang));

// oder
i := Length(arrGross);
i2 := Length(arrEmpfang);
SetLength(arrGross, i + i2);
Move(arrEmpfang[0], arrGross[i], i2);

[hedie]

Funktioniert perfekt...

Danke