Thema: Delphi Arrays zusammenfügen

Einzelnen Beitrag anzeigen

Root2k

Registriert seit: 7. Jun 2011
Ort: Ulm
49 Beiträge
 
Delphi XE Enterprise
 
#10

AW: Arrays zusammenfügen

  Alt 1. Nov 2011, 15:14
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;
  Mit Zitat antworten Zitat