Изменение свойств нескольких объектов

← →
Artem Bakulin (2002-06-11 20:29) [0]

У меня такая ситуация: мне надо при запуске программы прочитать из файла название кнопок и присвоить эти названия соответственно этим кнопкам. Дак вот вся трабла в том, что я не знаю как мне это сделать?

← →
alexdbases (2002-06-11 22:23) [1]

Попробуй так
for i:=0 to ComponentCount-1 do
if Component[i] is TButton then
TButton(Component[i]).Caption := "Моё име";
Но этот пример переписывает все имена всех кнопок на "Моё име"...
Сам подумай как найти нужные кнопки...это просто.(Сравневая капшены кнопок и тд...).
Но это испоьзование RTTI для Д5...но должно работать.Просто этот стандарт меняеться из выпуска в выпуск Дельфей...ВСЁ.

← →
Новеньки в Делфи (2002-06-11 23:44) [2]

можешь создать файл следующего типа:

имя_компонента1&значение#
имя_компонента2&значение#

затем в onActivate формы, открываешь файл, читаешь построчно, учитывая символы "&" и "#" разделяешь значения затем

findComponent(имя_компонента).его_свойство:=значение

только учти, что бы поменять некоторые свойства, нужно явно указать, какого типа является компонент с помощью "as" например
---файл---
btStart&Run#
---файл---

sName- имя компонента вырезаное из файла
sValue - значение компонента вырезаное из файла

---код---
(findComponent(sName) as TButton).caption:=sValue;
---код---

Изменение свойств нескольких объектов Найти похожие ветки