2013年08月_缘中人

12月 11月 10月 09月 08月 07月 06月 05月 04月 03月 02月 01月

原创 ClientDataSet FieldDefs Add Field

void __fastcall TForm1::createField(){ ClientDataSet1->Close(); ClientDataSet1->Fields->Clear(); ClientDataSet1->FieldDefs->Clear(); ClientDataSet1->Open(); ClientDataSet1->Close(); for

2013-08-30 19:25:51 3455

原创 DrawParaMark 段落标志回车符号分析

procedure DrawParaMark(DrawItemNo: Integer; After: Boolean); var BiDiMode: TRVBiDiMode; Left, Top: Integer; s: TRVRawByteString; sz: TSize; ditem: TRVDrawLineInfo; Para

2013-08-29 18:01:57 768

原创剪贴板 Clipbrd 直接用法

uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject);begin Clipboard.Assign(SpeedButton1.Glyph); Image1.Stretch := True; Image1.Picture.Assign(Clipboard);end;

2013-08-23 22:45:58 2332

原创 msxml2.dll 控件 cb5 Update to cb6 应用

// COCLASS DEFAULT INTERFACE CREATOR// CoClass : msDOMDocument// Interface: TCOMIXMLDOMDocument2// *********************************************************************//typedef TCoClassCreat

2013-08-22 15:16:27 1108

原创 XE4 安装控件编译输出如何输出OBJ文件

OutPut c/c++选项output file generationGenerate all C++Builder files (including package libs) 如果这个生成不了OBJ选下面的选项肯定能生成OBJ文件Generate C++ .objs, headers

2013-08-22 11:30:32 887

转载 BDE错误列表

This document lists all the errors that can be returned by the BDE. This information is derived from IDAPI.H (C++) or BDE.INT(C++ Builder and Delphi). You also wish to look at thefollowi

2013-08-22 10:45:02 9795

原创 _ARRAYOF Variant* aParams

void __fastcall RMReport1UserFunction(AnsiString aFunctionName, _ARRAYOF Variant* aParams, const int aParams_Size, Variant &aValue, bool &aFound);[C++ Error] Unit1.h(19): E2303 Type name exp

2013-08-22 10:41:25 997

原创 Unable to open file DESIGNWINDOWS.OBJ

c++builder 6.0[Linker Fatal error] Unable to open file 'DESIGNWINDOWS.OBJ'安装控件报错添加文件 D:\Program Files\Borland\CBuilder6\Lib\designide.bpi OK！

2013-08-20 17:09:26 1095

转载 office 2013 “在安装过程中出错”而导致安装不成功的解决

office 2013 “在安装过程中出错”而导致安装不成功的解决http://www.yingzheng.com/forum.php?mod=viewthread&tid=2386174Win7 下安装office 2013，遇到这个错误，摸索半天，搞定了！贴在这里希望对后来人有参考价值。确保这两个服务处于开启状态：Windows InstallerMicrosoft

2013-08-20 10:44:16 28841

原创 RichView13.12 Stream read error 原因分析

RichView13.12 Stream read error 有选中文本时，调用RichViewEdit1.GetSelText;方法会报错，发现这个版本最终调用function TCustomRVFormattedData.GetSelTextR(Unicode: Boolean): TRVRawByteString;var Stream: TRVMemoryStream;

2013-08-20 10:08:31 2770

原创 TMemoryStream 私有变量FSize 访问父类私有变量

TCustomMemoryStream = class(TStream) private FMemory: Pointer; FSize, FPosition: NativeInt; protected procedure SetPointer(Ptr: Pointer; const Size: NativeInt); public function R

2013-08-19 17:38:26 1158

原创 F1026 File not found: 'DockForm.dcu

There is no DockForm.pas in D2010 sources but you can use it in your application. Just add "designide" in Project -> Options -> Packages -> Build with runtime packages. Or add it to "require" sectio

2013-08-16 15:30:28 3175

原创 E2072 Number of elements (11) differs from declaration (15)

[dcc32 Error] dxOI.pas(1792): E2072 Number of elements (11) differs from declaration (15)const dxModalResults: array[mrNone..mrYesToAll] of string = ( 'mrNone', 'mrOk', 'mrCanc

2013-08-16 15:16:10 1867

原创 E2072 Number of elements (18) differs from declaration (22)

[dcc32 Error] dxOI.pas(604): E2072 Number of elements (18) differs from declaration (22) dxPropClassMap: array[TTypeKind] of TdxPropertyEditorClass = ( nil, TdxIntegerProperty, TdxCharProp

2013-08-16 15:02:51 2231

原创 XE4 grideh not find DBSumLst.dcu

路径添加到Tools/Options/Environment Options/Delphi Options/Library Path and Browsing Path 还是报错，最后修改了工程的contains部分，in ***.pas删除掉，XE4就可以认到了，这应该是XE4的BUG了contains RichEdEh {RichStrEditDlgEh}, EhL

2013-08-14 13:59:24 1145

原创 XE4 DevExpress 终于安装成功了

pas文件找不到包括路径的问题，太全了吧，加入到Tools/Envorment/Library Path and Browse Path OK!$(BDS)\OCX\Servers$(BDS)\SOURCE\VCL$(BDS)\source\rtl\common$(BDS)\SOURCE\RTL\SYS$(BDS)\source\rtl\win$(BDS)\source\T

2013-08-14 10:44:37 1870 1

原创 XE4 There is no overloaded version GetTextExtentPoint32A

[dcc32 Error] dxGrDate.pas(1402): E2250 There is no overloaded version of 'GetTextExtentPoint32' that can be called with these argumentsGetTextExtentPoint32A(Handle, PWideChar(ACaption), Length(

2013-08-13 14:01:49 2146

原创 XE4 DecimalSeparator DateSeparator 日期格式

DELPHI7里直接可以用DecimalSeparator ，在XE4里改为在System.SysUtils.pas的FormatSettings类里定义了FormatSettings.DateSeparatorFormatSettings.DecimalSeparator FormatSettings: TFormatSettings;System.Sy

2013-08-13 12:36:44 3743

原创错误地址错误内存泄漏跟踪 EurekaLog

EurekaLog软件

2013-08-12 11:57:41 1268

原创 XE4 ToolsAPI PackageDemo BPL Component

unit FrmMainpkd;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Toolsapi, Menus;type TForm2 = class(TForm) PageControl1: TP

2013-08-10 18:15:17 649

原创 GridEh Bug MoveCurrent SetScrollPos GetScrollInfo

procedure TCustomGridEh.MoveCurrent(ACol, ARow: Longint; MoveAnchor, Show: Boolean);var OldSel: TGridRect; OldCurrent: TGridCoord;begin if (ACol = ColCount) or (ARow >= RowCount) then

2013-08-09 14:55:05 1062

转载获取 Memo 选择行

2345678var startline,endline:Integer;begin startline := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0); Edit1.Text := IntToStr(startlin

2013-08-09 11:54:56 2853

原创 XE4 ToolsAPI ActionServices

2013-08-08 21:06:24 1020

转载 XE4 RTTI 1

from http://www.cnblogs.com/del/archive/2009/10/15/1583969.htmlDelphi 2010 新增功能之: Rtti 单元(1)通过 Rtti 单元的 TRttiContext(是个 record), 可以方便地获取类的方法、属性、字段的列表.unit Unit1;interfaceuses W

2013-08-08 20:44:12 762 1

原创 File not found: MaskProp.dcu

写字板修改bpk文件，加入 -LUvcl; dclstd 即可。 dclstd -v-JPHNE -M"/>install dcldxInsC6.bpk okhttps://forums.embarcadero.com/thread.jspa?threadID=67194

2013-08-06 15:10:11 1189

原创 XE4控件开发源码最简单的例子

c++builder、delphi 都可以用Component1.pasPackageMY1.dproj

2013-08-04 19:42:17 886

原创 dos命令按日期创建目录拷贝文件

echo 开始复制set y=%date:~0,4%set m=%date:~5,2%set/a d=%date:~8,2%-1mkdir E:\push\%date:~0,10%xcopy E:\push E:\push\%date:~0,10% /s /d:%m%-%d%-%y%@echo hello ksrmd E:\pct备份\MYSQLBAK\b

2013-08-02 10:35:50 3153