Delphi

Delphi之TStrings和TStringLists类

3 0

有些类不是组件,但它们支持存在的组件。这些类是其他组件的典型属性,直接由TPersistent派生,如TStrings、TCanvas和TCollection。 TStrings和TStringLists类 TStrings是一个抽象类,使你可以操纵属于组件(如TListBox)的字符串列表。TStrings实际上并不管理字符串的内存(那是由拥有TStrings类的组件管理的),它只是定义了方法和属性来访问和操纵组件的字符串,而不是使用组件的Win32 API函数和消息。

Delphi

delphi memo控件对粘贴板的支持

2 0

delphi memo控件对粘贴板的支持复制: memo1.SelectAll;//SelectAll就是全选,只有先选择才能复制、剪切操作。如果想选某几个字可以使用SelStart和SelLength选择 memo1.CopyToClipboard;//复制到粘贴板剪切: memo1.SelectAll; memo1.CutToClipboard;粘贴:memo1.PasteFromClipboard;

Delphi

delphi OleVariant excel保存文件

2 0

uses ComObj, Excel;var Excel: OleVariant;Excel := CreateOleObject(EXCEL.Application);Excel.Application.Workbooks.Add;Excel.Application.Workbooks[1].SaveAs(c:\test.xlsx, xlWorkbookDefault); // or xlOpenXMLWorkbook (51)Excel.Application

Delphi

Delphi操作Word中的表

2 0

Procedure GetWordCellStr;var WordApp: TWordApplication; WordDoc: TWordDocument; DocInx,FileName,CfCversions,IsReadOnly,AddToRctFiles,PswDocument, PswTemplate,Revert,WPswDocument,WPswTemplate,FormatWord: OleVariant; i,iRow,iCol: Integer;

Delphi

delphi 递归实现从m 个集合中 任取一个元素 生成组合

2 0

主要思想:求从n个数组任意选取一个元素的所有组合,对于这个问题,我们在直观上感觉很容易,但是用程序实现时则发现用for循环解决不了问题,因为n是随意的。在这里,我们用递归的思想,对于数据[1, 3, 4]; [2, 5]; [6, 7];我们可以1.将1,2,6压入栈中,然后输出栈中所有元素,之后弹出62.压入7,输出栈中所有元素,之后弹出73.弹出2,压入5,再压入6,然后输出栈中所有元素,之后弹出64.压入7,输出栈中所有元素,之后弹出7以此类推,即可得到所有组合。interface uses W

Delphi之TClientSocket和TServerSocket使用tcp keepalive心跳机制实现“断网”、"断电"检测
Delphi

Delphi之TClientSocket和TServerSocket使用tcp keepalive心跳机制实现“断网”、"断电"检测

4 0

开发环境:Delphi7测试环境:WinXP,Win7 32bit,Win7 64bit使用TClientSocket和TServerSocket实现TCP长连接通讯,经常因为断电断网等原因导致出现一些死连接。解决方法是客户端和服务端都定时发送心跳包。具体实现如下:TClientSocket和TServerSocket均使用非阻塞模式1、定义心跳常量和KeepAlive 数据结构复制代码//定义心跳常量Const IOC_IN = $80000000; IOC_VENDOR = $18000000

Delphi

delphi char数组、string和Pchar的相互转换

4 0

因为要调用windows的api或者给vc++写接口,很多地方都要用到pchar,现在将char数组、string和pchar之间的相互转换都列出来,都是网上找的资料,我总结一下,先直接上代码,再讲原理。 1.string转换成pchar 可以使用pchar进行强制类型转换,也可以使用StrPCopy函数复制代码vars:string;p,p1:PChar;begins:=Hello Delphi;p:=PChar(s);ShowMessage(p);p1:=StrAlloc(L