SetLength(Elements^, Length(Elements^)+1);
Stimmt, so geht's einfacher.
Aber das Problem bleibt. Direkt nach dem Aufruf von
ForEach
ist die Länge von MyElements = 0, obwohl ich sie ja definitiv erhöhe
An der ForEach-Methode kann es nicht liegen, da
Delphi-Quellcode:
procedure IncDynRec(ADataPtr: Pointer);
var Elements: TElements;
begin
Elements:= PElements(ADataPtr)^;
SetLength(Elements,Length(Elements)+1);
end;
genau so nicht funktioniert