delphi 给非字母字符串标记

//delphi 给非字母字符串标记

function DisplayStr (aStr : string) : string;

var

  i : integer;

begin

  Result := '';

  for i := 1 to length (aStr) do

    if CharInSet (astr[i], ['a'..'z']) then

      Result := Result + aStr[i]

    else

      Result := Result + '<' + aStr[i] + '>';

end;

举一反三

//delphi 给非数字字符串标记

function DisplayStr (aStr : string) : string;

var

  i : integer;

begin

  Result := '';

  for i := 1 to length (aStr) do

    if CharInSet (astr[i], ['0'..'9']) then

      Result := Result + aStr[i]

    else

      Result := Result + '<' + aStr[i] + '>';

end;