[Yacudzer]

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

Код:

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]

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

Код:

MyInfo.s:=sizeof(MyStr);

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

[Yacudzer]

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

Код:

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 и перейти к более высоким версиям, тогда

Код:

var
  MyInfo:PMyInfo;

заменится на

Код:

var
  MyInfo : array of TMyInfo;

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

[Pilot_Red]

Код:

procedure qwerty;
var
  MyStr:String;
begin

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

[angvelem]

или так:

Код:

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]

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

Код:

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

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

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

[angvelem]

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

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

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