array addieren

[trifid]

Weitere Einschränkungen
Ich möchte keine TArrayKlasse bauen, weil dann kann ich gleich eine ObjectListe (Dictionary) verwenden.
Es soll nicht unter .net sein
nicht unter "freepascal"
Keine Mengen (TSet) hab auch schon daran gedacht meine Code umzustricken.
Aber es sind etliche mehrdimensionale Array's, der einfachheithalber habe ich es erst mal mit einen einfachen integer-array probiert
Operatoren überladen ala c++ geht halt nicht
soll als win32-Applikation laufen
>c) ander sprache nehmen
welche? kann nur Delphi - nein, aber der Aufwand ist zu groß
dynamische Arrays an irgendwelchen DLL's übergeben?
>d) sets können das mit gewissen (heftigen) einschränkungen, und sind auch noch dezent langsam
das auch noch

aber ich hab ein wenig rumgebastelt und auch etwas gefunden, it's magic
nur bekomme ich eine Speicherschutzverletzung und die Variablen werden überschrieben

Delphi-Quellcode:

type
   TTestArray = array of integer;

procedure TForm1.Button3Click(Sender: TObject);
   var a, b, c : TTestArray;

   var x, y, z : String;

   function MyCopyArray (Dest, Source, typeInfo : Pointer; Count:Integer): Pointer; assembler;
   asm
       PUSH Count

       CALL System.@CopyArray
   end;
begin
   SetLength (a, 3);
   a[0] := 1;
   a[1] := 2;
   a[2] := 3;

   SetLength (b, 3);
   b[0] := 5;
   b[1] := 9;

   SetLength (c, 3);

   x := 'abc';
   y := '123';
   z := '';
   
   MyCopyArray (@z, @x, TypeInfo(String), 5);

   MyCopyArray (Addr (c), Addr (b), TypeInfo(TTestArray), 2);
   // MyCopyArray (@c, @b, TypeInfo(TTestArray), 2);
   // MyCopyArray (@c[0], @b[0], TypeInfo(TTestArray), 2);
end;

Für die strings funktioniert es, aber nicht für die Array's