摘要： 自己实现的四则表达式运算类，算是消遣吧，现只支持四则混合运算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... 阅读全文

摘要： 简单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;... 阅读全文

摘要： 代码 阅读全文