delphi
关注
分享
扫一扫
文章平均质量分 66
yanleigis
这个作者很懒，什么都没留下…
展开
-
改变标题字体，菜单字体
var ncm: TNonClientMetrics;begin ncm.cbSize := SizeOf(TNonClientMetrics); {get old non client metrics} SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(TNonClientMetrics), @ncm, 0); { lfC原创 2001-11-24 10:44:00 · 1284 阅读 · 0 评论 -
ODAC使用数据根更新的问题
1、TOraQuery的更新,默认是只读，需要UpdateObject，配合TOraUpdateSQL设计更新插入删除的sql 类似INSERT INTO dc_formtype (FORMTYPEID, FORMTYPENAME, SENIORFORMTYPEID, DESCRIPTION, SHOWORDER)VALUES (:FORMTYPEID, :FORMTYPENAME, :S原创 2008-09-05 10:09:00 · 1321 阅读 · 0 评论 -
DevExpressVCL 傻瓜安装 使用后问题和解决方法
1、DevExpressVCL 傻瓜安装 使用后问题编写任何一个简单程序，如果直接run,运行时不需要库支持，可以正常运行，如果需要库支持，就会提示[Fatal Error] Required package dclcxLibraryVCLD7 not found等无法找到 2、解决方法问题是DevExpressVCL 中dxps类引用了dclcx，去掉dxps对应的包只原创 2008-09-05 09:58:00 · 5376 阅读 · 1 评论 -
设置动态修改，删除，插入的odac
//获得表的主键function TComDBConn.GetTableKey(TableName: string; owner: string = ): string;var Sqlstr : WideString;begin if (owner = ) then begin Sqlstr :原创 2008-09-08 09:56:00 · 1227 阅读 · 0 评论 -
Delphi之通过ADOX操作access数据库
[学习笔记]Delphi之通过ADOX操作access数据库作者:webfly 日期:2005-04-06字体大小: 小 中 大 作者：扬帆 网站： Email：888fly@163.com 如转载请保留此版权信息 Delphi7支持ADO（Microsoft ActiveX Data Objects）的支持，使得Delphi程序员可以彻底摆脱BDE，缩小转载 2008-09-11 11:50:00 · 2405 阅读 · 0 评论 -
Arcengine中IEnvelope为IPolygon
IEnvelope为IPolygon//by yl 2003.05.10 function EnvToPoly(pEnv: IEnvelope): IPolygon;var pPointsColl : IPointCollection; P1, P2, p3, p4 : IPoin原创 2008-07-01 09:35:00 · 3924 阅读 · 0 评论 -
Arcobjects获得一个图层元数据-获得文件路径和名称
//获得文件路径和名称 by yl landgis@126.com yanleigis@21cn.comprocedure GetPathFileName(pFeatureLayer: IFeatureLayer; var Path, FileName: widestring);var pFeatureClass : IFe原创 2008-07-01 13:09:00 · 1968 阅读 · 0 评论 -
Arcengine, 节点编辑 删除一个GeoMetry的第几部分第几个点-----部分代码
Arcengine, 节点编辑 删除一个GeoMetry的第几部分第几个点-----部分代码//删除一个GeoMetry的第几部分第几个点，by yl landgis@126.com 2005.06.10function DelGeoMetry(PGeoMetry: IGeoMetry; Partindex: Integer; index: Integer): IGeoMetr原创 2008-07-04 14:24:00 · 3561 阅读 · 1 评论 -
delphi,odac执行存储过程的正确和简单方法
--插入记录 function ft_addTable(PTableName string, PTableId out integer) return integer; 错误的方法var OraStoredProc1 : TOraStoredProc;begin OraStoredProc1 := TOraStoredProc.C原创 2008-10-28 10:07:00 · 3520 阅读 · 1 评论 -
odac NET: Connection timed out错误的解决方法
使用Oci或则odac开发时，连接oracle提出如下错误 NET: Connection timed out错误的解决方法： 关闭windows的防火墙即可原创 2009-02-06 14:44:00 · 1431 阅读 · 0 评论 -
arcengine 执行sql获得返回值
//执行sql返回值 by yanleigis Landgis@126.comfunction ExecSQLResult(FWorkspace: IWorkspace; Sqlstr: string): olevariant;var TableName : string; SubFields原创 2008-07-25 17:29:00 · 2201 阅读 · 0 评论 -
ArcEngine,delphi创建shp文件
function CreateShapefile(const FileName: string; pFields: IFieldsEdit; ShapeType: Integer; SpatialReference: ISpatialReference = nil): IFeatureClass; var strFolder, strName原创 2008-07-15 09:04:00 · 2692 阅读 · 0 评论 -
内存映射,快速读写文件
procedure MapMemoryFileCopy(SourceFileName, TargetFileName: string); const BufferSize = 1024 * 1024 * 64; var SourceHandle : THandle; //源文件句转载 2008-03-25 17:34:00 · 1899 阅读 · 0 评论 -
listbox多选状态下的自拖与互拖
unit Unit1;file://yanlei:E_mail yanleiigis@21cn.cominterface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TF原创 2002-03-14 09:51:00 · 1987 阅读 · 0 评论 -
字存为字符图片
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□■■■□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□■■■■□□□□■■■■■■■□■■□□□□□□□□□□□□□□□■■■■■□□■■■■■■■■■■■■■□□□□□□□□□□□□□■■■■■□□□■■■□□□□□■■■■■□□原创 2004-04-22 14:41:00 · 1893 阅读 · 0 评论 -
代替showmodal其他两种方法
procedure TForm1.Button1Click(Sender: TObject);beginenablewindow(handle,false);//窗口一不可用form2.show;end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);beginenablewindow(form1.ha原创 2001-06-03 13:33:00 · 1505 阅读 · 0 评论 -
delphi操作word基类,插入表格,分页符,日期,页码,替换,图片
unit utMyword;(*By 闫磊 编写 2004.09.06 Email:landgis@126.com yanleigis@21cn.com*)interfaceuses word2000, ActiveX, Variants, Dialogs, SysUtils;type TMyWord = class(TObject) private原创 2007-11-23 11:57:00 · 13191 阅读 · 2 评论 -
delphi 通用多个进度条
{自定义进度条,By 闫磊 编写 2004.10.11 Email:landgis@126.com yanleigis@21cn.com,调用方法如下const Maxx = 10000;var i: Integer;begin initProgressBar(Maxx,工作); try for i := 1 to Maxx原创 2007-11-30 22:14:00 · 20282 阅读 · 0 评论 -
delphi,arcgis,arcobjects开发例子
//面转化为线//闫磊 Email:Landgis@126.com,yanleigis@21cn.com 2004.12.03编写function PolygonToPolyLine(pPoly: IPolygon): IPolyLine;var i, count : Integer; pSegs, pAddSe原创 2007-12-04 13:44:00 · 19258 阅读 · 5 评论 -
delphi,由相对路径获得绝对路径算法
//子串出现的次数 function GetappearNum(sub, st: string): integer;var i: integer; P: integer;begin p := Pos(sub, st); I := 0; while p > 0 do begin inc(i);原创 2007-12-04 14:02:00 · 1363 阅读 · 1 评论 -
delphi 由绝对路径获得相对路径算法
// 取两个目录的相对路径,注意串尾不能是/字符! function GetRelativePath(Source, Dest: string): string; //交换字串 function GetPathComp(s1, s2: string): integer; procedure swapStr(var s1, s2: string原创 2007-12-04 14:07:00 · 2746 阅读 · 0 评论 -
delphi 获得父目录--指定级父目录
获得指定级父目录 关键字：父目录 function get_dir_parent(dir:string;n:integer):string; /原创 2007-12-16 12:13:00 · 2847 阅读 · 0 评论 -
Oracle调用delphi动态库
见http://oracle.**.com/induction/715351.html注：以下程序在DELPHI7+ORACLE9i中测试通过1、首先用DELPHI编制一个DLL程序，当然用VB,VC其它语言也可以，本人最近常用DELPHI，所以以下DLL采用DELPHI程序编制：//////////////////////////////////////////Projec原创 2009-05-15 17:18:00 · 1098 阅读 · 0 评论