Arrays zusammenfügen

[Spanky]

Hallo,

ich nutze die Explode-Funktion aus der Code Library. Diese Funktion rufe ich zwei Mal auf. Es wird jeweils ein Array zurückgegeben. Kann man die beiden Arrays, die zurückgegeben werden, mit einer Funktion zusammenfügen?

[nuclearping]

Ja, kann man. Brauchst doch nur ein neues Array machen, wo du die beiden Teile nacheinander anhängst.

Stichworte: SetLength, for-Schleife, ...

[jaenicke]

Das erste Array mit SetLength auf die richtige Länge bringen, dann den Inhalt des zweiten mit CopyMemory rüberschnippsen.

[Neutral General]

Zitat von jaenicke:

Das erste Array mit SetLength auf die richtige Länge bringen, dann den Inhalt des zweiten mit CopyMemory rüberschnippsen.

Oder mit Move. Finde ich bequemer. Da kann man sich die @s sparen

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

[Neutral General]

Hi,

So ginge das mit Move:

Delphi-Quellcode:

var old: Integer;
begin
  old := Length(ArrayB);
  SetLength(ArrayB,old+Length(ArrayA);
  Move(ArrayA[0],ArrayB[old],Length(ArrayA)*SizeOf(ArrayA[0]));
end;

Ich hoffe ich hab keinen Fehler drin

[himitsu]

Seid ihr jäckig?

Strings kopiert man nicht per Move und Co.
zumindestens nicht ohne gewisse Dinge zu beachten.

Explode liefert ein Array of String

[jaenicke]

Stimmt, dass es Strings sind und es damit einen Reference Counter gibt, daran habe ich nicht gedacht.

Dann bleibt noch mit for kopieren oder die Strings gleich in das richtige Array zu legen.

[mimi]

am besten so(Nicht getestet):

Delphi-Quellcode:

procedure AddToArray(var aArray:array of string; const aSoruce:Array of String);
var
  i,c1,c2:Integer;
begin
  c1:=Lenght(aSoruce);
  c2:=Lenght(aArray);
  SetLenght(aArray,c1+c2+1);

  for i:=0 to c1 do begin
    aArray[c2+i]:=aSoruce[i];
  end;
end;

so müsste das eigentlich klappen.

[Root2k]

Da dieser Eintrag bei diversen Suchmaschinen an oberster Stelle landet, wenn man nach "delphi zwei arrays verbinden" sucht, will ich die angegebene Methode noch korrigieren.

Delphi-Quellcode:

procedure AddToArray(var _alleStrings:Array of String; const _neueStrings:Array of String);
var
  i,c1,c2:Integer;
begin
  c1 := Length(_alleStrings);
  c2 := Length(_neueStrings);
  SetLength(_alleStrings, c1 + c2);

  for i := 0 to c2-1 do
  begin
    _alleStrings[c1 + i] := _neueStrings[i];
  end;
end;