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