
| Если это ваш первый визит, рекомендуем почитать справку по форуму. Для размещения своих сообщений необходимо зарегистрироваться. Для просмотра сообщений выберите раздел. |
![]() |
||
Делфи. Как преоразовать строку в исполняемый код программы?
|
||
| Философия, технологии, алгоритмы! |
![]() |
|
|
Опции темы |
|
|
#1 |
|
Форумец
Сообщений: 51
Регистрация: 11.12.2009
|
Делфи. Как преоразовать строку в исполняемый код программы?
Привет! Недавно столкнулся с такой проблемкой, нужно преобразовать строку типа String в исполняемый код программы в Делфи. К примеру:
var i,j : integer; str : string; begin for i := 1 to 9 do begin str := 'form1.Edit'+ IntToStr(i)+'.Color'; label1.Caption := str; str:= clblack; end; В конечном итоге Edit'ы с 1 по 9 должны покраситься в черный цвет. Может кто-то сталкивался с такой проблемой? |
|
|
|
#4 |
|
Registered User
Сообщений: 1,113
Регистрация: 23.06.2007
Возраст: 58
|
|
|
|
|
#5 |
|
Форумец
Сообщений: 19
Регистрация: 04.03.2008
|
Бред полный. Это невозможно, особенно относительно данного примера.
И вообще, эта проблема решается гораздо проще: Код:
var
i: integer;
...
begin
for i:=0 to MForm.ComponentCount-1 do
if MForm.Components[i] is TEdit then
(MForm.Components[i] as TEdit).Color:=clBlack;
...
|
|