Delphi
文章平均质量分 51
鑫诚工作室
这个作者很懒,什么都没留下…
展开
-
WebBrowser 获取网页内容
1.wb.OleObject.document.documentelement.innerhtml2.utf8toansi(getHtml(wb))utf8toansi函数function getHtml(constWebBrowser:TWebBrowser):string;const BufSize = $10000;var Size: Int64; Stream: I原创 2014-01-15 16:09:28 · 393 阅读 · 0 评论 -
delphi 判断字符串有中文
if length(sdate)-length(widestring(sdate)) > 0 then showmessage('有中文')转载 2015-04-28 11:49:23 · 1647 阅读 · 0 评论 -
cxSpreadBook 或 cxSpreadSheet 设置成文本格式
uses cxSSStyles,cxSSDesigner;Type TStyleAccess = class(TcxSSCellStyle); TSheetAccess = class(TcxSSBookSheet);procedure TForm2.Button16Click(Sender: TObject);var Row,Col:原创 2014-10-31 11:14:53 · 2006 阅读 · 1 评论 -
CxGrid多选时,获取多选的数据
当GridMode为False时。可以自动排序。 当gridMode为False时 多选 使用 GridView.Controller.SelectedRowCount-1 do begin J := GetSelectedRowIndex(I); //先获取值 行的 索引值 YSZDMXReferListForm.GridView.Controlle原创 2014-01-15 16:11:13 · 866 阅读 · 0 评论 -
cxgrid cxEditButton PropertiesBu…
//当CxGridView 使用了这个 (TcxEditButtons) 。在ButtonClick事件的时候出现错误。错误提示:Control '' has no parentwindow出现错误的原因:点该事件,打开新的窗口时才会出现。如果不打开新的界面,则不会弹出错误。解决办法如下:在最后面加二句这样的代码就可以了。想了一晚上终于想清楚了。PropertiesButtonClic原创 2014-01-15 16:11:20 · 1000 阅读 · 0 评论 -
如何获得cxgrid的列名 某字段值 单…
procedureTForm_Child_Record.cxGrid1DBTableView1CellDblClick( Sender: TcxCustomGridTableView; ACellViewInfo:TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; varAHandled:原创 2014-01-15 16:11:02 · 1069 阅读 · 0 评论 -
[delphi|XML]Xml简要 [转]
一) XML优点先让我们了解一下什么是XML(扩展标识语言). XML属于SGML(Standard Greneralized MarkupLanguage 标准通用标记语言)的一个子集,它是一种采用标记来描述文档(数据)的种类和方法. XML是由W3C下属的XML小组在JonBosak 的领导下于1996年完成的规范,1998年正是成为一种W3C推荐的标准. 使用过HTML的开发原创 2014-01-15 16:10:46 · 430 阅读 · 0 评论 -
Delphi 时间戳 毫秒&nbs…
如果是13位数字。则把后面的3位0取消掉。再转换。。 cxLabel1.Caption:='1356928312'; wwDBEdit1.Text:=FormatDateTime('yyyy-MM-dd hh:mm:ss:nnn',UnixToDateTime(1356928312)); 主要是用到了 UnixToDateTime 这个函数原创 2014-01-15 16:11:30 · 673 阅读 · 0 评论 -
数据库 代码的写法注意事项
Delphi 数据库操作的时候。使用FieldByName('XXX').asstring 的时候注意。在使用这句之前。必须能保证这个字段的内容是写进去了。如果是鼠标焦点还在这个字段的文本框里面,则使用这个语句会有错误。 必须先把焦点移到其它控件上面。如果 panel.setfocus;原创 2014-01-15 16:11:18 · 507 阅读 · 0 评论 -
数据集 关闭时,手动加进去的字段…
FieldByName('SC').OnChange := SCFieldChange 当 数据集 关闭时,手动加进去的字段事件会清空 必须在open之后。手动再加进去。 之前一直都没找到这个原因。郁闷。原创 2014-01-15 16:11:09 · 528 阅读 · 0 评论 -
delphi try except语句 和 t…
原文地址:try except语句 和 try finally语句用法以及区别">delphi try except语句 和 try finally语句用法以及区别作者:1865898133一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来,记下!主要是前面小部分,后面的是详细说明(很啰嗦!)一、异常的来源 在Delphi的应用程序中,下列的情况都比较有可能产转载 2014-01-15 16:10:52 · 388 阅读 · 0 评论 -
checkbox 只选中一个
procedure TForm1.CheckBoxClick(Sender: TObject);begin CheckBox.OnClick := nil; CheckBox1.OnClick := nil; CheckBox2.OnClick := nil; CheckBox3.OnClick := nil; if Sender = CheckBoxthen begi原创 2014-01-15 16:11:04 · 434 阅读 · 0 评论 -
Cxgrid 单元格 内容 颜色 关键字高…
cxgrid列表的列一定要手动提前绑定好。后期绑定的,颜色是会变不了的。注意了。因为我的列表全部都是自动从数据库加载的。搞了好几天。手动绑定列表之后。才可以变颜色了。 效果图片如下显示:单元格 内容 颜色 关键字高亮显示" TITLE="Cxgrid 单元格 内容 颜色 关键字高亮显示" />procedure TXXXXXForm.GridViewCustomDrawCell( S原创 2014-01-15 16:10:59 · 787 阅读 · 0 评论 -
'2010-01-01 22:00' Is not a vali…
'2010-01-01 22:00' Is not a valid date and time 在程序创建的时候。直接使用这条语句就可以 Create事件中begin SetDateTimeFormat();beginprocedure SetDateTimeFormat;var p:DWORD;begin SetLocaleInfo(LOCALE_USER_DEFAU原创 2014-01-15 16:10:57 · 414 阅读 · 0 评论 -
Delphi unicode 数字转换成中文显示
function ProcessFormSource(mSource, mDest: TStrings): Boolean;var I, J, K: Integer; S: string; vTempStr, vLeftStr: string; vWideByte: Integer;begin Result := False; if not (Assig转载 2015-04-28 06:56:08 · 2128 阅读 · 0 评论