摘要： function TControl.GetText: TCaption;var Len: Integer;begin Len := GetTextLen; SetString(Result, PChar(nil), Len); if Len 0 then GetTextBuf(Pointe... 阅读全文

摘要： http://4byte.cn/question/1130217/how-to-pass-string-parameters-to-an-tadoquery.html从2个答案看，如果TADOQuery组件是 设计时 创建的，运行时设置SQL语句后，参数对象自动存在了，只要赋值。如果是动态创建，还要... 阅读全文

摘要： http://www.delphitop.com/html/kongjian/2641.html选中第5行//转到指定行并选中这行的文本procedure SelectLine(Memo1: TMemo; ln: Integer);begin Memo1.SelStart := SendMessa... 阅读全文

摘要： function AnsiStartsStr(const ASubText, AText: string): Boolean;begin Result := AnsiSameStr(ASubText, Copy(AText, 1, Length(ASubText)));end;ASubText 是... 阅读全文

摘要： property Bookmark: TBookmark read GetBookmark write GotoBookmark;直接给Bookmark属性赋值，还是 调用数据集GotoBookmark方法，都是一样的。都是调用GotoBookmark 阅读全文

摘要： adoquery1.FieldNo 是从1 开始 计 阅读全文

摘要： book.Sheets[1].UsedRange.Rows.Count 行数从1开始book.Sheets[1].UsedRange.LastCol 从0开始book.Sheets[1].Cells.Item[1, ICol] 这个行列都是从1 开始的 阅读全文

摘要： 在设计或者打印预览时，如果设置了FileName，可能反而出错。procedure TfrxReport.ShowPreparedReport;var WndExStyles: Integer;begin FPreviewForm := nil; if FPreview nil then ... 阅读全文

摘要： http://delphi.about.com/od/adptips2004/a/bltip0804_4.htmHere's how to implement the code for the CTRL+A key combination ("Select All") for TMemo or TD... 阅读全文

摘要： cdsAdd.Open 不能用open，因为这个是DataSet的通用方法，不会检测文件名的，文件名是CDS特有的 阅读全文