注意：pos函数在查找时是要区分字符大小的。如果要实现不区分大小，那么需要使用uppercase或lowercase函数将两个参数的字符(串)转换为“大写”或“小写”再进行查找。
另外还有一个查找字符(串)的函数----ansipos，该函数的使用方法与pos函数完全一样。当你查找的是汉字时，最好使用ansipos函数。
12.rightstr(所在单元：strutils)
功能说明：返回字符串右边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串，第二个参数为指定个数。
参考实例：
var
s, a: string;
begin
s := 'msn messenger';
a := rightstr(s, 3); // 从最右边开始，获取右边的三个字符。因此a变量则等于ger。
end;
13.setlength
功能说明：设置字符串或动态数组长度。该函数有两个参数。第一个参数为要设置的字符串变量或动态数组变量，第二个参数为指定的长度，其取值范围在0到255之间。
参考实例：
var
s: string;
arrtext: array of char; // 定义一个动态数组
begin
setlength(s, 10); // 当设置后，s变量只能赋值长度为10的字符串。
setlength(arrtext, 10); // 只有使用setlength为动态数组分配内存空间后才能使用动态数组。这句代码的作用相当于arrtext: array[0..9] of char
end;
14.strpcopy
功能说明：将字符串复制到字符数组中。该函数有两个参数。第一个参数为“目标数组”，第二个参数为“字符串”。
参考实例：
var
arrchar: array[0..255] of char; // 这里声明了长度为256的char型数组
begin
strpcopy(arrchar, 'come on, baby!');
end;
15.trim
功能说明：删除字符串左右两边的空格(无论左右两边有多少个空格均被全部删除)。
参考实例：
var
s: string;
begin
s := ' delphi 7.0 ';
s := trim(s);
end;
16.trimleft
功能说明：删除字符串左边的空格(无论左边有多少个空格均被全部删除)。
参考实例：
s := trimleft(' delphi');
17.trimright
功能说明：删除字符串左边的空格(无论左边有多少个空格均被全部删除)。
参考实例：
s := trimright('delphi ');
18.uppercase
功能说明：将字符(串)中的英文字符转换为大写。
参考实例：
var
s, a: string;
begin
s := 'abc';
a := uppercase(s); // 经过uppercase函数转换后，a则等于abc。
end;
三、文件、磁盘操作函数
软件大多都要对文件、磁盘进行操作。熟悉掌握这些函数可以帮助你轻松实现创建、删除、保存文件等功能。
1.append
功能说明：追加内容到文件中。文件必须要存在。
参考实例：
var
s: string;
f: textfile;
begin
s := 'this is a book.';
assignfile(f, 'c:\myfile.txt'); // 将c:\myfile.txt文件与f变量建立连接，后面可以使用f变量对文件进行操作。
append(f); // 以追加的方式打开文件
writeln(f, s); // 将s变量中的内容追加到文本尾后。
closefile(f); // 关闭文件
end;
2.assignfile
功能说明：与指定的文件建立连接。
参考实例：
var
f: textfile; // 声明文本文件类型变量
begin
assignfile(f, 'c:\myfile.txt'); // 将c:\myfile.txt文件与f变量建立连接，后面可以使用f变量对文件进行操作。
end;
3.chdir
功能说明：改变当前目录(文件夹)。
参考实例：
var
sdir: string;
begin
sdir := 'c:\windows';
chdir(sdir); // 此时，系统的当前目录则为c:\windows目录。
end;
4.closefile
功能说明：关闭文件。当对文件的操作完成后，应该使用closefile函数关闭打开的文件。
参考实例：
var
s: string;
alltext: string;
f: textfile;
begin
assignfile(f, 'c:\myfile.txt'); // 将c:\myfile.txt文件与f变量建立连接，后面可以使用f变量对文件进行操作。
reset(f); // 打开文件
while not eof(f) do begin // 使用while循环，一直判断是否到了文件未尾
readln(f, s); // 读取一行文本
alltext := alltext + s;
end;
closefile(f); // 关闭文件
end;
5.deletefile
功能说明：删除指定的文件。该函数只有一个参数。此参数为欲删除文件的完整路径。如果删除成功，则返回true。若删除失败、或文件不存在则返回false。
参考实例：
var
isok: boolean; // 用于保存删除状态
begin
isok := deletefile('c:\my documents\index.html'); // 函数执着后，将结果返回给isok变量。如果isok变量为true，则表示文件删除成功。
if isok then showmessage('文件删除成功！')
else showmessage('文件删除失败！');
end;
6.directoryexists
功能说明：检测指定的文件夹否存在。如果存在则返回true，反之则为false。
参考实例：
var
isexists: boolean;
begin
isexists := directoryexists ('c:\windows');
if isexists then showmessage('windows文件夹存在！')
else showmessage('windows文件夹不存在！');
end;
7.diskfree
功能说明：获取指定磁盘的剩余空间。该函数只有一个参数。该参数用于指定要获取剩余空间的磁盘号。当参数为0时，表示获取当前磁盘的剩余空间，1为a盘，2为b盘，以此类推。如果返回值为-1，表示指定的磁盘无效。
参考实例：
var
freesize: int64;
begin
freesize := diskfree(3); // 获取c盘中的剩余空间。返回的值是以“字节”为单位的。
end;
8.disksize
功能说明：获取指定磁盘的空间。该函数只有一个参数。该参数用于指定要获取磁盘空间的磁盘号。当参数为0时，表示获取当前磁盘的空间，1为a盘，2为b盘，以此类推。如果返回值为-1，表示指定的磁盘无效。
参考实例：
var
disksize: int64;
begin
disksize:= disksize(3); // 获取c盘的空间。返回的值是以“字节”为单位的。
end;
9.eof
功能说明：判断文件指针是否移动到了文件未尾。当eof函数返回值为true时，则不可以使用readln函数进行读取文件了。
参考实例：
var
s: string;
alltext: string;
f: textfile;
begin
assignfile(f, 'c:\myfile.txt'); // 将c:\myfile.txt文件与f变量建立连接，后面可以使用f变量对文件进行操作。
reset(f); // 打开文件
while not eof(f) do begin // 使用while循环，一直判断是否到了文件未尾
readln(f, s); // 读取一行文本
alltext := alltext + s;
end;
end;
10.erase
功能说明：删除文件。
参考实例：
var
f: file;
begin
