首页 / 软件开发 / Delphi / Delphi调用WinAPI 字符及字符串函数（3）

Delphi调用WinAPI 字符及字符串函数（3）2012-04-07 cnblogs 万一CharUpper - 字符或字符串转大写

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class（TForm）
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click（Sender: TObject）;
procedure Button2Click（Sender: TObject）;
procedure Button3Click（Sender: TObject）;
procedure Button4Click（Sender: TObject）;
procedure Button5Click（Sender: TObject）;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

{对字符}

procedure TForm1.Button1Click（Sender: TObject）;
var
C: Char;
begin
C := "a";
C := Char（CharUpper（PChar（C）））;
ShowMessage（C）; {A}
end;

{对字符常量}

procedure TForm1.Button2Click（Sender: TObject）;
var
C: Char;
begin
C := Char（CharUpper（PChar（"a"）））;
ShowMessage（C）; {A}
end;