Delphi 24点游戏实例代码

Delphi 24点游戏实例代码，这是个图片版的24点游戏源码。读取第一个运算符的位置以得到表达式的第一个数字 　　function AnyFirstPos(Str: string): Integer; 　　//读取最后一个运算符的位置以得到表达式的最后一个数字 　　 function AnyLastPos(Str: string): Integer; 　　//判断最先出现的符号是+号、-号、*号还是/号 　　 function AnyFirstF(Str:String):Char; 　　//此计算用于计算不带（）号的加、减、乘、除运算 　　 function SubCompute(Str:String):integer; 　　//用于计算表达式的结果 　　随机读取4张牌同时启动计时器，输入的数至少有一个不是系统所发4张扑克中的一个。