Arrays zusammenfügen

[jaenicke]

So meinte ich das:

Delphi-Quellcode:

var
  a, b: array of Integer;
  i, OldSize: Integer;
begin
  // a und b als Beispiele erstellen
  SetLength(a, 5);
  SetLength(b, 4);
  for i := Low(a) to High(a) do
    a[i] := i;
  for i := Low(b) to High(b) do
    b[i] := i*10;

  // a vergrößern und b reinkopieren
  if Length(b) > 0 then
  begin
    OldSize := Length(a);
    SetLength(a, OldSize + Length(b));
    CopyMemory(@a[OldSize], @b[0], Length(b) * SizeOf(b[0]));
  end;

  for i := Low(a) to High(a) do
    ShowMessage(InttoStr(a[i]));

Mit Move müsste ich selber erst schauen wie das aussieht.