| var |
| p1 : ^String; |
| s1 : String; |
| begin |
| s1 := 'NotTest'; |
| new (p1); |
| p1 := @s1; |
| p1^ := 'Test'; |
| Label1.Caption := s1 |
| |
| |
Взято с Vingrad.ru http://forum.vingrad.ru
| |
организация детских праздников Киев | телевизоры самсунг