Question

DELPHI7中如何取得edit1前4位数字，在edit2显示电话所在地？

pos()是怎么用的？
连系电话前4位的地址的函数用什么语句好？if ,case...

Answer 1

编写“如何取得edit1前4位数字，在edit2显示电话所在地”的小应用，可以将之分解为两部分功能：

1、取得edit1前4位数字

delphi 语言提供了功能丰富的字符串函数，取得前 4 个字符，可以使用 LeftStr 函数，以下是函数说明：

进一步考虑，还需要判断一下，以保证前 4 个字符必须是数字，则可以考虑使用 TryStrToInt 函数测试一下：

2、在edit2显示电话所在地

此项应用，首先需要建立一个“电话所在地”与上一步中“4位数字”的数据库（或简单的对照表），可以考虑用 access 数据库（或其他）以及 文本文件 来建立资料库。

当建立好资料库后，就可以用数据库搜索（如用 locate 方法或是 Select 语句等等）上一步的“4位数字”，然后将对应的值显示在 Edit2中。 

Answer 2

copy(edit1,0,4) ;
如果显示地址，那么肯定有地址的数据库和电话的前4位对应才是。
你可以用取到的4位数字 到地址库中 搜索出即可。

如果前4位的编码很固定或者很少的组合，那么可以用case 语句：
var aa：string;
begin
aa := copy(edit1.text,0,4) ;
case aa of
1111:
begin
... ...
end ;
2222:
begin
... ...
end ;
... ...
end ; //case 's end .
end ;

Answer 3

pos(edit1.text,0 ,4);
-----------------
随手写错了,应该是copy, 感谢大家的纠正.

Answer 4

不是pos,是用copy
str := copy(edit1.text, 1, 4);

Answer 5

POS是查找一个字符串在另一个字符串中第一次出现的位置。
如POS('.','12.34')返回值为3

取一个字符串前4位用COPY函数
如COPY(EDIT1.TEXT,1,4)返回EDIT1文本编辑框中的前4位。