[Yacudzer]

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

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

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

[angvelem]

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

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

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

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

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

[Yacudzer]

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

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

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

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

[lmikle]

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

[angvelem]

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

[icWasya]

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

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

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

Код:

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 29 30 31 32 33 34 35 36 37 38 39 40

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, то

Код:

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 29 30 31 32 33

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 разберёшься сам