function GetRTF(RE: TRichedit): string;varstrStream: TStringStream;beginstrStream := TStringStream.Create('') ;tryRE.PlainText := False;RE.Lines.SaveToStream(strStream) ;Result := strStream.DataString;finallystrStream.Freeend;end; procedure TForm1.Bu

FormatDateTime('yyyy-mm-dd hh:nn:ss',Now) FormatDateTime('hh:mm:ss:zz',Now) if (TimeOf(now) < pub_StartWorkTime) or (TimeOf(now) > pub_EndWorkTime) then exit; //非工作时间退出 读ini pub_StartWorkTime := MyIniFile.Readtime('Setup','StartWorkTime',strtotime('

procedure TForm1.btn6Click(Sender: TObject);var WordApp: Variant; //声明一个word对象beginWordApp := CreateOleObject('Word.Application'); //创建word对象WordApp.Documents.open('E:\SVN_712\trunk\Code\Bin\tablet\20160308110555.doc'); //打开一个word文档//wordapp.visible:

一.提高查询效率先进行准备查询操作: CustomerQuery.Close; if not (CustomerQuery.Prepared) then -->查询是否已准备好 CustomerQuery.Prepare; -->查询准备 CustomerQuery.Open; -->执行查询 二.要在运行期访问参数,有三种方式可以选择:(适合BDE控件中的TQuery) (1)ParamByName: 按名称设置参数的值(2)Params: 按序号设置参数的值(3)Params.Par

delphi操作文本文件的方法简介减小字体 增大字体 作者佚名来源不详发布时间2008-5-31 10:31:16发布人xuedelphi1 文件类型和标准过程       Delphi同Object Pascal一样支持三种文件类型,即:文本文件.记录文件.无类型文件.1.1文本文件        文本文件类型的变量用如下方法声明:varTextFileVar: Text ;         文本文件是以行为单位进行读.写操作的.由于每一行长度不一定相同,不能计算出给定行在文件中的确切位置,因

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

[Delphi]Delphi开发的一些技巧 一.提高查询效率先进行准备查询操作: CustomerQuery.Close; if not (CustomerQuery.Prepared) then -->查询是否已准备好 CustomerQuery.Prepare; -->查询准备 CustomerQuery.Open; -->执行查询 二.要在运行期访问参数,有三种方式可以选择:(适合BDE控件中的TQuery) (1)ParamByName: 按名称设置参数的值(2)Params:

procedure TForm1.Button1Click(Sender: TObject); variFileHandle: Integer;iFileLength: Integer;iBytesRead: Integer;Buffer: PChar;i: Integerbeginif OpenDialog1.Execute thenbegintryiFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);iFileLength :=

RichViewEdit特殊操作 RichviewEdit 图文保存操作 首先要转换成stream后才能对RichviewEdit进行正确的读和写 function SaveRVFToField(rv: TCustomRichView; tbl: TTable; const FieldName: String): Boolean; var Stream: TStream; begin Stream :=TMemoryStream.Create; try Result := rv.SaveRVFT

delphi/C#实现,其他语言稍微改下就行了.AE的编码各个语言都差不多,这里也没用到某一语言的特性. 函数特点: 1.可以精确导出指定范围的图形要素 2.支持多格式.TIF, .EMF,.GIF,.PDF,.PNG,.SVG,.AI,.EPS,.jpg等 3.Tif格式导出时支持坐标信息导出,支持压缩格式选择     delphi 版: {海龙 created 功能说明:指定地图窗口指定区域裁图 参数说明: 指定地图窗口pMap 指定范围裁图pExtent,如某一图形的envolope或ma

DateUtils时间单元说明 CompareDate 函数 比较两个日期时间值日期部分的大小 CompareDateTime 函数 比较两个日期时间值的大小 CompareTime 函数 比较两个日期时间值时间部分的大小 DateOf 函数 去除日期时间值的时间部分 DateTimeToJulianDate 函数 转换日期时间值为儒略日 DateTimeToModifiedJulianDate 函数 转换日期时间值为改进的儒略日 DateTimeToUnix 函数 转换日期时间值为Unix/L

zw版[转发·台湾nvp系列Delphi例程]HALCON HImage与Bitmap格式转换 (Delphi Prism)namespace HImage_Bitmap_Prism;interfaceuses System.Drawing, System.Collections, System.Collections.Generic, System.Windows.Forms, System.ComponentModel, System.Drawing, System.Drawing.Imag

Delphi的DateToStr StrToDate格式灵活用法 2008-04-09 10:19 procedure TForm1.Button1Click(Sender: TObject);var   ADate: String;   ADate2: TDate;   AFormat, AFormat2: TFormatSettings;begin   AFormat.ShortDateFormat := 'ee/mm/dd';   AFormat.DateSeparator := '/';

http://www.cnblogs.com/hnxxcxg/archive/2013/01/30/2882672.html 如果WINDOWS系统的短日期格式为“yyyy/m/d”,执行下面的代码会报错:2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject);varsDate: string;begininherited;// 默认查当天的销售数据sDate := FormatDateTime('y

废话不多说了,利用内存流来判断文件的格式,其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件,例如jpg文件 是 FFD8 (从低位到高位就要反过来 D8FF 下面都是一样)BMP文件 是 424D ---4D42其他的我就不一一列举了,想知道跟多文件类型分别是用什么字符作为文件的开头的话,下载个C32asm或者UE等这类16进制编辑器就可以看到了.procedure TForm1.Button1Click(Sender: TObject); //Button1的单击事件var  

在Delphi中,特别是在写管理系统软件时,经常要用到 FormatDateTime 以将 TDateTime 格式的日期时间转换成字符串形式的值显示或保存起来,或者用 StrToDateTime将字符串形式的日期时间转换成 TDateTime 然后再做其他操作. 在进行时间或日期的转换时,会使用系统当前设定的时间日期格式.而如果时间日期格式与字符串中的表示方式不相符,会使转换过程失败.例如当前短日期格式设定为'yyyy/MM/dd',而要转为 '2006-10-20'这样的字符串为日期,就会报

如果WINDOWS系统的短日期格式为“yyyy/m/d”,执行下面的代码会报错:2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject);varsDate: string;begininherited;// 默认查当天的销售数据sDate := FormatDateTime('yyyy-mm-dd', Now);DateTimePicker1.DateTime := StrToDateTime(sDat

Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Embarcadero\BDS\19.0\Editor] "DefaultFileFilter"="Borland.FileFilter.UTF8ToUTF8" 按上面修改注册表,之后,源文件将按UTF8保存.Delphi 10.3.1测试通过. 注意,这只是针对新建的文件,对于旧文件,只能打开他,再选择他的格式: 可能你要问为什么? 在

https://blog.csdn.net/my98800/article/details/53536774 废话不多说了,利用内存流来判断文件的格式,其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件,例如 jpg文件 是 FFD8 (从低位到高位就要反过来 D8FF 下面都是一样) BMP文件 是 424D ---4D42 其他的我就不一一列举了,想知道跟多文件类型分别是用什么字符作为文件的开头的话,下载个C32asm或者UE等这类16进制编辑器就可以看到了. procedur

Json是一种轻量级传输数据格式,广泛应用互联网和各应用中.json主要採用键值对来表示数据项.多个数据项之间用逗号分隔,也能够用于数组.以下注重介绍一下在delphi中使用json,在delphi中使用json经常使用superobject单元文件.该文件能够在网上下载,最初接触json是在2011年,好久没用这不刚好有项目要用到又折腾了好久,以下做了一个简单的Demo,方便以后忘了能随时查看.详细的json使用能够參看万一老师的博客,记录的非常详细,以下的demo主要是将数据库记录转换为js