[Pyro]

вопрос знатокам - как можно записать в переменную свойство объекта (компонента) чтобы после записывать и читать его значение?
указатели не работают:

PHP код:

var
  p: pointer;
begin
  p := @Form1.caption;
end; 


>>[Error]Variable required

смысл этого чтобы сделать отображение строк на переменные
для удобства записи и чтения из ini файлов в свойства и обратно

сейчас код на указателях с переменными работает ок
а со свойствами компонент - нет

[dr. F.I.N.]

Мне кажется, это будет выходом.
Немного подумать над реализацией и в путь!

[Viajero]

смысл этого чтобы сделать отображение строк на переменные
для удобства записи и чтения из ini файлов в свойства и обратно

Поясни, что сказал.
Если ты хочешь хранить caption в ini то храни строки, зачем тебе указатели. Или я что то не так понял.

[Pyro]

dr. F.I.N.
Спасибо! похоже это именно то что надо

Viajero
я делаю один объект чтобы когда надо добавить строку в ini файл -
надо добавить в программу только одну строку кода в процедуре;
а места где запись и чтение не трогать, и еще нечто подобное с реестром
завтра выложу если заработает со свойствами

PHP код:

procedure InitIni;
begin
inimap := TiniManager.Create('ini.ini')
inimap.define('section', 'somevar', '100', TInt.Create(@intvar));
inimap.define('section', 'somevar2', 'default', TStr.Create(@strvar));
inimap.define('section', 'somevar3', 'yes', TBool.Create(@boolvar));
end; 


PHP код:

inimap.write;
inimap.read; 


[Pyro]

почти все получилось
со свойствами сделал так:

PHP код:

ini.define('main', 'form-x', '100', TProp.Create(Form1, 'left'));
ini.define('main', 'form-y', '100', TProp.Create(Form1, 'top')); 


ещё велосипед с регистрацией типов файлов в реестре прикрутил

PHP код:

result := TRegAssoc.Create('txt');
result.defineIcon(Application.ExeName);
result.defineDefaultCommand('open');
result.defineCommand('open', 'open me!', Application.ExeName);
result.defineCommand('edit', 'edit me!', 'notepad'); 


PHP код:

if not result.check then
begin
  result.write
  sys_upd;
end; 


во вложении текст если интересно