表达式运算,四则混合运算
摘要:自己实现的四则表达式运算类,算是消遣吧,现只支持四则混合运算View Code type Topr = (opAdd, opSub, opMul, opDiv, opLbc, opRbc, opNum); PToken = ^TToken; TToken = record Tag: Topr; V: Double; end; TExp = array of TToken; PExp = array of PToken; TCalc = class private FMsg: string; private function ToInfix(const S: string; va...
阅读全文
posted @
2012-04-06 17:46
chinyeh
阅读(567)
推荐(0)
简单生成ZIP格式文件
摘要:简单ZIP生成类,可以将流打包生成标准格ZIP格式文件,只是没有对流进行压缩,仅是简单的组合,CRC部分参考的网上代码,以下为源码View Code unit uZip;{ Scinyeah 111021}interfaceUses Windows,SysUtils,Classes;Type TSimpleZip = Class Private FFile: TMemoryStream; FDir: TMemoryStream; FCount: Word; FTab:Array[0..255] of DWORD; Procedure InitialTab;...
阅读全文
posted @
2011-10-21 09:14
chinyeh
阅读(1355)
推荐(0)