delphi中如何比较字符串的大小里面内容都是数字

Posted 2023-03-18

参考技术A function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字
var
i:integer;
begin
result:=true; //设置返回值为 是（真）
Vaule:=trim(Vaule); //去空格
for i:=1 to length(Vaule) do //准备循环
begin
if not Vaule[i] in ['0'..'9'] then //如果Vaule的第i个字不是0-9中的任一个
begin
result:=false; //返回值 不是（假）
exit; //退出函数
end;
end;
end;

用这个函数判断即可本回答被提问者采纳 参考技术B 如果都是数字的话，直接转成浮点型或者整形，然后直接比较即可 参考技术C 直接比较
lstrcmp(s1, s2)
　当s1<s2时，返回值<0
　　当s1=s2时，返回值=0
　　当s1>s2时，返回值>0

需要windows.pas 参考技术D function comparestr(s1, s2:string): boolean;
var
a, b: integer;
begin
a := strtoint(s1);
b := strtoint(s2);
result := (a > b);
end; 第5个回答  2011-06-29 把字符串里的数字分开存在strings 再进行操作