var
Form5: TForm5;
{$DEFINE WANYI}
implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
{$IFDEF WanYi}
ShowMessage(‘标识符 WanYi 已定义’);
{$ELSE}
ShowMessage(‘标识符 WanYi 未定义’);
{$ENDIF}
end;
var
Form5: TForm5;
{$DEFINE WANYI}
implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
{$IFDEF WanYi}
ShowMessage(‘标识符 WanYi 已定义’);
{$ELSE}
ShowMessage(‘标识符 WanYi 未定义’);
{$ENDIF}
end;
支付宝扫一扫
微信扫一扫
.png)
.png)
.png)
.png)
.png)
.png)
.png)