Question

delphi字符串截断问题，比如给你一个字符串‘12345@abcde’,点击按钮出现数字、特殊字符、字母的个数

Answer 1

这个不是什么“字符串截断”问题呀，而是“字符统计”问题，按照你的意思，提供如下函数吧。
type
TMyCharType = ( ctDigit, ctAlpha, ctOther );
function GetCharCountByType( S : string; CharType : TMyCharType ) : Integer;
var
i : Integer;
begin
Result := 0;
for i := 1 to Length( S ) do
case S[i] of
'0'..'9': // 数字
begin
if ctDigit = CharType then
Inc( Result );
end;
'A'..'Z', 'a'..'z': // 字母
begin
if ctAlpha = CharType then
Inc( Result );
end;
else // 其它字符
if ctOther = CharType then
Inc( Result );
end;
end;
以上是调用一次，返回一种字符数目的函数，调用例子如下：
ShowMessage( IntToStr( GetCharCountByType( '12345@abcde', ctDigit ) ) ); // 显示数字数目
ShowMessage( IntToStr( GetCharCountByType( '12345@abcde', ctAlpha ) ) ); // 显示字母数目
ShowMessage( IntToStr( GetCharCountByType( '12345@abcde', ctOther ) ) ); // 显示其它字符数目
也可以写一个过程，一下子返回三种字符的数目，如下：
procedure GetCharCount( S : string; var nCount_Digit, nCount_Alpha, nCount_Other : Integer );
var
i : Integer;
begin
nCount_Digit := 0;
nCount_Alpha := 0;
nCount_Other := 0;
for i := 1 to Length( S ) do
case S[i] of
'0'..'9': Inc( nCount_Digit );
'A'..'Z', 'a'..'z': Inc( nCount_Alpha );
else Inc( nCount_Other );
end;
end;
如此，调用并显示（大概就是点击按钮的处理逻辑）的方法是：
var
n1, n2, n3 : Integer;
begin
GetCharCount( '12345@abcde', n1, n2, n3 );
ShowMessage( Format( '数字：%d 字母：%d 其它：%d', [ n1, n2, n3 ] ) );
end;

Answer 2

可以采用下面的循环遍历方法：

1、把要比对的内容做成2个数组；
（1）0-9；
（2）a-z，A-Z；
2、初始化化3个数字，字符，特殊字符计数器；
3、从第一个字符开始与以上数组内容循环比对；
如果是（1）里面的 数字计数器+1
如果是（2）里面的 字符计数器+1
否则是 特殊字符计数器+1；