Скачать: CL | DM;

Сборщик мусора в памяти ?   Найти похожие ветки 

← →
Dimedrol ©   (2002-03-27 14:20) [7]

2 PVOzerski

вообще-то в таких "проблемных" местах я ваще стараюсь со
строками неопределенной длины не работать (фу! ;-)
вот тип данных для моих поинтеров

type

PMacro = ^TMacro;
TMacro = record
id: integer;
parid: integer;
isgroup:byte; //1-yes,255-no
GrpName:string[32];
Rubric:string[2];
lang:byte; //0-RU, 1-LV
HotKey: TShortCut;
text: shortstring;
end;

var
MacList: array[1..2048] of PMacro;

А потом работаю с массивом поинтеров


procedure TMacForm.NewMacList;
var i:word;
begin
for i:=1 to 2048 do
begin
try New(MacList[i]); except end;
//MacList[i]^:=nil; нужно ли это ???
end;
end;


procedure TMacForm.ResetMacList;
var i:word;
begin
for i:=1 to 2048 do
begin
//MacList[i]^:=nil; нужно ли ???
try Dispose(MacList[i]); except end;
try New(MacList[i]); except end;

типа ресет... ;-) а может НИЛ делать ?

end;
end;

procedure TMacForm.FreeMacList;
var i:word;
begin
for i:=1 to 2048 do
begin
//MacList[i]^:=nil; ???
try Dispose(MacList[i]); except end;
end;
end;


Вот такие пироги...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.01 c