Witam.
Czy jest inny sposób na kopiowanie tablic dynamicznych niż pętlą? Wygooglowałem iż przy pomocy procedury Move można, jednak nie udało mi się to jak na razie. Oto w jaki sposób próbuję i coś nie chce wychodzić:
type
TDataStock = packed record
Data: Pointer;
Size: Integer;
end;
TDataStocks = array of TDataStock;
function CopyDataStock(var From:TDataStocks):TDataStocks;
begin
try
SetLength(Result,High(From));
Move(From[Low(From)],Result[Low(Result)],High(From));
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end;
var
CC:TDataStocks;
begin
CC:=CopyDataStock(DataStock);
Dodam iż próbowałem również przy użyciu CopyMemory, jednak wynik ciągle ten sam. Ani to błędu, ani przekopiowanych danych. Właściwie najlepiej byłoby dla mnie 'przenieść' dane z DataStock, do CC, bo tak czy siak po kopiowaniu mam zamiar wyczyścić tablice DataStock.
Proszę o pomoc :)
Btw, mam nadzieję, że nie wywołam jak ostatnim razem wielkiej kłótni x)