OleVariant zu TBytes

[Photoner]

Das rennt!
Dankeschön!

Die 2000ms waren echt nicht schön. War am Freitag schon todmüde und bin deswegen nicht mehr auf die simple Idee gekommen mal reinzudebuggen

Wen es noch interessiert:

Es wird beim Cast folgende Prozedur aus System.Variants aufgerufen:

Delphi-Quellcode:

// Copies data from the Variant to the DynamicArray
procedure DynArrayFromVariant(var DynArray: Pointer; const V: Variant; TypeInfo: Pointer);

http://docwiki.embarcadero.com/Libra...rayFromVariant

In dieser befindet sich ein repeat...until

(Pseudocode:
-wiederhole(
hole nächstes Element aus Variant;
hole Zeiger auf nächstes Element im Feld;
Fallkonstrukt Variantelementtyp -> passende Wertzuweisung von Feldelement; )
-bis (-Ist letztes Element aus Variant erreicht?; )

bei dem die 2000ms verbraten werden.
Ich müsste jetzt das raten anfangen welcher Teil so viel Zeit in Anspruch nimmt. Es wäre auf jeden Fall geschickter gewesen das Fallkonstrukt vor die Schleife zu ziehen (Da der Typ (DAVarType) auch nur einmal gesetzt wird; wäre halt mehr Tipparbeit gewesen).

Noch mal danke für die schlanke und schnelle Lösung!