uses Character;
{Character.ToUpper} procedure TForm1.Button1Click(Sender: TObject); var c: Char; str: string; begin c := ToUpper('a'); str := ToUpper('Delphi'); ShowMessageFmt('%s, %s', [c, str]); {A, DELPHI} end; {Character.ToLower} procedure TForm1.Button2Click(Sender: TObject); var c: Char; str: string; begin c := ToLower('A'); str := ToLower('Delphi'); ShowMessageFmt('%s, %s', [c, str]); {a, delphi} end;
中年大叔学Delphi