2014年01月_冰雪青松

01月

原创 delphi 7编写的代码查看编辑器对注释的着色

procedure TForm1.RichEdit1Change(Sender: TObject);var point: TPoint; x, x1, y, i, i1, i2, i3, i4, p: Integer; s1: string; pa: array[1..10] of char;begin (********鼠标位置和焦点位置保存*********) x :

2014-01-14 19:23:59 792

原创 TFont 类的常用属性:

{Name: 字体名称}如：Canvas.Font.Name := '微软雅黑';{Color: 颜色}如：Canvas.Font.Color := clRed;{Size、Height: 字号与字体高度, 都可以设定字体大小}{Style: 字体样式; 是个集合值, 是下面可选值或它们的组合:}[] //常规字体[fsBold] //粗体字体[f

2014-01-11 16:32:55 1381

原创 delphi 7编写的代码查看编辑器对保留字的着色

procedure TForm1.RichEdit1Change(Sender: TObject);var point: TPoint; x, x1, y, y1, ip, i, i1, p, p1: Integer; s, s1: string; pa: array[1..10] of char; strs: TStrings; str1, str2, str3, st

2014-01-11 14:52:28 964

转载 Pascal 语言中的关键字及保留字

absolute //指令(变量)abstract //指令(方法)and //运算符(布尔)array //类型as //运算符(RTTI)asm //语句assembler //向后兼容(汇编)at //语句(异常处理)automated //访问类别符(类)begin //块标记case //语句cdecl //函数调用协定class //类型co

2014-01-10 17:12:50 1033

转载 Delphi总结使用TStrings的一些技巧

[delphi] view plaincopyprint?先把要讨论的几个属性列出来： 1、CommaText 2、Delimiter & DelimitedText 3、Names & Values & ValueFromIndex 先看第一个：CommaText。怎么用呢？用代码说话： const constr :Str

2014-01-10 17:05:52 710

转载 DBGrid 各属性的设置

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的

2014-01-10 16:33:21 5030

转载在delphi中Char,PChar,PByte,Byte,String的相互转换示例

var s:string; pc:pchar; pb:pbyte; ac:array[1..100] of char; ab:array[1..100] of byte; i:integer;begin s:='this is a test'; pc:=pchar(s);//string->pchar pb:=pbyte(p

2014-01-10 11:44:37 9319

转载 delphi 字符串查找替换函数

1. 提取字符串中指定子字符串前的字符串　　Function Before( Src:string ; S:string ): string ;　　Var　　 F: Word ;　　begin　　 F:= POS(Src,S) ;　　 if F=0 then　　 Before := S　　 else

2014-01-10 11:06:20 2415

转载 delphi edit 只输入数字只输入字母

在Delphi中使用编辑框时，有时需要限制输入它的字符类型，如只接收数字或只接收字母。我们可以在TEdit组件的on..KeyPress事件中对输入进行处理，以限制对编辑框的输入。限制为只接收数字的例程如下：procedure TForm1.Edit1KeyPress(Sender: TObject; var..Key: Char);beginif not(key in['

2014-01-10 10:54:28 1268

转载在Delphi中实现将Font.Style写入INI文件

前不久我编写一个小程序在INI文件中记录字体的属性(颜色值color，大小size，字体名name，样式style)，其中color值和size值可以用数值方式写入INI文件，name是用字符方式写入，但Font.style不是数值型、字符型，也不是布尔型，而是TfontStyles类，无法直接写入INI文件中去，我找了好多相关书籍也没找到方法，也到网络上的Delphi站点去问，也没得

2014-01-10 10:45:46 1076

转载 Delphi、PChar和Char数组的比较

Delphi、PChar和Char数组的比较 string和Char数组都是一块内存, 其中存放连续的字符. string保存具体字符的内存对用户是透明的, 由Delphi管理它的分配, 复制和释放, 用户不能干预(其实也可以, 不过是通过非法途径). Char数组就不必说了吧? PChar是一个指针, 它的大小只有32位. 定义时由Delphi自动填0.

2014-01-10 10:30:19 734

转载 Delphi流的操作

一、流的概念流简单说是建立在面向对象基础上的一种抽象的处理数据的工具，它定义了一些处理数据的基本操作，如读取数据，写入数据等，程序员只需掌握对流进行操作，而不用关心流的另一头数据的真正流向。其实，流就是把整个对象转化为一个一个单字节数据，然后形成数据流，其形同把固体石块打碎成一颗颗细小的沙子一样，最后可以形成流沙。二、流的主要功能流的主要功能是对文件与非文件数据相互转换进行

2014-01-10 10:08:18 550

转载 delphi TPoint类

TPoint类TPoint指代的是坐标，表示一个点，有两个属性xy坐标定义pointOne:TPoint;使用pointOne.X //integer类型的pointOne.Y //integer类型的

2014-01-09 16:56:39 2220

转载 Delphi中资源文件使用详解

一．编写 RC 脚本文本　　用记事本或其它文本编辑器编写一个扩展名为".rc"的文件。格式如下：　　 AVI 无声动画　　 BITMAP 位图文件　　 CURSOR 光标文件　　 ICON 图标文件　　 WAVE 声音文件　　以上所列均为标准资源类型，也可以给资源自定义一个类型，如："mytype"。不过两者在

2014-01-09 16:03:44 614

转载 Delphi遍历文件夹及子文件夹（可查找固定格式文件）

Delphi遍历文件夹及子文件夹{-------------------------------------------------------------------------------过程名: MakeFileList 遍历文件夹及子文件夹作者: SWGWEB日期: 2007.11.25参数: Path,FileExt:string 1.需

2014-01-09 15:58:58 733

转载 Delphi 异常处理详解

[1] Exception类的定义在SysUtils单元中。[2] Delphi也支持不从Exception继承的异常类，但是我觉得这么做并不十分的明智。一、异常的来源　　在Delphi的应用程序中，下列的情况都比较有可能产生异常。　　　　（1）文件处理　　　　（2）内存分配　　　　（3）Windows资源　　　（4）运行时创建对象和窗体　　　　（5）硬件和

2014-01-09 15:39:23 726

用原生php编写的web版文件浏览器，只有3个文件，只需要GD库支持，不需要其它库或组件，适合初学者参考。支持打开并编辑的文本文件和配置文件：txt、log、conf、sql、ini和sh文件；支持浏览的图片文件，php 支持的 gd 库打开的图片文件 jpeg、png、gif、bmp、wbmp、webp、xbm、xpm；支持浏览的视频文件，h5 支持的 mp4、webm文件；支持浏览的音乐文件，h5 支持的 mp3、wav 和 ogg 文件。

2021-02-07