此文章是vip文章,如何查看?  

1,点击链接获取密钥 http://nicethemes.cn/product/view29882.html

2,在下方输入文章查看密钥即可立即查看当前vip文章


delphi XE对中文变态支持!

  • 时间:
  • 浏览:
  • 来源:互联网

无意中发现delphi XE 对的Unicode支持的变态。从版本几开始支持不知道。因为我是从D7直接跳到XE 7,现在用的是XE 10.2。

先看看下面的代码:

unit 中文变量;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  T主窗口 = class(TForm)
    测试: TButton;
    procedure 测试Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure 显示消息;
  end;

var
  主窗口: T主窗口;

implementation

{$R *.dfm}

procedure T主窗口.显示消息;
var
  消息:string;
begin
  消息:='这是一个测试';
  showmessage(消息);
end;

procedure T主窗口.测试Click(Sender: TObject);
begin
  显示消息;
end;

end.

//工程文件
program 中文;
uses
  Vcl.Forms,
  中文变量 in '中文变量.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

工程名:中文!单元名:中文!类名:中文!函数过程:中文!变量:中文!

不用怀疑,它肯定可以运行,我把所有的东东集成到一个图片,如下:
中文

我有一个大胆的想法,除了关键字(图片Code页面中蓝字),delphi XE 其他代码可以全部改为中文,比如:把 Winapi.Windows 改为 窗口程序接口 .窗口。不过这工程量,想想菊花都会一紧!

本文链接http://element-ui.cn/news/show-577250.aspx