Out of curiosity: why do you use "Ord"? You can achieve the same by just
using the chars:

=== code begin ===
   case Key of
     '>',
     #03: begin
       //...
     end;
     '<',
     #02: begin
       //...
     end;
     else begin
       //...
     end;
   end;
=== code end ===

Regards,
Sven
Hum, you are right. Only history. I herited if this program (and others) and I haven't yet finish to restructure it as it suffers of continous development

--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus



--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to