[Lotles]

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

Код:

p1 := @S;

и

Код:

p2 := pointer(S);

ничем не отличаются, в делфи для удобства знак @ означает адрес (или указатель)
если нужно конкретное решение, высказывай проблему - подскажем

Код:

var
  Form1: TForm1;
Str:String;
p1:pointer;
p2:pointer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Str:='text';
p1:=@Str;
p2:=pointer(Str);
if p1=p2 then
ShowMessage ('p1 и p2 ничем не отличаются');//это сообщение не высвечив-ся
end;

end.

Тогда здесь почему так ?