Pointer

[Superlotles]

var
Form1: TForm1;
S1:String;
p:pointer;

S1:='Test';
p:=@S1;
if p=pointer(S1) then
ShowMessage ('Я думаю верно');
end;

Почему p не равняется pointer(S1), вед в них в обоих содержится адрес строки 'Test'

[Пепел Феникса]

взятие адреса и приведение типов по вашему должно дать один результат?
лучше явно брать указатель.

[russian-stalker]

Вы сравниваете адрес и указатель, надо или указатели сравнивать или адреса. Вот например сравнение адресов:

procedure TForm1.Button1Click(Sender: TObject);
var
S1:String;
p:pointer;
begin
S1:='Test';
p:=@S1;
if p=@pointer(S1) then
ShowMessage ('Я думаю верно');
end;

Или вот указателей:

procedure TForm1.Button1Click(Sender: TObject);
var
S1:String;
p:pointer;
begin
S1:='Test';
p:=pointer(S1);
if p=pointer(S1) then
ShowMessage ('Я думаю верно');
end;

[Superlotles]

Сообщение от Пепел Феникса

взятие адреса и приведение типов по вашему должно дать один результат?
лучше явно брать указатель.

p:=@S1;//содержится адрес S1
pointer(S1)// содержится адрес S1

По моему они должны быть равны ?
Напишите что содержится в каждой переменной !

Сообщение от russian-stalker

Вы сравниваете адрес и указатель, надо или указатели сравнивать или адреса. Вот например сравнение адресов:

Когда сравниваешь даные переменных String и PChar почему то они оказываются равными, так что так не понятно. Повторяюсь напишите чем отл-ся содержимое:

p:=@S1;//содержится адрес S1
pointer(S1)// содержится адрес S1

[Stilet]

pointer(S1)// содержится адрес S1

Нет не содержится.
Это ты тип привел. Но это неверная запись. Компилер может не понять Лучче через @ получать адрес.

[Superlotles]

Блин я кажется понял !!! Аллилуя