Just as I expected, "Thomas P" <blomme@post.com> came up with this:
>jeg har brug for at vide hvorfor denne kode ikke virker for mig :)
>
>--------------------
>
>Try
>for i := 1 to ShowSession.Animationer do {ShowSession.Animationer er en
>integer fra en record}
> begin
> Box1.Items.Add(inttostr(i));
> Box2.Items.Add('CapsLock'+inttostr(i));
> Box3.Items.Add('NumLock'+inttostr(i));
> Box4.Items.Add('ScrollLock'+inttostr(i));
> end;
> except on exception do showmessage('AAARRRRRRRGH ! Det gik galt fordi
>ShowSession.Animationer ikke er deklareret !!');
>end;
>
>---------------------
Prøv at fjerne "on exception do". Altså så der står:
try
...
except
showmessage('AAARRRRRRRGH ! Det gik galt fordi
ShowSession.Animationer ikke er deklareret !!');
end;
Niels (aka. niLLer)
--
e-mail: nmartin at iname dot com ICQ UIN: 50187323
http://xoasis.com/~niller/ - niLLer's pages (My programs, in English)
http://whitehat.dk/g4s/ - The G4S Page (Personlig side, på dansk)
-- Behind the end of nowhere!