摘要： //ShowMessage:begin ShowMessage('提示内容'); {标题默认工程名, 如: Proect1} Application.Title := '警告'; {如果修改工程标题...} ShowMessage('提示内容'); {标题是'警告'} ShowMessage('第一行' + #13#10 + '第二行'); {提示信息换行} ShowMessage('第一行'#13'第二行'); {也可以}end;------------------ 阅读全文

摘要： 一．INI文件的结构 [小节名]ini文件 关键字1＝值1 关键子2＝值2 INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是该关键字的值。 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。二、定义1、 在Interface的Uses节增加IniFiles； 2、 在Var变量定义部分增加一行： myinifile:Tinifile; 定义类的一个实例。然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了三、打开INI文件 myinifile:=... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click... 阅读全文

摘要： //判断文件是否存在 FileExistsvar f: string;begin f := 'c:\temp\test.txt'; if not FileExists(f) then begin //如果文件不存在 end;end;--------------------------------------------------------------------------------//判断文件夹是否存在 DirectoryExistsvar dir: string;begin dir := 'c:\temp'; if not DirectoryExist 阅读全文

摘要： 图例：程序及源代码下载地址：http://115.com/file/bhioozqlunit uForm_Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm_Main = class(TForm) Label1: TLabel; Label2: TLabel; edt_Des: TEdit; //目标目录文本框 LB_Files: TList... 阅读全文

摘要： 前言: Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。 文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。 文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。 文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。 1.文件变量与文件名关联: AssignFile(VarTxt, FileName); FileName 如果省略路径将默认当前目录。 2.初始化读写有三种方式: (1) Reset: 只读... 阅读全文