Tvortex(irc) i lista

0

Jak zrobic liste osob na kanale przy pomocy komponentu Tvortex [???]

takie pytanie bylo juz zadawane chyba rok temu :-) ale jedyna odpowiedz to bylo gg jakiegos goscia... a poza tym jest to juz w archiwum :-/

0

ja wiem ja wiem :D

var o,h,v,r,users:tstringlist;nick:string;
ops,halfs,regs,voices,i:integer;   
begin
users:=tstringlist.Create;
usr:=tstringlist.create;
usr.Clear;
users.Text:=stringreplace(ss,' ',#10#13,[rfreplaceall]); //ss to cala lista nickow (z onnames)
for i:=0 to users.Count-1 do
if trim(users.Strings[i])<>'' then usr.Add(trim(users.Strings[i]));

users.Clear;
users.Text:=usr.Text;
usr.Clear;
usr.Free;

//ps jak by cos brakowalo w var to pisz :]

o:=tstringlist.Create;
h:=tstringlist.Create;
r:=tstringlist.create;
v:=tstringlist.Create;

for i:=0 to users.Count-1 do
begin
nick:=users.strings[i];
if pos('@',nick)=1 then o.Add(nick); 
if pos('%',nick)=1 then h.Add(nick);
if pos('+',nick)=1 then v.Add(nick);
if (pos('@',nick)=0)and(pos('%',nick)=0)and(pos('+',nick)=0) then r.Add(nick);  //i tu
end;

{o.Sort;
h.Sort;
v.Sort;
r.Sort;}
if o.count<>0 then
for i:=0 to o.Count-1 do
getusers(channel,'IRC').Items.Add(o.Strings[i]);

if h.Count<>0 then
for i:=0 to h.Count-1 do
getusers(channel,'IRC').Items.Add(h.Strings[i]);

if v.Count<>0 then
for i:=0 to v.Count-1 do
getusers(channel,'IRC').Items.Add(v.Strings[i]);

if r.Count<>0 then
for i:=0 to r.Count-1 do
getusers(channel,'IRC').Items.Add(r.Strings[i]);

o.Free;
h.Free;
r.Free;
v.Free;
//getusers(channel,'IRC').items:=users;
users.Free;
end;
end;
end;

jak cos nie dziala to... a wkoncu ja to pisalem i pewno nie dziala :D

0

w sumie wystarczylo wpisac w onnames

procedure TForm1.vortex1Names(commanicks, channel: String);
begin
memo1.Lines.CommaText := commanicks;
end;

i wszystkie niki ladnie laduja sie do memo ale tvortex.onnames wywoluje sie tylko przy wchodzeniu na kanal :-/ , jak wywolywac w dowolnym momencie procedury on...? (w buttonie np przy onclick wystacrczylo wpisac button.click) a tu NIE MA nic ala vortex.names :-(
da sie to jakos zrobic? bo wpisujac vortex1names(string,string) moge tylko wpisac a ja chce odczytac te parametry , help!

0

Przy JOIN dodawaj nick na liste, przy PART i SIGNOFF usuwaj.

0

Przy JOIN dodawaj nick na liste, przy PART i SIGNOFF usuwaj.

Ale jak wchodzisz na kanal trzeba jakos wyswietlic kto siedzi nie ? :-P

[Dopisane]

Mati ROTFL x 100

1 użytkowników online, w tym zalogowanych: 0, gości: 1