随笔分类 - DELPHI
摘要：1 RowOut: pByteArray; 2 RowIn : array[0..2400] of pByteArray; 3 4 RowOut := pByteArray(Bitmap0.Scanline[y]); 5 6 RowIn[xout] := pByteArray(Imagebits.Picture.Bitmap.Scanline[wout-1-xout]); 7 8 9 if RowIn[x*8+bitx][y div 8] and pu2[y mod 8] <> 0 then 10 11 if RowIn[x*8+bitx]^[y div 8] an...
阅读全文
摘要：/*The CRC calculation unit mainly consists of a single 32-bit data register, which:is used as an input register to enter new data in the CRC calculator(when writing into the register) holds the result of the previous CRC calculation(when reading the register)Each write operation into the data regist
阅读全文
摘要：unit USBDeviceNotify;//USB Device arrival or removeinterfaceuses Windows, Messages, SysUtils, Classes, Forms;type PDevBroadcastHdr = ^DEV_BROADCAST_HDR; DEV_BROADCAST_HDR = packed record dbch_size: DWORD; dbch_devicetype: DWORD; dbch_reserved: DWORD; end; PDevBroadcastDev...
阅读全文
摘要：http://marc.durdin.net/2011/10/comparing-tstringstream-vs-tstringlist.htmlThere are two methods widely used in Delphi code for reading and writing strings to/from streams with Delphi,that initially seem pretty similar in their behaviour. These areTStrings.SaveToStreamandTStringStream.SaveToStream (o
阅读全文
摘要：http://delphi.wikia.com/wiki/CompilerVersion_ConstantThe CompilerVersion constant identifies the internal version number of the Delphi compiler.It is defined in the System unit and may be referenced either in code just as any other constant:if CompilerVersion = 20 then sCompilerName := 'Delphi 2
阅读全文
