自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(7)
  • 收藏
  • 关注

转载 消息框相关函数

//ShowMessage:begin ShowMessage('提示内容'); {标题默认工程名, 如: Proect1} Application.Title := '警告'; {如果修改工程标题...} ShowMessage('提示内容'); {标题是'警告'} ShowMessage('第一行' + #13#10 + '第...

2011-09-19 14:37:00 130

转载 ini文件操作:使用 TIniFile

一.INI文件的结构 [小节名]ini文件 关键字1=值1 关键子2=值2 INI文件允许有多个小节,每个小节又允许有多个关键字,“=”后面是该关键字的值。 值的类型有三种:字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号,布尔真值用1表示,布尔假值用0表示。二、定义1、 在Interface的Uses节增加IniFiles; 2...

2011-09-19 14:36:00 216

转载 ini文件操作:使用TMenIniFile

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; B...

2011-09-19 14:32:00 163

转载 文件操作函数集合

//判断文件是否存在 FileExistsvar f: string;begin f := 'c:\temp\test.txt'; if not FileExists(f) then begin //如果文件不存在 end;end;---------------------------------------------------...

2011-09-19 11:45:00 106

转载 自己编写的多个文件复制程序,带进度条和状态显示

图例:程序及源代码下载地址:http://115.com/file/bhioozqlunit uForm_Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComC...

2011-09-19 09:07:00 199

转载 文本文件的读写

前言: Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。 文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同,不能计算出给定行在文件中的确切位置,因而只能顺序地读写。 文本文件只能单独为读或写而打开,在一个打开的文本文件上同时进行读、写操作是不允许的。 文本文件的打开需要两个步骤:1.文件变量与文件名关联;2.初始化读写。 1.文...

2011-09-19 01:02:00 181

转载 自己编写的计算器

先上图:程序下载地址:http://115.com/file/e65jc1auunit uForm_Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus...

2011-09-18 22:10:00 150

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除