（Delphi中处理字符串）截取中文字符和英文字符，去除所有数字

最新推荐文章于 2023-02-08 10:49:47 发布

原创最新推荐文章于 2023-02-08 10:49:47 发布 · 3.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #截取中文 #去掉数字 #截取英文 #copy

delphi 专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的简单函数getTheUnit，该函数可以从带有数字和单位的字符串中提取出单位部分，例如从200kg中提取出kg。通过遍历输入字符串并检查每个字符是否为数字以外的字符来实现，对于双字节字符也进行了正确处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

处理对象："200个",截取结果"个"

处理对象："200kg",截取结果"kg"

function TFmxsdd_dzbh.getTheUnit(str:string):string;
var
  n,i :integer;
  ch: byte;
  s:string;
begin
  s:='';
  n:=length(str);
  i:=1;
  while i<=n   do
  begin
    if not (str[i] in ['0'..'9']) then
    begin
         ch := Byte(str[i]);
         if Windows.IsDBCSLeadByte(ch) then
         begin
             s:= s+ Copy(str, i, 2);
             i:=i+1;
         end
         else
             s:= s + str[i];
    end;
    i:=i+1;
  end;
  Result:=s;
end;