一道小题、需要速度、谢谢（pascal)

Question

就是变大写？
ftUpperCase(Str)顺便送你一个小写是：LowerCase

Answer 1

现在加上方式：a变成D、b变成E……x变成A、y变成B、z变成C
懂得?谢谢大家
我用的是TP`~HELP中没有UPPERCASE...
能解决吗？

Answer 2

Returns a copy of a string in uppercase.UnitSysUtilsCategorystring handling routinesDelphi syntax:function UpperCase(const S: string): string;C++ syntax:extern PACKAGE AnsiString __fastcall UpperCase(const AnsiString S);DescriptionUpperCase returns a copy of the string S, with the same text but with all 7-bit ASCII characters between 'a' and 'z' converted to uppercase. To convert 8-bit international characters, use AnsiUpperCase instead.

Answer 3

function Convert(AChar: Char): Char;
var
  i: Integer;
begin
  i := ord(AChar);
  if (i <= 122) and (i >= 97) then i := i - 32;
  i := i + 3;
  if i > 90 then i := i - 26;
  result := Chr(i);
end;
自己可以加入对非法字符的判断 65 <= i <= 90 and 97<=i<=122才是正确的范围

Answer 4

哈哈，人气很旺阿：）
我来灌一下,up,不，应该是upcase
:)

Answer 5

function Upr(A:Char):Char
begin
  Return(A>=65&&A<=97?A:A-32)
end;

Answer 6

function UpCase(Ch: Char): Char

Answer 7

X:=3;   // 偏移量(从0开始，只能是正数)
Y:=(122-X)-65; // 这样比较好理解，计算高位字符->低位字符转换值
len:=length(Str)-1;
for i:=0 to len do begin
  Asc := ord(Str[i]);
  if Asc>=97 then
    if Asc<=122-X then
      Str[i] := Chr(Asc-32+X)
    else if Asc<=122 then
      Str[i] := Chr(Asc-Y);
end;
我没测试过。

Answer 8

Upcase
一个字符一个字符变换。