delphi字符串分割和比大小

Posted 2023-03-18

str:='01,02,23,55,33,66,88,99,22';
大于33的数找出来...

使用Tstringlist的分隔符来切割字符串
var
str:string;
i:integer;
Slist:Tstringlist;
begin
str:='01,02,23,55,33,66,88,99,22';
Slist:=Tstringlist.Create;
slist.Delimiter:=','; //设置分隔符
slist.DelimitedText:=str; //设置待分割的字符串
for i:=0 to slist.Count-1 do //列举所有值
begin
if Strtoint(Slist[i])>33 then
showmessage('这个数字'+slist[i]+'满足要求');
end;
end; 参考技术A 1. 如果数据位固定（都是2位，且总长度一定），那就用Midstr函数找出来，然后和33比较。
2. 如果数据位长度不固定，只要有逗号分隔符，需要用正则表达式来识别，逐一匹配然后和33比较。
表达式： (\d+)