Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

PChar:=String [D6]

Страницы: 1 2 3 >
GTAID © (2006-08-17 20:07:00)
Как присвоить String к PChar?
Хелп!
Как сделать в обратную сторону я знаю: String:=StrPas(PChar)

DevilDevil (2006-08-23 00:19:00) [1]
Это я, - забыл ник сменить

Злой (2006-08-23 00:18:00) [2]
> begin...end © (22.08.06 20:31) [49]
Такова особенность типов с управляемым временем жизни, к которым относятся и длинные строки (AnsiString).

Благодарю. А где можно поподробнее почитать о типах с управляемым временем жизни?

> P.S. Так как насчёт [29]? За словеса отвечать будем, или как?

begin...end © (18.08.06 18:46) [29]
> DevilDevil © (18.08.06 16:19) [15]
А можно пояснить, кого, например, я обкакал в посте [5]? Аж интересно.

Естественно, к Вам моя реплика не имеет ни какого отношения

ronyn (2006-08-23 00:17:00) [3]

> Просто Delphi вкупе с Флёновыми развращает. Не учит пониманию
> простых вещей.
> Точнее, не простых, а основополагающих.

Почему бы это. Кто что имеет против Флёнова?

begin...end (2006-08-22 20:31:00) [4]
> DevilDevil © (22.08.06 18:32) [47]

> Если я уменьшу размерность этого массива...

В процессе выполнения программы Вы не можете изменить размерность массива (ни статического, ни динамического) -- она постоянна, и в данном случае равна 1. То, о чём Вы говорите, называется размером, а не размерностью.

> то освободится только память под указатель, а "деструктора"
> строки не поизойдёт

Вы ошибаетесь. При уменьшении размера массива, состоящего из длинных строк, счётчик ссылок удаляемых из массива строк уменьшится на 1, и если после этого окажется, что он равен 0, то память, занимаемая телами этих строк, освободится автоматически. Такова особенность типов с управляемым временем жизни, к которым относятся и длинные строки (AnsiString).

Если бы речь шла о массиве простых указателей, содержащих адреса участков памяти, выделенных Вами с помощью, скажем, GetMem, то Вы были бы правы -- перед уменьшением размера массива следовало бы вызвать FreeMem для каждого удаляемого элемента.

P.S. Так как насчёт [29]? За словеса отвечать будем, или как?

Anatoly Podgoretsky (2006-08-22 18:48:00) [5]
Еще раз повторяю с чего бы, у тебя ошибка где то в другом месте.

DevilDevil (2006-08-22 18:32:00) [6]

> Anatoly Podgoretsky © (22.08.06 15:32) [45]
>
> DevilDevil © (22.08.06 15:18) [41]
> С чего бы.

Ну смотри, у меня есть динамический массив строк, размерности 3. Каждый элемент - условно говоря указатель на какую-то область динамической памяти:
StrArr[0] := 'STR 0'; StrArr[1] := 'STR 1'; StrArr[2] := 'STR 2';

Если я уменьшу размерность этого массива, то освободится только память под указатель, а "деструктора" строки не поизойдёт; поэтому и утечка памяти... Длят того чтобы этого не происходило, я должен перед уменьшением размерности массива "обнулить" освобождаемые строки:
StrArr[1] := ''; StrArr[2] := ''; SetLength(StrArr, 1);

Я не прав?

Ega23 (2006-08-22 16:05:00) [7]

> DiamondShark © (18.08.06 22:27) [40]
>
>
> > Ega23 © (18.08.06 18:50) [31]
>
> Не верю.
>

Всё просто. Это диалог изменения свойств объекта. Создаётся динамически. Изменения "принимаются" по нажатию кнопки.
TLookupComboPropertyFrame = class(TFrame, IPropertyFrame) DBLookupCombobox: TDBLookupComboboxEh; lbText: TLabel; adsData: TADODataSet; dsData: TDataSource; private FTarget: PVariant; FDebug: Boolean; { Private declarations } public class function init(tgt: PVariant; text : string;dlg : TPropertiesForm) : TLookupComboPropertyFrame; procedure refreshData; // Called to bring data from object to controls. procedure applyData; // Called to bring data from controls to object. procedure rejectData; // called to cancel changes. function get_frame : TFrame; property frame : TFrame read get_frame; property target : PVariant read FTarget write FTarget; property Debug : Boolean Read FDebug Write FDebug; end; implementation {$R *.DFM} { TLookupComboPropertyFrame } //***************************************************************************** procedure TLookupComboPropertyFrame.applyData; begin FTarget^:=DBLookupCombobox.KeyValue; //FTarget^:=adsData.FieldByName(DBLookupCombobox.KeyField).AsInteger; end; //***************************************************************************** function TLookupComboPropertyFrame.get_frame: TFrame; begin Result:=Self; end; //***************************************************************************** class function TLookupComboPropertyFrame.init(tgt: PVariant; text: string; dlg: TPropertiesForm): TLookupComboPropertyFrame; var frm : TLookupComboPropertyFrame; begin frm := TLookupComboPropertyFrame.Create(dlg); frm.Name := 'C' + IntToStr(Random(2000000000)); frm.FTarget := tgt; frm.lbText.Caption := text; dlg.addFrame(frm); Result := frm; end; //***************************************************************************** procedure TLookupComboPropertyFrame.refreshData; begin try DBLookupCombobox.KeyValue:=FTarget^; except end; end; //***************************************************************************** procedure TLookupComboPropertyFrame.rejectData; begin refreshData; end; //*****************************************************************************

FTarget - и есть адрес, по которому надо внести изменения. А, соответственно, на init я этот адрес и задаю.

Anatoly Podgoretsky (2006-08-22 15:32:00) [8]
DevilDevil © (22.08.06 15:18) [41]
С чего бы.

Anatoly Podgoretsky (2006-08-22 15:30:00) [9]
Loginov Dmitry © (18.08.06 18:33) [26]
Это вообще бред.

Anatoly Podgoretsky (2006-08-22 15:29:00) [10]
Loginov Dmitry © (18.08.06 17:09) [21]
Я бы поостерегся говорить о приведении по отношению к PChar(Text) - это совсем не так.

Anatoly Podgoretsky (2006-08-22 15:27:00) [11]
DiamondShark © (18.08.06 10:38) [7]
Короче, до времени ее изменения.

DevilDevil (2006-08-22 15:18:00) [12]
А мне вот интересно следующее:

Если объявить динамический массив строк, потом периодически изменять его размерность, утечка памяти будет?

DiamondShark (2006-08-18 22:27:00) [13]

> Ega23 © (18.08.06 18:50) [31]

Не верю.

Loginov Dmitry (2006-08-18 21:20:00) [14]
Тогда получается, что мое утверждение в [28] верно только при обращении Integer(@Text[1]). То есть при Integer(Text) копирование строки при передаче в подпрограмму не выполняется, увеличивается только счетчик ссылок.

begin...end (2006-08-18 21:20:00) [15]
> Loginov Dmitry © (18.08.06 21:10) [37]

> После [23] я уже ничему ни удивляюсь.

А я, ей-богу, не перестаю удивляться. Людям, которые в форуме для начинающих выдают свои заблуждения за истину.

Loginov Dmitry (2006-08-18 21:10:00) [16]
После [23] я уже ничему ни удивляюсь. Фишку усек вроде: при обращении к Text[1] происходит вызов UniqueString.

MBo, за ссылку спасиба! Можно век программить, и не узнать таких подробностей о строках.

begin...end (2006-08-18 20:45:00) [17]
> Loginov Dmitry © (18.08.06 20:16) [35]

> [Integer(@Text[1]), Integer(Mes)]

Заменить на [Integer(Text), Integer(Mes)]. Скомпилировать. Запустить. Удивиться.

Loginov Dmitry (2006-08-18 20:16:00) [18]
> Что я делаю не так?

А что делаешь так?

В общем, посмотри такой код:

procedure ShowError(Text : string); var Mes : pchar; begin Mes := pchar(Text); ShowMessageFmt('Память строки: %d Новый буфер: %d', [Integer(@Text[1]), Integer(Mes)]); end; procedure TForm1.Button1Click(Sender: TObject); var S: string; begin S := 'BlaBlaBla'; ShowError(S); end;

Здесь память для Mes выделяется. Выделяется она даже в случае использования директивы var. Исключение - const

Ketmar (2006-08-18 18:56:00) [19]
пардон за опечатки. тяпница, вечер...

Ketmar (2006-08-18 18:56:00) [20]
> [29] begin...end © (18.08.06 18:46)
вполне верю. в свое время в каких-то Delphi смотрел на код, генерируемый SetCOnsoleTitle(PChar(s)) -- был очень удивлён. делалась копия s, это передавалось винеж, потом копию убивали.

Страницы: 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »