[~TB~]

Помогите заставить работать примерно следующий код:

Код:

procedure TFormMain.FormCreate(Sender: TObject);
var
  p: Pointer;
  ps: ^string;
begin
  p := @FormMain.Caption;
  { TODO : Тут делаем всякие ужасные непотребства и т.д. }
  ps := p;
  FormMain.Caption := ps^;
end;

То что не получается сотворить - отмечено жирным и вызывает ошибку:
[DCC Error] UnitMain.pas(46): E2036 Variable required
Где я косячу?

[Zorkov Igor]

Код:

var
  p: Pointer;
  ps: string;
begin
  p := Pointer(Form1.Caption);
  { TODO : Тут делаем всякие ужасные непотребства и т.д. }
  ps := String(p);
  Form1.Caption := ps + 'COOL';

[~TB~]

Zorkov Igor,
Спасибо. Отлично работает!

[~TB~]

Поторопился я. Конечно так оно будет работать. Никак нельзя писать прямо по адресу FormMain.Caption?

Пробовал такое:

Код:

var
  p: Pointer;
  ps: ^string;
begin
 p := Pointer(FormMain.Caption);
 { TODO : Тут делаем всякие ужасные непотребства и т.д. }
 ps := p;
 ps^ := ps^ + 'COOL';
end;

И получаю ошибку кривого доступа к памяти...

Может кто знает как сделать что-то подобное? Только, чтобы работало.

[Pyro]

http://www.delphisources.ru/forum/sh...ad.php?t=17828
у меня это бы выглядело так

PHP код:

var
  p: TFoo;
begin
 p := TFoo.create(FormMain, 'Caption');
 p.let(p.get + '111'); // caption = 'FormMain111'
end; 


[~TB~]

Спасибо! Именно то, что нужно.