|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Fehler beim Auflösen und Freigeben eines dynamsichen Tree's
10. Mär 2012, 15:32
Delphi-Quellcode:
procedure Clear();
var
i, l: Integer;
now, next: P_Container_2D;
begin
// Init
i := 0;
l := Length(variations) - 1;
for i := l downto 0 do FreeMemory(variations[i]);
SetLength(variations, 0);
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|