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

将字符串写入txt文档,读取txt文档中的内容. //一次写字符串到文本文件,每次都会将原来的内容替换掉. procedure FilePutContents(f,s:String); // f为文件名,s为存的内容 var ss:TStrings; begin ss:=TStringList.Create; ss.Text:=s; ss.SaveToFile(f, TEncoding.UTF8); ss.Free; end; 下面为不替换原来的内容,追加写入文本: procedure File

在开始之前看下效果 PHP页面作为客户端发送请求给作为服务端的Delphi应用程序 PHP客户端页面打开如下 Delphi服务端应用程序打开如下 每次PHP页面刷新一下,Delphi的文本框都显示"我上线啦!"做的很粗糙,但是似乎可以作为某种功能的demo   PHP代码如下: <?php /***************************服务端*******************************/ ///** // * Created by PhpStorm.

delphi : Ihtmldocument2接口的利用 MSHTML是微软公司的一个COM组件,该组件封装了HTML语言中的所有元素及其属性,穿越其供给的规范接口,能够访问指定网页的所有元素． MSHTML对象模型是由一些对象和聚集构成的．处于根部的是HTML,描写了敞开版面的1个窗口,包括一系列聚集和对象.如Frames聚集,History,Location,Navigator,Document,Vi—sum,Event对象等．其中描写涌目前客户窗口切实网页的是Document对象.由一系列

Delphi 7下IGDIPlus库的使用 IGDI+是一个免费开源封装微软GDI+功能的Delphi库,该库使得可以用Delphi语言代码快速简短的实现复杂GDI+应用程序. 官方网站:http://www.mitov.com/html/igdi_.html SourceForge:https://sourceforge.net/projects/igdiplus/ 安装方法: .首先下载目前最新版的IGDI+,解压到任意目录下,这里我解压到D盘: .打开Delphi →Tools→Envir

一什么是UML? Unified Modeling Language(UML又称为统一建模语言或标准建模语言)是国际对象管理组织OMG制定的一个通 用的.可视化建模语言标准.能够用来描写叙述(specify).可视化(visualize).构造(construct)和记载(document)软件密集 型系统的各种工件(artifacts,又译为制品). UML是一个支持模型化和软件系统开发的图形化语言,为软件开发的全部阶段提供模型化和可视化支持,包含由 需求分析到规格,到构造和配置. UML是面

生成PDF的控件很多,但解析的不是太多,pdf Toolkit可以,但测试的第一个复杂的pdf就报告错误,并且汉字乱码,可能使用的版本或使用方法不对. 想起之前使用java调用的Apache名下的pdfBox库很好用,于是就用下载了pdfBox,使用Delphi来调用pdfBox解析pdf文本. 环境要求:java运行环境 pdfBox应用包:pdfbox-app-2.0.6.jar 这里使用了DOS命令行来解析,然后调用解析结果. 首先是执行DOS命令: procedure CheckResu

Delphi实现图像文本旋转特效完整代码,本程序利用的控件主要是Panel 控件.Image 控件.Edit 控件.Label 控件和Button 控件.本程序的关键是利用Delphi 的bmp_rotate()函数来实现旋转图像.并巧妙地调用相关Windows API 函数来实现对文本的旋转.以下是完整代码: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, D

仍然是处理多语言中碰到问题. Delphi自2006版以后,TLabel有了EllipsisPosition属性,当长文本超过其大小时,显示以...,如下图: 这样虽然解决显示问题,但很显然,不知道...究竟省略了什么. 于是就想:此类情况,能不能鼠标移上去,以Hint显示完全文本? 追踪其源代码,及查阅资料,实现了这个想法,扩充TLabel,代码如下: 声明: type TLabel = class(StdCtrls.TLabel) protected procedure DoDrawText

转载:http://www.cnblogs.com/pchmonster/archive/2012/07/06/2579185.html 基本绘图操作(Basic Drawing Operations) 现在大家已经知道Rectangle方法用来画正方形和矩形,Ellipse方法用来画圆和椭圆,MoveTo和LineTo方法则用来画线. 还有Arc方法用于画弧,Pie方法用于画饼形,一切一切都是非常基础的,没有太大的必要详细了解TCanvas的这些方法,下面开始更有趣的图形操作,这些图形操作在编

简介: Debenu Quick PDF Library(PDF编程开发工具)提供一套全方位的 PDF API 函数,帮助您快速简便地处理 PDF 文件.从文档属性的基本操作到创建您自己的 PDF 查看器和 PDF 编辑器,这款软件满足您的所有需求.Quick PDF Library是一款供 PDF 开发人员使用的 SDK,功能强大.无需版税,其中包括超过500个函数,可用于 Delphi.C.C#.C++.ASP.VB6.VB.NET.VBScript.PHP.PowerBASIC 等,使用

需求: QQ我的资料中基本资料窗体中的文本框: 正常状态下,文本框只有一条看起来只有一个像素的边框,边框的颜色从上到下由深到浅的渐变,当鼠标定位到该文本框时,其边框会变粗,而且边框的颜色加亮显示 如下图所示: 实现思路: 一.准备两个边框素材图片, 一个是正常状态下的边框素材, 比如: 另一个是鼠标进入到文本框内的边框素材 比如: 二.需要的参数 首先是边框素材的绘制边距,分为左边距,右边距,上边距,下边距 边框素材根据边距的设置,使用九宫格缩放绘制到界面上 其次是边框的边距,也为左边距,右边距

procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);var edt: TEdit; str, strL, strR: string; p: integer;begin   // 获取当前文本内容, 注意要去掉选中部分(因为会被改写). edt := TEdit(Sender); str := edt.text; if Length(edt.SelText) <> 0 then begin   strL := LeftSt

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

//垂直显示标签文本 Label1.Caption:='垂'+#13+'直'+#13+'显'+#13+'示';//使用相同的方法,我们也可以制作垂直显示的提示(Hint):button1.Hint:='垂'+#13+'直'+#13+'显'+#13+'示'; 来自为知笔记(Wiz)

//fromhttp://kingron.myetang.com/zsfunc12.htm (*//标题:处理数据网格的编辑框说明:示例添加焦点颜色;获取还没有提交到数据集的字段文本设计:Zswang日期:2002-03-31支持:wjhu111@21cn.com//*) ///////Begin   Sourcefunction   GetDBGridEdit(mDBGrid:   TDBGrid):   TEdit;var    I:   Integer;begin    Result   

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls; type   TForm1 = class(TForm)     XMLDocument1: TXMLDocument;     Button1: TButton;     But

为适应多语言,需要对界面控件大小.位置多动态改变,因此需要根据其Caption计算实际像素大小. 找资料未有易用现成的,遂参数其它方法,写以函数处之,代码如下: uses TypInfo; function GetTextWidth(AControl: TControl): Integer; function GetControlFont: TFont; var PropInfo: PPropInfo; begin Result := nil; PropInfo := GetPropInfo(A

多行编辑框组件(TMemo)TMemo组件可以显示.编辑多行文本,是一个标准的Windows多行编辑组件.对一些比较多的文本内容可以利用TMemo组件来显示.编辑. 1．TMemo组件的典型用法 TMemo组件主要用于输入备注型的字符串,它不能进行文字格式的设置.利用TMemo组件Lines属性的LoadFromFile方法打开文本文件,对文本文件进行编辑.编辑完成后再利用Lines属性的SaveToFile方法将编辑后的文本进行保存.例如下面的代码,在拥有一个Memo1组件和两个Button组

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

//转自http://www.oschina.net/code/snippet_136241_3980 1 procedure CheckResult(b: Boolean); begin if not b then raise Exception.Create(SysErrorMessage(GetLastError)); end; function RunDOS(const CommandLine: string): string; var HRead, HWrite: THandle; S