Привет всем тут хотел у вас просить, как сделать некую задумку...
например у меня есть 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; стоят номерки, такого типа номер;пароль
то как тогда записать Функию в пассворд?