Цикл для назначения свойств множеству компанент.

← →
Supreme (2002-12-13 12:54) [0]

У меня есть 6 компанент TICQClient с такими названиями:
ICQClient1, ICQClient2, ICQClient3, ICQClient4, ICQClient5, ICQClient6
А в ListBox"e ini-файле имеются такие строки:
1111111=aa
2222222=bb
3333333=cc
4444444=dd
5555555=ee
6666666=ff

Как сделать цикл, чтобы, например, строка "1111111" из ини-файла становилась
значением "UIN" для ICQClient1, а "aa" - значением "Password". Потом, "2222222" -
для ICQClient2 и т.д. И так нужно проделать для каждой компоненты ICQClient(x).
Я просто первый раз сталкиваюсь с такой проблемой, поэтому не знаю, что делать.

← →
Юрий Зотов (2002-12-14 08:34) [1]

Пронумеруйте все Ваши ICQ в свойстве Tag, начиная с нуля. Далее вот что:

for i := 0 to ComponentCount - 1 do
if Components[i] is TICQClient then
with TICQClient(Components[i]), ListBox1.Items do
begin
UIN := Names[Tag];
Password := Values[UIN]
end;

← →
Supreme (2002-12-14 22:03) [2]

На этой строчке: UIN := Names[Tag]; пишет:

"Incompatible types: "Cardinal" and "String"

Пробовал так:
UIN := StrToInt(Names[Tag]);

Выскакивает ошибка "" is not valid integer value

← →
Юрий Зотов (2002-12-14 23:46) [3]

Должно проходить
UIN := StrToInt(Names[Tag]);

А раз не проходит, значит в строке есть не только цифры. Проверьте формат записи (пробелы в начале строки и пр.).

Цикл для назначения свойств множеству компанент. Найти похожие ветки