delphi 字符串是否包含

是否包含:

if pos('a','abcdef')>0 then

begin

//包含

end

esle

begin

//不包含

end;

//--------------------------------------------------------------------------------

var

str: string;

b: Boolean;

begin

str := 'Delphi XE4';

b := str.Contains('XE'); // True

b := str.Contains('xe'); // False

b := str.StartsWith('delphi'); // False

b := str.StartsWith('delphi', True); // True

b := str.EndsWith('XE4'); // True

b := str.EndsText('xe4', str); // True

end;

推荐分享