[morebeauty]

Народ, я уже с ума схожу с этим Эддобжектом... Я понимаю, в поинтере хранится 4 байта и тд, но вот этот код у меня срабатывает как надо:

Код:

var
VarStr:string;
VarPtr:pointer;
begin
VarStr:='Hello, World!';
VarPtr:=pointer(VarStr);
ShowMessage(string(VarPtr));
end;

Выводит 'Hello, World!'

Не знаю по какой причине. Хотя, наверное, не должен.

вот такой код

Код:

for ...
begin
TreeView1.items.AddChildObject(Node,OtherVarString,pointer(VarStr));
end;

срабатывает не всегда. То есть иногда возвращает всякий мусор. Ну да ладно, можно же сделать СтрингЛист. Делаю так:

Код:

for ...
begin
VarInt:=VarStringList.add(VarStr);
VarPtr:=pointer(VarInt);
TreeView1.items.AddChildObject(Node,OtherVarString,VarPtr);
end;

и вуаля!.... Строка VarPtr:=pointer(VarInt); не КОМПИЛИРУЕТСЯ!!! То есть когда я пошагово перебираю код (при выполнении), компилятор просто проскакивает МИМО этой строки. Если я ставлю на ней БрейкПоинт, то ничего не происходит.

Если я обхожусь без этой строки, то есть

Код:

TreeView1.items.AddChildObject(Node,OtherVarString,pointer(VarInt));

то в дату нода вообще ничего не добавляется, хотя переменная VarInt существует и имеет вполне конкретное значение (ну это и из кода видно).