delphi 简单的删除字符串尾部数字的代码

最新推荐文章于 2023-04-23 17:27:33 发布

weixin_30575309

最新推荐文章于 2023-04-23 17:27:33 发布

阅读量506

点赞数

CC 4.0 BY-SA版权

文章标签：数据库

原文链接：http://www.cnblogs.com/MySunnys/p/6008666.html

本文提供了两种使用Delphi实现的删除字符串尾部数字的方法。第一种方法通过循环遍历字符串并逐个删除数字字符来实现；第二种方法尝试从字符串中提取中文字符。

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

delphi 简单的删除字符串尾部数字的代码

方式一：

function FilterShowName(const sName: String): String;
var
  I: Integer;
begin
  Result := sName;
  if Result <> '' then
  begin
    for I := Length(Result) downto 1 do
    begin
      if Result[I] in ['0'..'9', '-'] then
        Delete(Result, I, 1)
      else
        Break;
    end;
  end;
end;

方式二（未测试）：

function GetChinese(S :string):string;
var
  i,Temp :integer;
begin
  Result := '';
  i := 1;
  while i<Length(S) do
  begin
    if ord(S[i])<$A1 then
      i := i + 1
    else begin
      Temp := ord(S[i]);
      Temp := Temp shl 8;
      Temp := Temp + ord(S[i]);
      if Temp>$B0A0 then
        Result := Result + S[i]+S[i+1];
      i := i + 2;
    end;
  end;
end;