[Yacudzer]

Здравствуйте господа, вот назрел вопрос об освобождении памяти занятой типом String.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

type   PMyInfo = ^TMyInfo;   TMyInfo = record     a:pointer;     s:integer;     b:PMyInfo;     end; var   MyInfo:PMyInfo;   procedure qwerty; var   MyStr:PString; begin   new(MyStr); {*}   MyStr^:='qwerty'; {**}   new(MyInfo);   MyInfo.a:=MyStr;   MyInfo.s:=sizeof(MyStr); end;   begin {...некоторый код...}   qwerty;   freemem(MyInfo.a,MyInfo.s);   dispose(MyInfo);   end.

в данном примере память выделяется 1) при создании указателя на строку(*) 2) при присвоении строке значения (**)

освобождая командой freemem память мы освобождаем указатель на строку, но судя по переменной AllocMemcount - память занятая самой строкой не освобождается, в следствии чего возникают утечки. В общем случае нам неизвестен тип данных хранимых в переменной a. Известен размер для корректного освобождения памяти. Как корректно освободить память занятую string'ом???

[angvelem]

Что должна делать строка

Код:

1	MyInfo.s:=sizeof(MyStr);

подумай прежде чем отвечать.

[Yacudzer]

да даже если поставить

Код:

1	MyInfo.s:=sizeof(MyStr^);

суть не изменится. Все равно в данном случае это укзатель указывающий на указатель.

[angvelem]

Ну ведь просил подумать прежде чем отвечать. Длина строки проверяется функцией Length, а здесь Sizeof(MyStr) (в 32-битной ОС) всегда 4.

[Yacudzer]

Сообщение от angvelem

Ну ведь просил подумать прежде чем отвечать. Длина строки проверяется функцией Length, а здесь Sizeof(MyStr) (в 32-битной ОС) всегда 4.

так как же освобождать память? пример в студию плиз...

[Pilot_Red]

Сообщение от Yacudzer

так как же освобождать память? пример в студию плиз...

MyStr^:='' ;

[angvelem]

Эх Pilot, торопишься, не даёшь человеку подумать.

[Yacudzer]

Сообщение от Pilot_Red

MyStr^:='' ;

Не годится такой вариант. В общем случае неизвестен тип хранимой переменной. Может быть указатель на любую структуру. Поэтому в рекорде и указан pointer а не PString. Можно лишь задать размер. Я вижу только один выход из это ситуации: отказаться от String, и использовать string[255]... Т.е. что бы стринг был не пойнтером а как в старом добром паскале. Если подскажете как не уходить к ограниченному размеру, то буду рад...

[Pilot_Red]

Сообщение от angvelem

Эх Pilot, торопишься, не даёшь человеку подумать.

Ответ был написан ради шутки, может быть есть более рациональное решение

[angvelem]

Тяжело отвечать не понимая что делается, да и маленький нюанс - начиная с XP, операционка по завершению программы всё почистит.

[angvelem]

Может стоит отойти от канонов Дельфи 3 и перейти к более высоким версиям, тогда

Код:

1 2	var   MyInfo:PMyInfo;

заменится на

Код:

1 2	var   MyInfo : array of TMyInfo;

а там достаточно использовать SetLength и по завершению программы Дельфи освободит все сама.

[Pilot_Red]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure qwerty; var   MyStr:<b>String</b>; begin     <b>MyStr:='qwerty'; {**}</b>   new(MyInfo);   MyInfo.a:=<b>@MyStr</b>;   MyInfo.s:=<b>length(MyStr);</b> end; {...некоторый код...}  qwerty; <i> //freemem(MyInfo.a,MyInfo.s);</i>  dispose(MyInfo);

[angvelem]

или так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure qwerty; var   MyStr : String; begin   Count := 1; // для примера   MyStr := 'qwerty'; {**}   SetLength(MyInfo, Count);   MyInfo[Count - 1].a := @MyStr;   MyInfo[Count - 1].s := Length(MyStr); end; {...некоторый код...}  qwerty;

[Yacudzer]

а чем такой вариант плох?

Код:

1 2 3 4 5 6 7

x:='qwertyqqqqq.'; x_len:=length(x); GetMem(MyStr,x_len); MyStr^:=x; new(MyInfo); MyInfo.a:=MyStr; MyInfo.s:=x_len;

ну и освобождение памяти как описано выше...

в любом случае, всем спасибо...

[angvelem]

Сообщение от Yacudzer

а чем такой вариант плох?
...
ну и освобождение памяти как описано выше...

Ответ в вопросе.