Code:

{©Drkb v.3(2007): drkb ru}

var

  p1 : ^String;

  s1 : String;

begin

  s1 := 'NotTest';

  new (p1);

  p1 := @s1;

  p1^ := 'Test';

  Label1.Caption := s1

 

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить