<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/CYRTSOFT</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; CYRTSOFT]]></copyright><item><title><![CDATA[Delphi中OnDrawCell的使用技巧 ]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234795</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234795</guid><author>CYRTSOFT</author><pubDate>Thu, 30 Dec 2004 16:39:00 +0800</pubDate><description><![CDATA[ 人们在利用Delphi开发数据库应用程序时，经常使用表格控件制作报表。灵活地使用表格控件的OnDrawCell事件，可以完成一些特殊效果的显示，能更好地满足用户需求。本文介绍灵活使用OnDrawCell事件的三个技巧。 动态更新表格行的颜色 有时需要在报表中动态更新表格行的颜色。例如，在供应商列表中，优先供货的供应商用绿色显示，其他的供应商用红色显示。此时可以在OnDrawCell事]]></description><category></category></item><item><title><![CDATA[在Delphi中自己建立交叉表]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234790</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234790</guid><author>CYRTSOFT</author><pubDate>Thu, 30 Dec 2004 16:37:00 +0800</pubDate><description><![CDATA[ 经常在优快云上查阅名位大侠的文章，得益不少，近期因做一个项目，需要用到交叉表，报表上倒是有，但客户要求在Grid上能操作，没有办法，只好自己写了一段代码用于普通查询到交叉表的实现，不敢独享，故上传，望能抛砖引玉，请名位大侠不吝指教。 function CreateTmptab(const AFieldDefs:TFieldDefs):TDataSet;varTempTable:TatC]]></description><category></category></item><item><title><![CDATA[Delphi中的四舍五入问题]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234787</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234787</guid><author>CYRTSOFT</author><pubDate>Thu, 30 Dec 2004 16:37:00 +0800</pubDate><description><![CDATA[在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：采用的是四舍六入五留双。即当舍或入位大于或小于五时按四舍五入来处理，而当舍或入位等于五时，就要看前面一位是什么，根据奇进偶不进，它总是返回一个偶数值。     示例             结果 i:= Round(11.5)        12i:= Round(10.5)        10        这种Rou]]></description><category></category></item><item><title><![CDATA[用Delphi制作DLL小结]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234783</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234783</guid><author>CYRTSOFT</author><pubDate>Thu, 30 Dec 2004 16:36:00 +0800</pubDate><description><![CDATA[一 Dll的制作一般分为以下几步：1 在一个DLL工程里写一个过程或函数2 写一个Exports关键字，在其下写过程的名称。不用写参数和调用后缀。二 参数传递1 参数类型最好与window C++的参数类型一致。不要用DELPHI的数据类型。2 最好有返回值[即使是一个过程]，来报出调用成功或失败，或状态。成功或失败的返回值最好为1[成功]或0[失败].一句话，与windows c++兼容。3 用]]></description><category></category></item><item><title><![CDATA[DELPHI中DBGrid中行的定位及着色实现]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234779</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234779</guid><author>CYRTSOFT</author><pubDate>Thu, 30 Dec 2004 16:35:00 +0800</pubDate><description><![CDATA[DELPHI中DBGrid中行的定位及着色实现 1 问题的提出    在对一个数据库系统进行操作的时候，发现不能对DBGrid控件中的数据行定位及在定位到某行后无法对当前行进行明显的标志（例如改变颜色），在往上查找了很多资料，发现基本没有对这个内容的介绍，包括一些动态设顶行的颜色等文章讲的都是在数据初始化时做的操作，而没有在数据源刷新后的重新定位功能，所以下决心解决这个问题，通过一上午对D]]></description><category></category></item><item><title><![CDATA[Delphi开发单机瘦数据库程序要点]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234777</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/234777</guid><author>CYRTSOFT</author><pubDate>Thu, 30 Dec 2004 16:34:00 +0800</pubDate><description><![CDATA[一、概述　　Delphi作为Windows下的一种快速开发工具，不仅能开发一般的Windows应用程序，而且还具有强大的数据库应用程序开发功能。Delphi本身提供了对BDE，ODBC，ADO和InterBase几种数据库驱动的支持，能够满足不同应用对数据库程序开发的需要。　　然而，在发布用Delphi开发的数据库程序时，除了要安装应用程序之外，还需要同时发布数据库驱动程序。这对于一些只涉及单个或]]></description><category></category></item><item><title><![CDATA[delphi来写你的第一个dll文件，非常简单！]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/228700</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/228700</guid><author>CYRTSOFT</author><pubDate>Sat, 25 Dec 2004 10:16:00 +0800</pubDate><description><![CDATA[一、开使你的第一个DLL专案 1.File->Close all->File->New﹝DLL﹞ 代码://自动产生Code如下 library Project2; //这有段废话。 uses   SysUtils,   Classes; {$R *.RES} begin end.2.加个Func进来： 代码:librar]]></description><category></category></item><item><title><![CDATA[delphi如何调用sql存储过程，并获取结果]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/217113</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/217113</guid><author>CYRTSOFT</author><pubDate>Wed, 15 Dec 2004 13:47:00 +0800</pubDate><description><![CDATA[delphi如何调用sql存储过程，并获取结果   adostoredproc1.Close;   adostoredproc1.ProcedureName:=sp_thchl;   adostoredproc1.Parameters.Clear;   adostoredproc1.Parameters.CreateParameter(out,ftInteger,pdoutput,1,1)]]></description><category></category></item><item><title><![CDATA[ 跟日期有关的两条经典SQL语句 ]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/201903</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/201903</guid><author>CYRTSOFT</author><pubDate>Thu, 02 Dec 2004 14:16:00 +0800</pubDate><description><![CDATA[1.用一条语句得出某日期所在月份的最大天数？ 　　SELECT DAY(DATEADD(dd, -DAY(2004-02-13), DATEADD(mm, 1, 2004-02-13))) AS Day Number　　2.少记录变成多条记录问题　　有表tbl　　日期       收入    支出　　2004-02-11 00:00:00 60 45　　2004-03-01]]></description><category></category></item><item><title><![CDATA[delphi中的split函数 ]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199285</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199285</guid><author>CYRTSOFT</author><pubDate>Tue, 30 Nov 2004 15:13:00 +0800</pubDate><description><![CDATA[ //根据字符串，拆分字符串，相当于vb中的split函数function SplitString(const Source,ch:string):TStringList;var  temp:String;  i:Integer;begin  Result:=TStringList.Create;  //如果是空自符串则返回空列表  if Source=  then exit;  temp]]></description><category></category></item><item><title><![CDATA[改变DBGrid列的颜色,没什么特别，但是经过调色师检验哦！ ]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199283</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199283</guid><author>CYRTSOFT</author><pubDate>Tue, 30 Nov 2004 15:12:00 +0800</pubDate><description><![CDATA[ 一个过程，直接调用就可以了！procedure ChangeDbGridColColor(ojbDbGrid:TDbGrid);var  i:integer;begin     for i:= 0 to ojbDbGrid.Columns.Count -1 do   begin      case i mod 3 of      0: ojbDbGrid.Columns.Items[i]]]></description><category></category></item><item><title><![CDATA[ini读写]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199272</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199272</guid><author>CYRTSOFT</author><pubDate>Tue, 30 Nov 2004 15:08:00 +0800</pubDate><description><![CDATA[ function readInifile(fileName,section,Ident:string):string;? //读取配置文件var? ini:tinifile;begin? ini:=tinifile.Create(fileName);? result:=ini.ReadString(section,ident,);? ini.Free;end;procedure wr]]></description><category></category></item><item><title><![CDATA[Format的用法]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199270</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199270</guid><author>CYRTSOFT</author><pubDate>Tue, 30 Nov 2004 15:06:00 +0800</pubDate><description><![CDATA[ Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全]]></description><category></category></item><item><title><![CDATA[Delphi部分函数、命令、属性中文说明]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199268</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199268</guid><author>CYRTSOFT</author><pubDate>Tue, 30 Nov 2004 15:05:00 +0800</pubDate><description><![CDATA[Abort 函数 引起放弃的意外处理Abs 函数 绝对值函数AddExitProc 函数 将一过程添加到运行时库的结束过程表中Addr 函数 返回指定对象的地址AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列Align 属性 使控件位于窗口某部分Alignment 属性 控件标签的文字位置AllocMem 函数 在堆栈上分配给定大小的块AllowGrayed 属性]]></description><category></category></item><item><title><![CDATA[Delphi异常处理的基本原则和方法]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199264</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199264</guid><author>CYRTSOFT</author><pubDate>Tue, 30 Nov 2004 15:03:00 +0800</pubDate><description><![CDATA[ 一、异常的来源。在Delphi的应用程序中，下列的情况都比较有可能产生异常。（1）文件处理（2）内存分配（3）Windows资源（4）运行时创建对象和窗体（5）硬件和操作系统冲突?二、异常的处理。（1）try…except…end;在try体内的代码发生异常时，系统将转向except部分进行异常的处理。这是Delphi处理异常的最基本的方式之一。?]]></description><category></category></item><item><title><![CDATA[字符串函数大全]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199262</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199262</guid><author>CYRTSOFT</author><pubDate>Tue, 30 Nov 2004 15:01:00 +0800</pubDate><description><![CDATA[【字符串函数大全】       首部 function AnsiResemblesText(const AText, AOther: string): Boolean;       $[StrUtils.pas      功能 返回两个字符串是否相似      说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写      参考]]></description><category></category></item><item><title><![CDATA[修正TListView应用XP Theme时的错误]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199261</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199261</guid><author>CYRTSOFT</author><pubDate>Tue, 30 Nov 2004 15:00:00 +0800</pubDate><description><![CDATA[　　Dephi6（及以下版本）并不提供XP风格支持，因为Dephi6推出时XP还在测试当。要使应用程序支持XP风格必须添加"manifest xml”资源文件到应用程序中，告诉系统对此应用程序使用6.0的comctl32.dll，而不是5.0。但有部分VCL控件与6.0存在兼容问题。　　TListView为vsReport时，鼠标移到列头时会抛出异常，修正这个问题需要修改ComCtrls.pas，]]></description><category></category></item><item><title><![CDATA[资源文件]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199251</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199251</guid><author>CYRTSOFT</author><pubDate>Tue, 30 Nov 2004 14:56:00 +0800</pubDate><description><![CDATA[ 目的,在Delphi中使用资源文件本例是将一个Flash动画加到我的们程序中,在程序启动时再释放出来.先新建一个文件文件写入内容:Flash SwfFile1 Thanks.SWF另存为:SwfFile.rc然后用brcc32.exe生成资源文件.res然后在Delphi中加入一行(最后一行)implementation{$R *.dfm}{$R SwfFile.RES}//就是这行然后]]></description><category></category></item><item><title><![CDATA[时间函数]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199245</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199245</guid><author>CYRTSOFT</author><pubDate>Tue, 30 Nov 2004 14:54:00 +0800</pubDate><description><![CDATA[ 【0】在工程文件中Application.Run语句之前加入下面语句,可不让主Form在运行时显示:       Application.ShowMainForm := False; 【1】显示设置时间的对话框   ShellExecute(Handle, open, control, date/time, nil, SW_SHOW); 【2】FormatDateTime]]></description><category></category></item><item><title><![CDATA[我的DBTreeView--TreeView直接连接数据表]]></title><link>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199241</link><guid>https://blog.youkuaiyun.com/CYRTSOFT/article/details/199241</guid><author>CYRTSOFT</author><pubDate>Tue, 30 Nov 2004 14:52:00 +0800</pubDate><description><![CDATA[ 认真研究如下代码：DBTreeView--TreeView直接连接数据表unit Unit1;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, DB, DBTables, ComCtrls, Grids, DBGrids, ExtCtr]]></description><category></category></item></channel></rss>