求一个函数，在字符串中提取字母。

Question

有没有这样的函数？
如：ABC001,A002.
   我只取前面的字母ABC，A

Answer 1

欢迎加入Borland DELPHI程序员联盟，参与群里技术讨论！群号1805366

Answer 2

你可以自己写一个函数，根据字母的ASCII范围

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  s,ss: string;
  i: integer;
begin
  ss:= '';
  s:= 'AB2az3C';
  for i:=0 to Length(s) do
  begin
    if ((Ord(s[i]) >= 65) And (Ord(s[i])<=90)) or ((Ord(s[i]) >= 97) And (Ord(s[i])<=122)) then
    ss:= ss+s[i];
  end;
  showmessage(ss);
end;

Answer 4

function TForm1.GetAlpha(Astr: string): string;
var
  i:integer;
begin
  Result:='';
  for i:=1 to Length(Astr) do
    if Astr[i] in ['a'..'z','A'..'Z'] then Result:=Result+Astr[i];
end;

Answer 5

前边的都不太好
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  s: string;
  i: integer;
begin
  s:= 'AB2az3C';
  i := 1;
  while i <= Length(s) do
  begin
    if not (((Ord(s[i]) >= 65) And (Ord(s[i])<=90)) or ((Ord(s[i]) >= 97) And (Ord(s[i])<=122))) then
    begin
      dec(i);
      break;
    end;
    inc(i);
  end;
  showmessage(copy(s,1,i));
end;

Answer 6

To: cuilj(一云忆水) 
   真不好意思，结了贴才看见你的回答。你的答案很彻底。我另开一贴给你