Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.08;
Скачать: 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 вся ветка

Текущий архив: 2002.04.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
14-22787
JustMan
2002-02-24 16:55
2002.04.08
Люди, нужна помощь!


1-22712
$Hic0
2002-03-26 16:24
2002.04.08
Непонятно отчего ошибка раз... неясно почему она не обрабатывается :(


14-22789
ors
2002-02-25 18:45
2002.04.08
График как в Sound Forge


4-22871
Gavrozoid
2002-02-05 14:59
2002.04.08
Нужно достать Handle окна под мышой


3-22552
Revo
2002-03-15 15:18
2002.04.08
Как из данные из текстовика перенести в IB5.0