169 похожих чатов

Тоесть ты создал tstribgstream, потом создал ещё один когда встретил

tkClass в rtti, заменил ссылку fts на вновь созданную, так?)

7 ответов

23 просмотра

вроде так

Александр-В Автор вопроса
Денис
вроде так

А кто освободит то, что в конструкторе было выделено, в момент когда ссылку обновили?)

Александр-В Автор вопроса
Денис
Деструктор, в момент вызова FreeAndNil(MyClass);

Это так не работает) в момент, когда он освобождается, в нем ссылка уже заменена. А то что ты создал в конструкторе - твоя утечка.

Александр В
Это так не работает) в момент, когда он освобождае...

Хорошо, вопрос в основном в этом и заключался : Как переменной fValue типа TValue отдать значение TStringStream. Что-то типа fValue.Assing(....) чтобы потом можно было TStringStream сделать Free

Александр-В Автор вопроса
Денис
Хорошо, вопрос в основном в этом и заключался : Ка...

Так я тебе сказал - как. Ну неужели ещё не пришло в голову, что если создал свой стрим, то нужно сперва освободить под него память, если она занята? Ну а вообще, по фен-шую - нужно не ссылки обновлять, а если у тебя поле tkClass, то просто в него загрузить нужные данные. Или копируй стрим в стрим, тогда сможешь убить созданный не убив свое поле.

Денис
Хорошо, вопрос в основном в этом и заключался : Ка...

Как вариант - не использовать tstringstream, а использовать интерфейсы. Найти готовые обертки (spring4delphi? TStreamAdapter кажется бвюыл в дельфе для ole2) или написать свои. Тогда не придётся free вообще вызывать.

Похожие вопросы

Обсуждают сегодня

а через ESC-код ?
Alexey Kulakov
29
30500 за редактор? )
Владимир
47
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
13
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...
notme
6
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
6
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Ребят в СИ можно реализовать ООП?
Николай
33
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Карта сайта