[Yacudzer]

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

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

Мужик, ты хоть раз в жизни вообще на вопрос ответил нормально? Где именно ответ в вопросе? цитату в студию!

[angvelem]

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

Мужик, ты хоть раз в жизни вообще на вопрос ответил нормально? Где именно ответ в вопросе? цитату в студию!

И неоднократно, а ответ вот:

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

выше я говорил, отходи от канонов Дельфи 3 и выражаясь вашим языком - мужик, ты хоть раз читал внимательно.

[Yacudzer]

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

И неоднократно, а ответ вот:

выше я говорил, отходи от канонов Дельфи 3 и выражаясь вашим языком - мужик, ты хоть раз читал внимательно.

вопрос был "ЧЕМ ПЛОХ" способ приведенный мною. и дельфи 3 тут вовсе не причем...

[lmikle]

Вообще, для подобных целей давно используется PChar.
Есть еще вопросы и непонятки?
И прекращаем лаятся, а то достану плюсомет!!!

[angvelem]

оффтоп: тогда уж минусомёт.

[icWasya]

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

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

Ну если обязательно нужно использовать PString, то так

Код:

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);
  MyInfo.s := Length(MyStr);
end;

/* а теперь всё в обратном порядке */
procedure disposeMyInfo(aMyInfo:PMyInfo);
var
  MyStr:PString;
begin
  MyStr := PString(aMyInfo.a);
  MyStr^:='';
  dispose(MyStr); // если выделяем через New, то и удаляем через dispose;
  dispose(aMyInfo);
end;

begin
{...некоторый код...}
  qwerty;
{...некоторый код...}
  disposeMyInfo(MyInfo);

end.

[icWasya]

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

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

А если не обязательно PString, то

Код:

type
  PMyInfo = ^TMyInfo;
  TMyInfo = record
    Str:PChar;
    Len:integer;
    Next:PMyInfo;
    end;
var
  MyInfo:PMyInfo = nil;

function GenInfo(Str:String):PMyInfo;
begin
  new(Result);
  Result.Next:=Nil;
  Result.Len:=Length(Str);
  GetMem(Result.Str,Length(Str)); {*}
  Move(Str[1],Result.Str^,Length(Str));
end;

procedure DisposeMyInfo(aMyInfo:PMyInfo);
begin
  FreeMem(aMyInfo.Str);
  dispose(aMyInfo);
end;


begin
{...некоторый код...}
  MyInfo := GenInfo('qwerty');
{...некоторый код...}
  dispose(MyInfo);

end.

Со ссылками на Next разберёшься сам