delphi中间件

摘要： procedure TformBuy.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);var S: String; i, x, y, iTextWidth: Integer;begin// if Field.DataType <> ftBCD then Exit; if Field.FieldName <> 'jxdmoney' then Exit; with TDBGrideh(Sender).Canvas do 阅读全文

摘要： procedure TformRule.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);begin if (ARow = 0) or (ACol = 0) then exit; with sender as tstringgrid do //斑马线效果 with canvas do begin if (arow mod 2 = 0) then begin brush.Color:=clMoneyGreen; font.Color:=clblack; fil 阅读全文

摘要： Delphi 異常捕捉的一種方法使用TApplicationEvents控件在OnException()事件裏面添加異常處理代碼If E is EOutOfMemory then // 內存不足……Else if E is EAccessViolation then // 非法訪問內存……異常類型定義在SysUtils.pas單元 阅读全文

摘要： tdbgrideh(Sender).InplaceEditor.EditText 阅读全文

摘要： 每新建一个窗件都要改默认字体,不方便.通过添加注册值可更改Delphi系统的默认字体修改注册表：HKEY_CURRENT_USER/Software/Borland/Delphi/5.0/FormDesign Delphi 5:HKEY_CURRENT_USER/Software/Borland/Delphi/5.0Delphi 6:HKEY_CURRENT_USER/Software/Borland/Delphi/6.0Delphi 7:HKEY_CURRENT_USER/Software/Borland/Delphi/7.0下增加一个名为“FormDesign”的项，再在这个项下面新建一个 阅读全文

摘要： 通过内存映像文件共享一组对象 阅读全文

摘要： 通過網絡傳輸對象之前，必須要對對象進行串行化（流化）處理，然後發送串行化的流。當接收方根據接收到的流還原對象出來。 function RecordsetToXML(const Recordset: _Recordset): string; var RS: Variant; Stream: TStri 阅读全文

摘要： MoveMemory、CopyMemory 的功能是一模一样的, 都是复制内存, 都是调用 Move 过程;MoveMemory、CopyMemory 操作指针; Move 操作实体.还要注意, 它们的参数位置不一样! 举例: {例1}var buf1,buf2: array[0..9] of AnsiChar;begin buf1 := '0123456789'; buf2 := 'abcdefghij'; Move(buf2[2], buf1[4], 5); ShowMessage(buf1); {0123cdefg9} ShowMessage(buf2); 阅读全文

摘要： 马上能想到的函数有: GetMemAllocMemReallocMemFreeMemGetMemoryReallocMemoryFreeMemoryNewDisposeNewStrDisposeStrStrNewStrAllocStrDisposeGlobalAllocPtrGlobalFreePtrWideStrAllocAnsiStrAllocStrDisposeMoveMoveMemoryCopyMemoryZeroMemoryFillMemoryFillCharStrBufSize给字符指针(PChar、PWideChar、PAnsiChar)分配内存, 最佳选择是: StrAlloc 阅读全文

摘要： 静态数组, 在声明时就分配好内存了, 譬如: var arr1: array[0..255] of Char; arr2: array[0..255] of Integer;begin ShowMessageFmt('数组大小分别是: %d、%d', [SizeOf(arr1), SizeOf(arr2)]); {数组大小分别是: 512、1024}end;对静态数组指针, 虽然在声明之处并没有分配内存, 但这个指针应该分配多少内存是有定数的.这种情况, 我们应该用 New 和 Dispose 来分配与释放内存. 譬如: type TArr1 = array[0..255] o 阅读全文