Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Проблема с перечислением

Автор: student43 22.6.2006, 15:46

У меня на форме есть 100 компонентов с именами Img1A, Img1B, ..., Img2H и т.д. как поочереди обратиться к каждому из них ?

То есть сделать 2 цикла и процедуру обращения, вот алгоритм.

цикл1 (перечисляються цифры)
начало
цикл2 (перечисляються буквы)
начало

А вот тут мне нада сделать обращение так чтобы название компонента задавалось динамически, то есть соединялось из частей "Img"+"цифра из цикла1"+"буква из цикла 2"

конец;
конец;

На форуме искал не мог найти, помогите пожалуйста завтра курсовую сдавать нада...

smile

Автор: Matematik 22.6.2006, 15:52

Код


var j,i:Integer;
c:TComponent;
begin
  for j:=1 to 9 do
    for i:=Ord('A') to Ord('Z') do
    begin
      c := FindComponent('Img'+Inttostr(j)+Chr(i));
      if c<>nil then
      begin
        showmessage(c.Name)
      end
    end

Автор: student43 22.6.2006, 16:04

почему то работает только для атрибута Name, а свойства picture.LoadFromFile не работают ((

Автор: Alexeis 22.6.2006, 16:23

student43, надо так (с as TImage).picture.LoadFromFile...

Автор: student43 22.6.2006, 16:29

oki работает сенк!-

Автор: DvarfInkvizitor 10.7.2006, 20:19

Такая трабла.

Есть 32 элемента TLable, нужно сделать цикл, который будет заполнять Caption у этих элементов.

Помогите, пожалуйста.

Автор: volvo877 10.7.2006, 20:29

Код


For i:=1 to 32 do 
  (FindComponent(Format('Label%d',[i])) as TLabel).Caption := ... ;

Автор: DvarfInkvizitor 10.7.2006, 21:07

Спасибо. Это работает. Объясните новичку, почему этот же код не работает со свойством Color?

вылетает ошибка:
Project Interface_01.exe raised exception class EAccessViolation with message 'Access violation at address 00438A20 in module 'interface_01.exe'. Read address 00000070'. Process stopped.

Автор: volvo877 10.7.2006, 21:41

Цитата(DvarfInkvizitor @ 10.7.2006, 21:07

)

Объясните новичку, почему этот же код не работает со свойством Color?

Как не работает? Только что проверил - прекрасно поменялись цвета:

Код


For i:=1 to 4 do
  (FindComponent(Format('Label%d',[i])) as TLabel).Font.Color := clRed;

Добавлено @ 21:48
Да и просто .Color тоже отрабатывает...

Автор: DvarfInkvizitor 10.7.2006, 21:51

Странно, щас заработал, только мне нужно было не (...).Font.Color а просто (...).Color. Может точка на русском языке была поставлена!?!?
Ладно, всё зароботало - помогло существенно оптимизировать работу проги.
спс )