Delphi 字符串中是否包含子字符串

admin

1. var
   
2.   MainStr, SubStr: string;
   
3.   PosResult: Integer;
   
4. begin
   
5.   MainStr := 'Hello, world!';
   
6.   SubStr := 'world';
   
7.   
   
8.   PosResult := Pos(SubStr, MainStr);
   
9.   
   
10.   if PosResult > 0 then
    
11.     ShowMessage('字符串包含子字符串')
    
12.   else
    
13.     ShowMessage('字符串不包含子字符串');
    
14. end;
    

复制代码