TIdIRC [Indy] Problem

[sECuRE]

Hi,

hol dir einfach den zweiten Abschnitt des Strings, z.B. so:

Delphi-Quellcode:

// sehr schlampige methode falls du die auf ThirdPos erweitern willst, dient nur zu Demozwecken..
function SecondPos(searchfor, searchin:string):integer;
var count:integer; foundfirst:boolean;
begin
foundfirst:=false;
for count:=1 to length(searchin) do
  if (copy(searchin,count,length(searchfor)) = searchfor) then
    if (not foundfirst) then
      foundfirst:=true
    else begin
      result:=count;
      exit;
    end;
end;

procedure PrivMsg(AMsg:string);
begin
if (AMsg = '!test') then
  // blah blah...
end;

// OnReceive
var command:string;
begin
command:=copy(ACommand,Pos(' ',ACommand)+1,length(ACommand));
command:=lowercase(copy(command,1,Pos(' ',command)-1));
if (command = 'privmsg') then
  PrivMsg(copy(ACommand,SecondPos(' ',ACommand)+1,length(ACommand)));
end;

(ungetestet)

cu, sECuRE

(Edit: Variablenname angepasst)
(Edit2: 2 Fehler Korrigiert)