Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.088 Beiträge
 
Delphi 12 Athens
 
#6

AW: Array an Array anhängen

  Alt 8. Jun 2010, 18:18
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);
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat