T
tzlaoliu
Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi2007重大发现(可以支持中文过程或中文变量)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure 中文过程测试;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
中文过程测试;
end;
procedure TForm1.中文过程测试;
var 中文变量测试:integer;
begin
中文变量测试:=10;
edit1.Text:='测试结果是:'+inttostr(中文变量测试+100)+'正确么?';
end;
end.
晕倒这样也能运行
呵呵
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure 中文过程测试;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
中文过程测试;
end;
procedure TForm1.中文过程测试;
var 中文变量测试:integer;
begin
中文变量测试:=10;
edit1.Text:='测试结果是:'+inttostr(中文变量测试+100)+'正确么?';
end;
end.
晕倒这样也能运行
呵呵
