Оператор доступа в Delphi - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Оператор доступа в Delphi (http://forum.oszone.net/showthread.php?t=29960)

Столкнулся с проблемой:

Пишу:

with label1, label2, label3 do
       caption := 'метка';

В итоге значение "метка" применяется только объекту label3,  а остальным нет.

В чём моя ошибка ?

Никогда не думал, что так можно написать. Что вы хотели сказать этим куском кода? Чтобы он выполнялся три раза для разных label? Я, конечно, delphi плохо знаю, но по-моему, так писать нельзя.

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

Код:

with label1 do

 &nbsp; with label2 do

 &nbsp; &nbsp; &nbsp; with label3 do

 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; caption:='метка';

Почитайте справку по инструкции with - там есть описание такой штуки.

Так, я что-то не понял.
Если она эквивалентна, то почему же она не правильна?

Я рекомендовал прочесть то, что сказано на этот счет в помощи:

Цитата:

with obj1, obj2, ..., objn do statement
эквивалентна
with obj1 do
 with obj2 do
    ...
    with objn do
statement
In this case, each variable reference or method name in statement is interpreted, if possible, as a member of objn; otherwise it is interpreted, if possible, as a member of objn-1; and so forth.

Имеем: В этом случае  каждое вхождение переменной или имени метода в statement интерпретируется, если возможно, как член objn; иначе интерепретируется, если возможно, как член objn-1 и так далее.

В вашем случае свойство caption можно поменять уже у самого низко расположенного по вложенности объекта TLabel... что в общем-то сразу видно из эквивалентного варианта кода.

Prisoner
А как следует написать, чтобы caption='' применилось для всех label'ов?

Установку свойств нескольких объектов можно сделать через RTTI функцию SetXXXProp, где XXX - мнемоника типа свойства и может быть Ord, Str, Float... а вот как реализовать обход компонентов для смены свойств уже дело конкретной задачи.
Для примера следующий обработчик клика на кнопку установит всем объектам на форме у которых есть свойство caption значение bla-bla-bla:

Код:

procedure TForm1.Button1Click(Sender: TObject);

Var

 &nbsp;i: integer;

 &nbsp;PropInfo: PPropInfo;

begin

for i:=0 to Form1.ComponentCount-1 do

 &nbsp;begin

 &nbsp; &nbsp;PropInfo := GetPropInfo( Form1.Components[i].ClassInfo, 'Caption');

 &nbsp; &nbsp;if PropInfo &lt;&gt; nil then

 &nbsp; &nbsp; &nbsp;SetStrProp( Form1.Components[i], PropInfo, 'bla-bla-bla' );

 &nbsp;end;

end;

В моем случае это было три надписи (TLabel).

PS для примера надо включить в раздел uses модуль TypInfo.