![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Привет всем тут хотел у вас просить, как сделать некую задумку...
например у меня есть 1 код Код:
begin ICQ:=TICQClient.create(nill); ICQ.Uin:=StrToInt(edit1.text); ICQ.Password:=edit2.text); ICQ.Login(); end; И вот тут делается процедура чтобы он посылался на номер Код:
procedure TForm1.ICQLogin begin ICQ.SendMessage(989242); / Тому кому мы пишем :) end; Возникает следущий вопрос, если все номерки(штук 100-200) стоят в мемо1 допусти, то какже тогда сделать функцию... так чтоли? Код:
begin ICQ:=TICQClient.create(nill); Icq.Uin:=StrToInt(memo1.Lines.text); Icq.Password:=(memo2.Lines.text); ICQ.Login(); end; lmikle: Нет, кто-то явно жаждет оказаться в read only за неиспользование тегов. Думаю так, а ваши предложение? PS а если допустим в memo1.lines.text; стоят номерки, такого типа номер;пароль то как тогда записать Функию в пассворд? Последний раз редактировалось pali4, 26.01.2009 в 21:35. |