TStringList - eksisterer de?
Hvordan validerer jeg om CmdList[0] eller fx CmdList[1] eksisterer??CmdList := TStringList.Create;
try
i := pos(' ', Text);
while i > 0 do begin
CmdList.add(Copy(Text, 1, i-1));
delete(Text, 1, i);
i := pos(' ', Text);
end;
CmdList.add(Text);
if (CmdList[0] = '/join') then
begin
{ HER SKAL JEG CHECKE OM CmdList[1] I DET HELE TAGET EKSISTERER??? }
s := cmdlist[1];
if ( (s <> '') and (s[1] = '#') ) then
fMainForm.IRC.Join(CmdList[1])
else
fMainForm.IRC.Join('#'+CmdList[1]);
end
