2015年6月8日
摘要：
System.Insert - 插入字符串procedure Insert( Substr: String; {要插入的字符串; 可以是常量} var Dest: String; {源字符串} Index: Integer {从第几个字符前插入});举例:var ss,s: Wid... 阅读全文
2015年6月8日
2015年6月7日
摘要：
function TCustomListBox.GetCount: Integer;begin if Style in [lbVirtual, lbVirtualOwnerDraw] then Result := FCount else Result := Items.Count;e... 阅读全文
2015年6月4日
摘要：
今天编译RM报表 7.0 for XE7 ,build设计时包，提示{$IFDEF JPEG}, JPEG{$ENDIF}没有找到 JPEG.DCU，这个应该是XE7自带。后来 在项目选项里，编译器，加个 VCL.IMAGING。给Delhi.命名空间 指定单元范围名称 前缀，使你可以在代码中和us... 阅读全文
2015年6月3日
摘要：
function TRMDesignerForm.FileSave: Boolean; var lSaved: Boolean; lFileName: string; begin Result := False; if DesignerRestrictions * [rmdrDontSaveReport] [] then Exit; if not FCodeMemo.Re... 阅读全文
2015年5月31日
摘要：
{ TStringField } TStringField = class(TField) private FFixedChar: Boolean; FTransliterate: Boolean; protected class procedure CheckTypeSiz... 阅读全文
摘要：
给TMemo.Text := '几M大的文本';如果ScrollBars 不是 sbBoth的话，程序很可能 无响应。今天郁闷了半天才发现的。 阅读全文
2015年5月29日
摘要：
其实这个程序很简单，首先是如何获取选定部分的HTML，还记得这段吗： HTMLDoc := WebBrowser1.Document as IHTMLDocument2; SelectRange := HTMLDoc.selection.createRange() as IHTMLTxtRange;... 阅读全文
2015年5月26日
摘要：
数据集处于过滤状态，然后选中几个记录，再修改了这些记录中的某个字段（和过滤条件有关），导致那几个记录不符合过滤条件，不显示了。但是SelectedRows里 还保存着。如果不删除SelectedRows里这几个书签，后续的操作可能会报错。 for I := DBGridEhTrade.Select... 阅读全文
摘要：
procedure TFormDZMD.RMReport1PrintReportEvent(Sender: TObject); begin // Log('RMReport1PrintReportEvent'); IsTruePrint := True; end; 阅读全文