Delphi RichEdit操作

1.选择设置对齐 RichEdit1.SelectAll;RichEdit1.Paragraph.Alignment:=taLeftJustify; // switch for other alignmentsRichEdit1.SelLength:=0; 2.设置对齐和内容 redt1.Clear; redt1.Lines.Add('XXXX分析报告' + #13#10); strMsg := '打印时间:' + FormatDateTime('yyyy年hh月dd日 hh时MM分ss秒',…

Delphi Excel 操作大全

Delphi Excel 操作大全 (一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿:ExcelApp.WorkBook…

delphi 换行操作 Word

delphi 换行操作我将我的商用<旅行社管理系统>的发团通知部分奉献给您,望对您有所帮助. procedure TFrmMain.N327Click(Sender: TObject); var FWord :Variant; FDoc :Variant; strSQL :string; begin //首先创造对象,如果出现异常就做出提示 try FWord := CreateOleObject('Word.Application'); //WOrd程序的执行是否可见,值为false时…

Delphi摄像头操作

/*Title:Delphi摄像头操作 *Author:Insun *Blog:http://yxmhero1989.blog.163.com *From:www.4safer.com */ 为了笔耕不辍,为了way out,为了Dota激情的时候不内疚,偶尔发发. 各种远控软件都有摄像头操作,其实编程起来没什么技术可言. DELPHI一般直接使用MS的AVICAP32.DLL就可轻松的实现对摄像头编程,一般不喜欢TVideoCap控件. 首先常量定义和函数定义: implementation…

Delphi内存操作API函数（备查，并一一学习）

Delphi内存操作API函数System.IsMemoryManagerSet;System.Move;System.New;System.ReallocMem;System.ReallocMemory;System.SetMemoryManager;System.SysAllocMem;System.SysFreeMem;System.SysGetMem;System.SysReallocMem; SysUtils.DisposeStr;SysUtils.NewStr; TlHelp32.H…

delphi nethttpclient操作cookie

delphi nethttpclient操作cookie unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Net.URLClient, System.Net.HttpClient, System.Net.Htt…

DELPHI 数据库操作

DELPHI 把数据库中的数据转换成XML格式 function ReplaceString(AString: string): string; begin Result := StringReplace(AString, '&', '&', [rfReplaceAll]); Result := StringReplace(Result, '>', '>', [rfReplaceAll]); Result := StringReplace(Result, '<', '&l…

Delphi文件操作函数

文件是同一种类型元素的有序集合,是内存与外设之间传输数据的渠道.文件的本质是一个数据流,所有的文件实际上是一串二进制序列.文件管理包括:1.文件操作.2.目录操作.3.驱动器操作.三部分. 1.常见文件操作函数和过程.1.1.AssignFile过程作用:将一个外部文件的文件名与一个File类型的变量关联,并对变量进行初始化.原型:procedure AssignFile(var F; FileName: String);F:一个File类型的变量,可以是任何数据类型.FileName:外部文件…

Delphi RichEdit的内容保存为图片

uses RichEdit; {将RichEdit1的内容保存为图片,此函数也适合于RxRichEdit,即RichEdit: TRxRichEdit}procedure RichEditToCanvas(RichEdit: TRichEdit; Canvas: TCanvas; PixelsPerInch: Integer);varImageCanvas: TCanvas;fmt: TFormatRange;beginImageCanvas := Canvas;with fmt dobegin…

Delphi 如何操作Excel

摘自:http://wenjieshiyu.blog.163.com/blog/static/10739413201072033115869/ 个人收藏:Delphi 控制Excel(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题…

在Delphi中操作快捷方式

快捷方式减少了系统的重复文件,是快速启动程序或打开文件或文件夹的方法,快捷方式对经常使用的程序.文件和文件夹非常有用.在Windows系统中,充斥着大量的快捷方式,那么如何操作这些快捷方式就是一个很头疼的问题,在Windows的编程中,无疑会经常碰到操作快捷方式文件的问题,例如为程序创建快捷方式,修改程序的快捷方式等等.为了操作快捷方式,本人封装了两个函数,而且给出了一个详细的例子. 1. 快捷方式文件的基本信息快捷方式包含的信息有:目标文件名.程序运行时的参数.快捷键.运行窗口的状态.描述.…

delphi文件操作的总结

csfinal90我的:收件箱资源博客空间设置|帮助|退出首页业界移动云计算研发论坛博客下载更多 windzb的专栏目录视图摘要视图订阅 IT俱乐部创始人杜鸿飞专访 2013年10月微软MVP当选名单揭晓! Tag功能介绍-我们为什么打Tag "说说家乡的互联网"主题有奖征文订阅CSDN社区周刊,及时了解社区精华内容 Delphi中文件操作的总结 [转] 2008-02-21 19:00 883人阅读评论(0) 收藏举报 del…

delphi文件操作（比较全）

Delphi中默认有input和output两个文件变量,使用可以不用定义,直接使用. 但: input:只读.output:只写.用时注意以免引起异常. 文件是由文件名标识的一组数据的集合,文件通常存放在磁盘上.源程序.学生档案记录.图形.音乐等均可以作为文件存储在磁盘上.操作系统是以文件为单位对数据进行管理的,也就是说,如果想读取外存介质上的数据,必须先按文件名找到所指定的文件,然后再从该文件中读取数据.要向外存介质上存储数据,也必须先建立一个文件(以文件名标识),才能向它输出数据.在程序运…

delphi 文件操作（信息获取）

delphi获取Exe文件版本信息的函数 Type TFileVersionInfo = Record FixedInfo:TVSFixedFileInfo; {版本信息} CompanyName:String; {公司名称} FileDescription:String; {说明} FileVersion:String; {文件版本} InternalName:String; {内部名称} LegalCopyright:String; {版权} LegalTrademarks:String;…

Delphi 文件操作（路径、目录）

Delphi利用系统环境变量获取常用系统目录 //譬如 %WINDIR% 是表示系统目录的系统变量, 可以这样获取: var s: string; begin s := GetEnvironmentVariable('WINDIR'); ShowMessage(s); {C:\WINDOWS} end; 一些系统目录变量列表: --------变量-----------------------------,-------描述------------------------------------…

delphi windows操作

输入 procedure TypeKeyString(s: string); var c: Char; i: integer; off: integer; vkw: Word; begin to Length(s) do begin c := s[i]; ) then begin vkw := VkKeyScan(c); off := ; = $ then keybd_event(VK_SHIFT, , off, ); = $ then keybd_event(VK_CONTROL, , off…

Delphi 如何操作外部程序的控件（如按钮，文本框，单选按钮等）

看你要做什么,比较现在网络很流行的QQ.MSN这些软件都屏蔽了,你可能还可以访问一些小软件的这些控制,思路及方案如下(API函数自己去百度查一下)1.得到你要这个窗口的句柄使用FindWindow2.利用枚举函数EnumChildWindows把这个窗口里的所有文本框.按钮找到,并得到其句柄,EnumChildWindows需要一个回调函数,你可以在回调函数中把模拟输入,单击双击这些操作加上去 3.在回调函数里,其实就是向你找到的按钮或文本框发送消息消息说明:比如得到文本框中的文字消息:WM_…

Delphi richedit获取选中文字

function TForm1.GetSendText(RichEdit: TExRichEdit): string;var MsgListInfo: TStrings; i, m, n: integer; x, y: LongInt; WideStr: WideString;begin Result := ''; MsgListInfo := RichEdit.Lines; Y := SendMessage(RichEdit.Handle, EM_LINEFROMCHAR,…

Delphi RICHEDIT中插入图象

unit InsRich;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ActiveX,ComCtrls;const REO_CP_SELECTION = ULONG(-1); REO_BELOWBASELINE = $00000002; REO_RESIZABLE = $00000001; REO_STATIC = $40000000; EM_GE…

Delphi 窗口操作

unit UnitWinUtils; interface uses Windows; Type TDWA128=Array [..] of LongWord; TDWA256=Array [..] of LongWord; TDWA512=Array [..] of LongWord; TDWA1024=Array [..] of LongWord; TDWA4096=..] of LongWord; TDWA32768=..] of LongWord; function GetAllChild…

Delphi文件目录操作（转载）

Delphi判断文件夹(目录)是否存在,不存在就创建一个,可以一次创建多级目录 procedure TForm1.Button1Click(Sender: TObject);begin if not FileExists(Edit1.Text) then//if not DirectoryExists(Edit1.Text) then 判断目录是否存在 try begin CreateDir(Edit1.Text); //ForceDirectories(Edit1.Text); 创建目录 en…

DELPHI 数据库操作类（工具类）

DELPHI 数据库连接类做的时候目地是可以通过类的创建和释放进行数据库的短连接,在做服务端的时候每一个请求都通过类生成一个数据连接 unit UnDm; interface uses SysUtils, Classes, Controls, Forms, Dialogs, ComCtrls, ExtCtrls, Menus, StdCtrls, ADODB, DB,inifiles; type TRecordResult = (RRError, RRZero, RROK); TDataSta…

Delphi 文件操作（4）Reset

procedure Reset(var F [: File; RecSize: Word ] ); { 作用: 对于文本文件,Reset过程将以只读方式打开文件,对于类型文件和无类型文件,Reset过程将以可读写方式打开文件 procedure Reset(var F [: File; RecSize: Word ] ); F:File 类型变量,可以是任何文件类型: RecSize:文件的大小,这个参数是一个可选参数,只有当F为无类型文件时才可以被…

delphi SQL操作

create表时不可以有类似Name之类的字段创建,否则报错,即使access数据库中执行正常 insert的字符型字段中不可以有英文单引号 ' 之类的存在,否则报错,可以用#39 代替,减少英文单引号 ' 的使用的增加易读性 1个SQL语句发现的2个问题 sql语句: select * into [;database=D:\测试数据\asdf.Mdb].table1 from table1 表示将当前数据库中的table1 直接copy到路径D:\测试数据\asdf.Md…

Delphi 712操作word

//导出Wordprocedure TFrm_Computing.ExportWord;var wordApp, WordDoc, WrdSelection, wrdtable, wrdtable1, cell: variant; strAdd: string; wdPar,wdRange:OleVariant; iCol, iRow, I, J: Integer; begin try wordApp := CreateOleObject('Word.Application'); except…

ACCESS-关于DELPHI中操作ACCESS数据库中单精度数据的问题

在近日几个帖子里面,和QQ群的讨论里面,我发现很多网友都遇到的问题都是因为不恰当地使用了单精度/双精度数值.因此想专门就这个话题谈一下. 单精度和双精度数值类型最早出现在C语言中(比较通用的语言里面),在C语言中单精度类型称为浮点类型(Float),顾名思义是通过浮动小数点来实现数据的存储.这两个数据类型最早是为了科学计算而产生的,他能够给科学计算提供足够高的精度来存储对于精度要求比较高的数值.但是与此同时,他也完全符合科学计算中对于数值的观念: 当我们比较两个棍子的长度的时候,一种方法是并排放…