psa1974
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: procedure TForm9.Button1Click(Sender: TObject);
var
s: string; PA: PAnsiChar; PW: PChar;
begin
s:= '127.0.0.1'; PW:= PChar(s); PA:= PAnsiChar(s);
if Pointer(PA) = Pointer(PW) then
ShowMessage('Указатели PChar(s) и PAnsiChar(s) указывают на одну и ту же область памяти');
PA:= PAnsiChar(AnsiString(s));
if Pointer(PA) <> Pointer(PW) then
ShowMessage('Указатели PChar(s) и PAnsiChar(AnsiString(s)) указывают на разные области памяти');
end; |
|
Всего записей: 438 | Зарегистр. 08-11-2005 | Отправлено: 04:09 31-01-2010 | Исправлено: psa1974, 07:31 31-01-2010 |
|
