Close:
1.只关闭本窗体
2.当Close是一个主窗体时,程序会退出。
3.Close会发生FormClose事件,FormCloseQuery事件
4.主窗体close以后程序就Application.Terminate了
5.子窗体close以后。没释放,还可以Show出来。
6.也是说主窗口的Close方法其实也是调用Application的Terminate来终止程序的。
Halt:
Close:
1.只关闭本窗体
2.当Close是一个主窗体时,程序会退出。
3.Close会发生FormClose事件,FormCloseQuery事件
4.主窗体close以后程序就Application.Terminate了
5.子窗体close以后。没释放,还可以Show出来。
6.也是说主窗口的Close方法其实也是调用Application的Terminate来终止程序的。
Halt:
Delphi7中使用AssignFile时遇到长文件名报错的BUG:
procedure TForm1.btn1Click(Sender: TObject); var file1: file; filename: string; Buf: array[1..5] of Char; i: Integer; begin edt1.Text := ''; filename := 'D:\一二三四五六七八九十1\一二三四五六七八九十2\一二三四五六七八九十3\一二三四五六七八九十4\一二三四五六七八九十5\' + '一二三四五六七八九十6\一二三四五六七八九十7\一二三四五六七八九十8\一二三四五六七八九十9\一二三四五六七八九十0\' + '一二三四五六七八九十1\一二三四五六七八九十2\一二三四五六七八九十3\一二三四五六七八九十4\一二三四五六七八九十5\' + '一二三四五六七八九十6\一二三四五六七八九十7\一二三四五六七八九十8\一二三四五六七八九十9\一二三四五六七八九十0\' + '123456789012.txt'; //ShowMessage(IntToStr(Length(filename)));//459 filename := ExtractShortPathName(filename); //ShowMessage(IntToStr(Length(filename)));//195 AssignFile(file1, filename); FileMode := 0; Reset(file1, 1); BlockRead(file1, Buf, SizeOf(Buf), i); CloseFile(file1); edt1.Text := Buf; end;
将长文件名转为短文件名后,再AssignFile就可以了:
附带通用控件安装方法:
----------
基本安装
1、对于单个控件,Componet-->install component..-->PAS或DCU文件-->install;
2、对于带*.dpk文件的控件包,File-->Open(下拉列表框中选*.dpk)-->install即可;
3、对于带*.bpl文件的控件包,Install Packages-->Add-->bpl文件名即可;
Delphi7中分割字符串,一般使用TStringList的Delimiter方法,如下:
var sl: TStringList; str: string; i: Integer; begin str := 'aa,b b,cc,dd'; sl := TStringList.Create; sl.Delimiter := ','; sl.DelimitedText := str; for i := 0 to sl.Count - 1 do ShowMessage(sl[i]); FreeAndNil(sl); end;
但是运行的结果确是不对的(空格也被当成了分隔符):
函数原型:int GetSystemMetrics( int nIndex
// system metric or configuration setting ); 函数返回与系统有关的信息
property Showing: Boolean read FShowing;
While the Visible property can be read or changed, Showing is a read-only property.
TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。
常规的用法大家都知道,现在来讨论它的一些高级的用法。
1、CommaText
2、Delimiter &DelimitedText
3、Names &Values &ValueFromIndex
先看第一个:CommaText。怎么用呢?
ASCII码对照表 | ||||
Bin | Dec | Hex | 缩写/字符 | 解释 |
0000 0000 | 0 | 00 | NUL | (null) 空字符 |
0000 0001 | 1 | 01 | SOH | (start of handing) 标题开始 |
0000 0010 | 2 | 02 | STX | (start of text) 正文开始 |
0000 0011 | 3 | 03 | ETX | (end of text) 正文结束 |
0000 0100 | 4 | 04 | EOT | (end of transmission) 传输结束 |
0000 0101 | 5 | 05 | ENQ | (enquiry) 请求 |
0000 0110 | 6 | 06 | ACK | (acknowledge) 收到通知 |
0000 0111 | 7 | 07 | BEL | (bell) 响铃 |
0000 1000 | 8 | 08 | BS | (backspace) 退格 |
0000 1001 | 9 | 09 | HT | (horizontal tab) 水平制表符 |
0000 1010 | 10 | 0A | LF | (NL line feed, new line) 换行键 |
0000 1011 | 11 | 0B | VT | (vertical tab) 垂直制表符 |
0000 1100 | 12 | 0C | FF | (NP form feed, new page) 换页键 |
0000 1101 | 13 | 0D | CR | (carriage return) 回车键 |
0000 1110 | 14 | 0E | SO | (shift out) 不用切换 |
0000 1111 | 15 | 0F | SI | (shift in) 启用切换 |
0001 0000 | 16 | 10 | DLE | (data link escape) 数据链路转义 |
0001 0001 | 17 | 11 | DC1 | (device control 1) 设备控制1 |
0001 0010 | 18 | 12 | DC2 | (device control 2) 设备控制2 |
0001 0011 | 19 | 13 | DC3 | (device control 3) 设备控制3 |
0001 0100 | 20 | 14 | DC4 | (device control 4) 设备控制4 |
0001 0101 | 21 | 15 | NAK | (negative acknowledge) 拒绝接收 |
0001 0110 | 22 | 16 | SYN | (synchronous idle) 同步空闲 |
0001 0111 | 23 | 17 | ETB | (end of trans. block) 传输块结束 |
0001 1000 | 24 | 18 | CAN | (cancel) 取消 |
0001 1001 | 25 | 19 | EM | (end of medium) 介质中断 |
0001 1010 | 26 | 1A | SUB | (substitute) 替补 |
0001 1011 | 27 | 1B | ESC | (escape) 溢出 |
0001 1100 | 28 | 1C | FS | (file separator) 文件分割符 |
0001 1101 | 29 | 1D | GS | (group separator) 分组符 |
0001 1110 | 30 | 1E | RS | (record separator) 记录分离符 |
0001 1111 | 31 | 1F | US | (unit separator) 单元分隔符 |
0010 0000 | 32 | 20 | 空格 | |
0010 0001 | 33 | 21 | ! | |
0010 0010 | 34 | 22 | " | |
0010 0011 | 35 | 23 | # | |
0010 0100 | 36 | 24 | $ | |
0010 0101 | 37 | 25 | % | |
0010 0110 | 38 | 26 | & | |
0010 0111 | 39 | 27 | ' | |
0010 1000 | 40 | 28 | ( | |
0010 1001 | 41 | 29 | ) | |
0010 1010 | 42 | 2A | * | |
0010 1011 | 43 | 2B | + | |
0010 1100 | 44 | 2C | , | |
0010 1101 | 45 | 2D | - | |
0010 1110 | 46 | 2E | . | |
0010 1111 | 47 | 2F | / | |
0011 0000 | 48 | 30 | 0 | |
0011 0001 | 49 | 31 | 1 | |
0011 0010 | 50 | 32 | 2 | |
0011 0011 | 51 | 33 | 3 | |
0011 0100 | 52 | 34 | 4 | |
0011 0101 | 53 | 35 | 5 | |
0011 0110 | 54 | 36 | 6 | |
0011 0111 | 55 | 37 | 7 | |
0011 1000 | 56 | 38 | 8 | |
0011 1001 | 57 | 39 | 9 | |
0011 1010 | 58 | 3A | : | |
0011 1011 | 59 | 3B | ; | |
0011 1100 | 60 | 3C | < | |
0011 1101 | 61 | 3D | = | |
0011 1110 | 62 | 3E | > | |
0011 1111 | 63 | 3F | ? | |
0100 0000 | 64 | 40 | @ | |
0100 0001 | 65 | 41 | A | |
0100 0010 | 66 | 42 | B | |
0100 0011 | 67 | 43 | C | |
0100 0100 | 68 | 44 | D | |
0100 0101 | 69 | 45 | E | |
0100 0110 | 70 | 46 | F | |
0100 0111 | 71 | 47 | G | |
0100 1000 | 72 | 48 | H | |
0100 1001 | 73 | 49 | I | |
0100 1010 | 74 | 4A | J | |
0100 1011 | 75 | 4B | K | |
0100 1100 | 76 | 4C | L | |
0100 1101 | 77 | 4D | M | |
0100 1110 | 78 | 4E | N | |
0100 1111 | 79 | 4F | O | |
0101 0000 | 80 | 50 | P | |
0101 0001 | 81 | 51 | Q | |
0101 0010 | 82 | 52 | R | |
0101 0011 | 83 | 53 | S | |
0101 0100 | 84 | 54 | T | |
0101 0101 | 85 | 55 | U | |
0101 0110 | 86 | 56 | V | |
0101 0111 | 87 | 57 | W | |
0101 1000 | 88 | 58 | X | |
0101 1001 | 89 | 59 | Y | |
0101 1010 | 90 | 5A | Z | |
0101 1011 | 91 | 5B | [ | |
0101 1100 | 92 | 5C | / | |
0101 1101 | 93 | 5D | ] | |
0101 1110 | 94 | 5E | ^ | |
0101 1111 | 95 | 5F | _ | |
0110 0000 | 96 | 60 | ` | |
0110 0001 | 97 | 61 | a | |
0110 0010 | 98 | 62 | b | |
0110 0011 | 99 | 63 | c | |
0110 0100 | 100 | 64 | d | |
0110 0101 | 101 | 65 | e | |
0110 0110 | 102 | 66 | f | |
0110 0111 | 103 | 67 | g | |
0110 1000 | 104 | 68 | h | |
0110 1001 | 105 | 69 | i | |
0110 1010 | 106 | 6A | j | |
0110 1011 | 107 | 6B | k | |
0110 1100 | 108 | 6C | l | |
0110 1101 | 109 | 6D | m | |
0110 1110 | 110 | 6E | n | |
0110 1111 | 111 | 6F | o | |
0111 0000 | 112 | 70 | p | |
0111 0001 | 113 | 71 | q | |
0111 0010 | 114 | 72 | r | |
0111 0011 | 115 | 73 | s | |
0111 0100 | 116 | 74 | t | |
0111 0101 | 117 | 75 | u | |
0111 0110 | 118 | 76 | v | |
0111 0111 | 119 | 77 | w | |
0111 1000 | 120 | 78 | x | |
0111 1001 | 121 | 79 | y | |
0111 1010 | 122 | 7A | z | |
0111 1011 | 123 | 7B | { | |
0111 1100 | 124 | 7C | | | |
0111 1101 | 125 | 7D | } | |
0111 1110 | 126 | 7E | ~ | |
0111 1111 | 127 | 7F | DEL | (delete) 删除 |
form.Free - 释放Form占用的所有资源。Free后,Form指针不能再使用,除非对Form重新赋值。