<<<<<<<<<<及其简单<<<<送分: Delphi中Char字符如何进行大、小写转换?>>>>>>>>>>>

Question

    var c:Char;    begin
       c='a';    end.
   有何函数将c的内容变为'A'?

Answer 1

UpperCase 返回转换大写字符串拷贝
Function UpperCase(const S : string) : stringLowerCase 转换成小写不过是对字符串的

Answer 2

var
  Letter: Char;
begin
  Letter := 'a';
  Letter := Char(ord(Letter)-32);
  showmessage(letter);
end;

Answer 3

function UpperCase(const S: string): string;
var
  Ch: Char;
  L: Integer;
  Source, Dest: PChar;
begin
  L := Length(S);
  SetLength(Result, L);
  Source := Pointer(S);
  Dest := Pointer(Result);
  while L <> 0 do
  begin
    Ch := Source^;
    if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32);//也是这么算得
    Dest^ := Ch;
    Inc(Source);
    Inc(Dest);
    Dec(L);
  end;
end;

Answer 4

c语言中有 toupper函数，delphi中没有对应的函数吗？
如果自定义，我当然会。

Answer 5

function UpCase(Ch: Char): Char;

Answer 6

if AChar in ['a'..'z'] then AChar:= Chr(Ord(AChar)+32);

Answer 7

应为-
if AChar in ['a'..'z'] then AChar:= Chr(Ord(AChar)-32);楼上各位，函数是否应为UpperCase与LowerCase 而非upcase与lowcase?

Answer 8

Dec(c, Ord('a') - Ord('A'));