delphi中间件

摘要： function HexStrToStr(const S:string):string;//16进制字符串转换成字符串var t:Integer; ts:string; M,Code:Integer;begin t:=1; Result:=''; while t<=Length(S) do begin //xlh 2006.10.21 while (t<=Length(S)) and (not (S[t] in ['0'..'9','A'..'F','a'..'f'])) 阅读全文

摘要： AdvStringGrid//从文件中加载asg.LoadFromCSV(Path+FileName);//清空所有行asg.ClearRows(0,asg.RowCount-1);//保存asg.SaveToCSV(Path+'Test.csv');ColCount := 41; {总列数}RowCount := 3; {总行数}FixedRows := 2; {表头行数}FixedCols := 2; {表头列数} DefaultColWidth := 18; {设缺省列宽} DefaultRowHeight := 18; {设缺省行高} ColWidths[0] := 5 阅读全文

摘要： //设置IP和Port RemoteUdpConnection1.RemoteIp:=Edit1.Text; RemoteUdpConnection1.RemoteLoginPort:=StrToInt(Edit2.Text); RemoteUdpConnection1.RemoteDataPort:=StrToInt(Edit3.Text); //启动登陆(StartLogin属于非阻塞的方法) RemoteUdpConnection1.StartLogin;procedure TForm1.RemoteUdpConnection1Connect(OnLine: Boolean);//on. 阅读全文

摘要： --声明游标declare my_cursor cursor for select * from info--删除游标资源deallocate my_cursor--打开游标,在游标关闭或删除前都有效open my_cursor--关闭游标close my_cursor--声明局部变量declare @id int,@name varchar(20),@address varchar(20)--定位到指定位置的记录fetch absolute 56488 from my_cursor into @id,@name,@addressselect @id as id,@name as name,@ 阅读全文

摘要： 网格（Grid）控件，可直观描述二维信息。因此它具有横向和纵向二轴，就是一个二维表格。1、TCustomGrid为所有网格控件的父类，定义了网格控件的主要特征和网格控件的主要功能。在这里，我们着重要了解的是它的两个保护级（protected）方法：（1）procedure Paint;所有TWinControl的子类都可通过Paint来绘制自身外形。在TCustomGrid.Paint中，主要实现两个功能：绘制网格线和填充网格数据。其中，网格数据的填充具体实现由下述的DrawCell完成。在后面的内容，我会结合源代码详细解释Paint。2）procedure DrawCell(ACol, AR 阅读全文

摘要： function GetNumFromStr(const str: String;const hex:boolean=false): String;vari:integer;charset:Set of char;beginif hex thencharset:=['0'..'9','a'..'f','A'..'F','.']elsecharset:=['0'..'9','.'];for i := 1 to Length(str) do 阅读全文

摘要： function SaveAsExcelFile(StringGrid: TStringGrid; FileName: string):boolean;const xlWBATWorksheet = -4167;var Row, Col: integer; GridPrevFile: string; XLApp, Sheet: OLEVariant;begin Result := false; XLApp := CreateOleObject('Excel.Application'); try XLApp.Visible := False; XLApp.Workbooks.Ad 阅读全文

摘要： delphi操作word一、Delphi程序启动Word采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，则直接连接，如果没有Word程序，则使用CreateOleObject('Word.Application')启动Word二、Delphi程序新建Word文稿格式：WordDocuments.Add(Template,NewTemplate,DocumentType,Visible)Temp 阅读全文

摘要： 作一个好经理的几点建议：优先考虑客户的满意程度；优先考虑团队中每个人员的成长和发展；优先考虑你的产品质量；优先考虑保持你的工作进度；你能一直坚持以上这些做法。作一个好的分析员的几点建议：把更多的时间花在客户身上；使用一种以上的分析方法，以提供一个合理的检验；努力寻找简化问题的方法，而不是使问题复杂化；关心数据和程序；注重问题的分析。作一个好设计者的几点建议：花更多的时间同分析员在一起；不仅仅考虑一个设计；了解对结构的需要；尽量寻求不用编码就能解决问题的方法；试图创造一个好的设计，而不是完美的设计；在进行设计审查时，请程序员到场。作一个好程序员的几点建议：花更多的时间同设计者在一起；在编码之前作 阅读全文

摘要： 回调函数： 回调函数是这样一种机制：调用者在初始化一个对象（这里的对象是泛指，包括OOP中的对象、全局函数等）时，将一些参数传递给对象，同时将一个调用者可以访问的函数地址传递给该对象。这个函数就是调用者和被调用者之间的一种通知约定，当约定的事件发生时，被调用者（一般会包含一个工作线程）就会按照回调函数地址调用该函数。 这种方式，调用者在一个线程，被调用者在另一个线程。 在Windows API中有一些函数使用回调函数，例如CreateThread、SetWindowLong等。对应的回调函数定义为如下形式： function CallBackFunc(Wnd: HWND; Msg, WPara 阅读全文