有下面两个语句,语句1无法编译通过,语句2正常运行:
-------------------------------------------------------------
1.
var sTemp : String;
begin
sTemp := 'xxxxxx';
Messagebox(self.handle,sTemp,'',MB_OK+MB_ICONINFORMATION);
end;
------------------------------------------------------------
2.
var sTemp : String;
begin
sTemp := 'xxxxxx';
Showmessage(sTemp);
end;
------------------------------------------------------------
-------------------------------------------------------------
1.
var sTemp : String;
begin
sTemp := 'xxxxxx';
Messagebox(self.handle,sTemp,'',MB_OK+MB_ICONINFORMATION);
end;
------------------------------------------------------------
2.
var sTemp : String;
begin
sTemp := 'xxxxxx';
Showmessage(sTemp);
end;
------------------------------------------------------------
var sTemp : String;
begin
sTemp := 'xxxxxx';
application.Messagebox(self.handle,sTemp,'',MB_OK+MB_ICONINFORMATION);
end;
Messagebox(self.handle,PChar(sTemp),'title',MB_OK+MB_ICONINFORMATION);
var sTemp : String;
begin
sTemp := 'xxxxxx';
Application.Messagebox(sTemp,'',MB_OK+MB_ICONINFORMATION);
end;
SHOWMESSAGE(‘A’)同样的事件384k