Thema: Delphi TIdIRC [Indy] Problem

Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#8

Re: TIdIRC [Indy] Problem

  Alt 20. Feb 2005, 21:30
hi Toenn,

wieso fängst du PRIVMSG's im "OnReceive" ab? Dazu ist eigentlich "OnMessage" da.

wie auch immer, ich hab mal eine unit die ich vor langer zeit mal geschrieben habe angehängt, pack sie einfach in dein projekt-ordner und binde bei "uses" "TokFuncs" mit ein.

dann benutzt du die funktion "GetTok":

if GetTok(ACommand, 2, ':') = '!testthen ... die funktion benutzt also ":" als trenner und holt dann das 2te stück.


Zitat:
Wie kann ich jedoch mehrere Nick in das Edit Feld eintragen und mit ner Leertaste trennen?
hier kann ich dir die unit auch anbieten *g*...

Wie gesagt unit einbinden und dann:

Delphi-Quellcode:
var
  i: Integer;
begin
  for i := 0 to NumTok(Form2.LabeledEdit1.Text, ' ') do
  begin
    if Auser.Nick = GetTok(Form2.LabeledEdit1.Text, i, ' ') then ...

  end;
end;

hier ist NumTok die Menge deiner nicks in deinem edit (getrennt durch space) und GetTok der einzelne nick.

mfg
Angehängte Dateien
Dateityp: pas tokfuncs_150.pas (9,0 KB, 5x aufgerufen)
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat