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;