Raoxk-优快云博客

原创 Delphi中支持Unicode的TStrings类

unit WideStrings;interfaceuses classes,SysUtils;type TWString = record WString: WideString; end; TWideStrings = class private FWideStringList: TList; function Get(Index: Intege

2007-08-27 22:33:00 1984

原创 Oracle字符集相关

查询服务器的字符集设置：select * from nls_database_parametersWindows客户端字符集设置：//key_local_machine/software/oracle/homeo/nls_lang 该键值下可设置以下值 AMERICAN_AMERICA.US7ASCII AMERICAN_AMERICA.

2007-08-23 09:15:00 777

原创用Oracle自定义聚合函数实现字符串连接的聚合

create or replace type string_sum_obj as object (--聚合函数的实质就是一个对象 sum_string varchar2(4000), static function ODCIAggregateInitialize(v_self in out string_sum_obj) return number, --对象初始化

2007-07-31 16:38:00 2071

原创利用Delphi中的TxmlDocument生成xml文件应注意的问题

直接进入代码吧，红字都是注意的地方var xml:TXmlDocument; xmlNode:IxmlNode;begin xml:=TXmlDocument.Create(nil); try xml.Active:=True; xml.Version:=1.0; xml.Encoding:=UTF-8; xml.

2007-07-30 16:51:00 1638

原创有关Delphi编译优化的问题

Delphi编译器（在编译文件时）能自动去掉死代码（在打开编译优化功能时）．这个非常不错的功能，能够帮助程序员更有效的检查程序．但有时就时这个功能，也可能给程序带来不必要的小Bug．请看以下程序：function PosChar2(ch:Char;chArray:Array of Char):Integer;var i:Integer;begin i:=0;　　//这一句不会被编译

2007-07-02 13:13:00 1867

原创在Delphi中读Unicode文件文件

type UnicodeTextRead=Class private UnicodeText:TFileStream; FLineStart: Int64; FEof: Boolean; procedure SetLineStart(const Value: Int64); protected property LineStart:Int64 Read FL

2007-06-27 23:40:00 1351

原创在Delphi7中RaveReport的使用

近段时间用Delphi7的RaveReport控件做票据打程序, 遇到不少问题. 幸好在网上得到得一些前辈(有意或无意)的帮助.得到不少心得. 在此表示感谢! 同时也将自己的所得拿出来与大家一起分享.unit UReportClass;interfaceuses Windows,classes,Forms,UGlobalSet,RpRave,RvClass,RvCS

2007-05-16 22:35:00 3272

原创 SD卡+读卡器做USB启动盘

我想用一张闲置32M SanDsik SD卡+读卡器做一个usb启动盘。昨晚用usboot 1.68 试了两个小时，一直搞不定。（主板是技嘉865）今天用陈年Win98安装盘启动电脑，用pqMagic(用fdisk分区也有问题)对SD卡重新分区格式化(Fat16)，用sys命令将系统传送到SD卡。重启，在Bios中设置启动顺序，将generic USB HDD放在第一位。ok

2007-05-07 22:12:00 4670

原创在C#中的一个死循环

class loopcls{ public static int loopVar { get { return loopVar; } set { loopVar=value; } } static int Main() { //死循环喔 return loopVar; }}

2007-04-26 22:40:00 1669

原创不知道是不是VS.NET 2003的bug

#include __interface INew//Microsoft Visual Studio .NET 2003开发文档中规定 interface Can only contain public, pure virtual methods.{ void MsgHelloWorld(); //不知道什么原因，这理却可以写函数的实现代码。 { MessageBox(NULL,"Hello

2007-04-09 19:48:00 946

原创排序

typedef int DataType;templateclass Sort{private: static int Partition(T argData[],int sp,int ep); //快速排序中调用寻找分治点 static void shellInsert(T argData[],int dk,long DataLen); //希尔排序中调用增量为dk插入排序 stati

2007-04-08 20:59:00 779

Raoxk的专栏