Как провернуть одну штуку с Pointer'ом и классом?
Помогите заставить работать примерно следующий код:
Код:
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
Где я косячу? |