随笔分类 - Delphi
摘要：由项目需要，需要扫描1200万行的文本文件。经网友的指点与测试，发现C#与Delphi之间的差距并不大。不多说，列代码测试：下面是Delphi的代码：//遍历文件查找回车出现的次数functionScanEnterFile(constFileName:string):TInt64Array;varMyFile:TMemoryStream;//文件内存rArray:TInt64Array;//行索引结果集size,curIndex:int64;//文件大小，当前流位置enterCount:int64;//回车数量DoLoop:Boolean;//是否继续循环pc:PChar;arrayCount
阅读全文
摘要：由于ID卡或者是其它的一些不同类型的卡，它们只是负责模拟键盘的录入，但是，它们在录入的时候没有一个很好的标识位可以让我们知道当前输入的是客户手工录入的字符串还是ID卡读入的字符串，我相信，很多人在做这样的开发时应该都遇到过这种郁闷的事，有些人的做法呢，就是在特定的位置录入字符串就算是ID卡的读取了，我想，这样的方法很多人都不喜欢的了，感觉很不科学。因此，这模块就是应这种要求而设计的，可以让你在任何情况下，应该说，限制很少的情况下，满足了题目的要求。废话不多说，先看看模块代码：unitzgw_IDCheckU;interfaceusesWindows,Dialogs;typeTIDCheckOK
阅读全文
摘要：ID卡的读取方式其实是模拟一个键盘的录入而已，很简单，现在这个ID卡读取方法是为了在任何情况下把它正确读取出来的方法，例如你在tedit控件里面，当读取了ID卡时，会和其它数据混在一起，而我这种方法，能正确地读取出ID卡的正确数据，如果你同时快速按键盘又同时读取ID卡时，它是不会读出数据的，这样是为了防止读出来的数据不正确。不多说，下面是代码，还有测试用的代码一起的，我就不改了，大家可参考一下：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Std
阅读全文
摘要：unit testDBG;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls,Types;type TForm1 = class(TForm) DBG: TDBGrid; ADOConnection1: TADOConnection; ADOTable1: TADOTable; DataSource1: TDataSource; procedure DBGDrawColumnCel
阅读全文
