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:

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 :stupid:

[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 :stupid:

[himitsu]

Seid ihr jäckig?

Strings kopiert man nicht per Move und Co. :warn:
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. :oops:

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;