Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Supreme © (2002-12-13 12:54:00)
У меня есть 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 23:46:00) [1]
Должно проходить
UIN := StrToInt(Names[Tag]);

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

Supreme (2002-12-14 22:03:00) [2]
На этой строчке: UIN := Names[Tag]; пишет:

"Incompatible types: "Cardinal" and "String"

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

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

Юрий Зотов (2002-12-14 08:34:00) [3]
Пронумеруйте все Ваши 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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »