有没有一个DELPHI的函数可以截掉字串末尾的数字？

Question

最好是DELPHI的标准函数

Answer 1

好象没有，得自己写一个。
copy(str1, 1, length(str1) - 1)

Answer 2

就copy就可以了，可以从左到右的取字符。

Answer 3

自带的TrimRight！Trims trailing spaces and control characters from a string.Unit SysUtils

Answer 4

Delphi有没有可以取String中子串的函数？如Str :='Panel0102' 想要得到的子串是subStr='0102'

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
str1,str2:string;
i:integer;
begin
  str1:='abcde1321312';
  for i:=1 to length(str1) do
  begin
    if copy(str1,i,1)>'A' then
      str2:=copy(str1,1,i)
    else
      break;
  end;
showmessage(str2);
end;
刚刚给你调试完，完全能行