delphi 字符串中提取字母数字
function Ayikla(Sayi: string): string;
var
I: integer;
S: string;
begin
S := Trim(Sayi);
Sayi := '';
for I := 1 to Length(S) do
begin
case S[I] of
'a'..'z',
'A'..'Z',
'0'..'9',
'Ç', 'Ş', 'Ğ', 'ü', 'Ö', 'İ', 'ç', 'ş', 'ğ', 'ü', 'ö', 'ı':
begin
Sayi := Sayi + S[I];
end;
end;
end;
Result := Sayi;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Lines.Add(Ayikla(memo1.Text));
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.059329032897949 seconds