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)