El Jueves, 30 de Diciembre de 2004 22:48, Jesus Reyes escribiste:
> procedure doAorB(value: boolean);
> begin
> case value of
> true: doA;
> false: doB;
> end;
> end;
if Value then
DoA
else
BoB;
--
saludos,
Nico Aragón
http://espira.net/nico/