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

[qft516]

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

[hzwmjl]

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

[hhzqf1980]

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

[xixuemao]

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;

[chenylin]

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;

[qft516]

谢谢楼上两位。

[leonkim]

前边的都不太好
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;

[leonkim]

我的方法是效率最高而且最准确的，可惜楼主看不到了。

[qft516]

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