Question

delphi 比较字符串匹配函数

有没有比较字符串匹配的函数啊 就是比较两个字符串是否相等

Answer 1

有啊CompareStr就是比较字符串的函数我举个例子吧 procedure TForm2.FormCreate(Sender: TObject);
const
Str: string = '飘逝的海天 QQ272399954';
Str1: string = '飘逝的海天QQ272399954';
Str2: string = '飘逝的海天 QQ272399954';
begin
if CompareStr(Str, Str1) = 0 then
ShowMessage('str1和str相同')
else
ShowMessage('str1和str不相同');
if CompareStr(Str, Str2) = 0 then
ShowMessage('str2和str相同')
else
ShowMessage('str2和str不相同');end;

Answer 2

可通过函数POS及COPY配合使用实现该功能。
函数说明：
POS：获取特定字符所处字符串的位置，返回数据类型为整型。POS共有两个参数：POS(特定字符或字符串，源字符串)。
COPY：字符串截取，返回数据类型为字符型。
COPY共有三个参数：COPY（源字符串，起始截取位(整型，可为变量)，截取位数(整型，可为变量)）。