以下是Delphi中300内能被2、3、5整除的数。
var
i:Integer;
begin
for i := 1 to 300 do
begin
if i mod 2 =0 then
if i mod 3 =0 then
if i mod 5 = 0 then
OutputDebugString(Pchar(inttostr(i))); //这个相当于易语言中的“输出调试文本”,转换前注意数据格式。
end;
var
begin
end;
在Delphi中,要查看调试输出结果,需要打开 View→Debug Windows→event Log窗口。或按 CTRL+ALT+V。