DELPHI中怎么调用showmessage这个函数来弹出一个对话框

Posted 2023-04-22

delphi 的 ShowMessage 函数是很常用的一个功能函数，使用也很简单：

ShowMessage(\'需要发送的信息。\');

上面的代码，将弹出以下对话框（根据 windows 系统的不同，样式稍有区别）：

这种对话框，很简洁。

如果需要复杂一些的对话框，可以使用 MessageBox、MessageDlg 函数，如下图：

参考技术A uses Dialogs;
begin
ShowMessage('Hello,world!');
end. 参考技术B 你要先uses Dialogs; 参考技术C 在uses后面要加 Dialogs在你想要的输出的时候加入 showmessage(' '); 空白的地方时你想要加入的内容 参考技术D 看一下是不是你要的。。

delphi算法

/  求余

mod 取模

 

var
a1,a2,a3 : Integer;
b1,b2,b3 : Integer;
c1,c2 : Integer;
begin
a1 := 987;
//ShowMessage(IntToStr(a1/10));
ShowMessage(IntToStr(a1 mod 10));   结果是7
ShowMessage(IntToStr(a1 div 10));     结果是98

end;