Mein Code benötigt sowohl die Variable als auch den Typ. Eigentlich sollte damit schon gesamte Array-Struktur bekannt sein und der Zugriff auf TypeInfo wäre überflüssig.
Delphi-Quellcode:
type
ArrayOfArrayOfDouble = array of array of double;
var
cnt: Integer;
I: Integer;
Input: ArrayOfArrayOfDouble;
size: Cardinal;
begin
cnt := 0;
for I := 0 to Length(Input) - 1 do
Inc(cnt, Length(Input[I]));
size := cnt * SizeOf(Double);
end;
Mit den Delphi Generics gäbe das schon mehr Sinn, aber dann wird's vermutlich nichts mit älteren Delphis und FPC. (Dann hätte ich meinen Code auch etwas anders formuliert)