В чем проблемка?

[DKENT]

Здраствуйте!
Вообшем пишу программу для отправки мгновеных сообшений!

Но суть в том чтобы Сообшение отправлялось с 3 icq подряд!

Набросал код программа работает, но не так как нужно!

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to memo1.lines.Count-1 do
begin
ICQClient1.Uin:=StrToInt(Copy(memo1.lines[i],1,pos(';',memo1.lines[i])-1));
ICQClient1.Password := Copy(Memo1.Lines[i],POs(';',Memo1.Lines[i])+1,Length(Memo1.Lines[i]));
ICQClient1.Login();
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
 var
i : integer;
begin
for i:=1 to 3 do
begin
timer1.Interval:=2000;
ICQClient1.SendMessage(*********,"Проверка";
end;
end;

Вот в компоненте Memo у меня три аси вида icq;pass
Нажимаю подключение!
После чего Button.Click2 Отправить
Но приходит сообшение только с аси которая в последняя в списке в компоненте Memo1
Народ прошу помоши заранее благодарен))))

[Voody]

А компонентов TICQClient у вас тоже три?

[DKENT]

Нет компонент 1!
А смысл добавлять 3 компонента?

[evg_m]

А смысл добавлять 3 компонента?

for i := 0 to memo1.lines.Count-1 do
begin
ICQClient1.Uin:=StrToInt(Copy(memo1.lines[i],1,pos(';',memo1.lines[i])-1));
ICQClient1.Password := Copy(Memo1.Lines[i],POs(';',Memo1.Lines[i])+1,Length(Memo1.Lines[i]));
ICQClient1.Login();
end;

К какой из трех будет подключен ICQClient1 после выполнения цикла?!

У тебя есть три розетки (три аськи) и одна вилка (ICQClient1).

for i:=1 to 3 do
begin
timer1.Interval:=2000;
ICQClient1.SendMessage(*********,"Проверка";
end;

До кучи продолжая аналогию.
В подключенную розетку (аську) отправляем с заданным интервалом три сообщения.

[DKENT]

А как же тогда зделать чтобы в мемо автоматически считалось сколько ась и они подключались?

Так что люди помочь кто нибудь сможет?

Нужно чтобы автоматически определяло сколько icq в memo и подключало их всех к сети!))

[DomiNick]

Ну так... Создавать TICQClient динамически? Стока скока их нужно...

[DKENT]

Если вас не затруднит можно конкретный пример по моему коду?

procedure TForm1.sButton1Click(Sender: TObject);
var
mas_uin: array[1..3] of ticqclient;
i : integer;
begin
for i := 0 to smemo2.lines.Count-1 do
begin
mas_uin[i].Uin:=StrToInt(Copy(smemo2.lines[i],1,pos(';',smemo2.lines[i])-1));
mas_uin[i].Password := Copy(sMemo2.Lines[i],POs(';',sMemo2.Lines[i])+1,Length(sMemo2.Lines[i]));
mas_uin[i].Login();

Неработает

[DomiNick]

Неработает

Вы обращаетесь к несуществующему экземпляру класса...
У меня нет такого компонента, так что опробовать не могу, но перед использованием надо каждый объект создавать...
Должно быть что-то вроде mas_uin[i].Create;

[DKENT]

procedure TForm1.sButton1Click(Sender: TObject);
var
mas_uin: array[1..3] of ticqclient;
i : integer;
begin
for i := 0 to smemo2.lines.Count-1 do
begin
mas_uin[i].Create;
mas_uin[i].Uin:=StrToInt(Copy(smemo2.lines[i],1,pos(';',smemo2.lines[i])-1));
mas_uin[i].Password := Copy(sMemo2.Lines[i],POs(';',sMemo2.Lines[i])+1,Length(sMemo2.Lines[i]));
mas_uin[i].Login();
end;
end;

Неработает(((

[evg_m]

создание объектов делам так

mas_uin[i]:=Tticqclient.Create;

procedure TForm1.sButton1Click(Sender: TObject);
var
mas_uin: array[1..3] of ticqclient;

локальный массив при выходе из процедуры он не существует и все прочие процедуры про него не знают.

нельзя использовать розетки в комнате (процедуре) не входя в нее.
перенесите описание массива в класс формы (в раздел PRIVATE).
и сможете использовать данный массив в любой процедуре этого класса (формы).