问题标签 [turbo-pascal]

For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.

0 投票
1 回答
81 浏览

console-application - Windows 98 SE - 从 16 位控制台应用程序调用 OutputDebugString

我希望能够OutputDebugString从 Turbo Pascal 7.0 控制台模式程序中调用。主机 PC 运行的是 Windows98,据我所知支持OutputDebugString. 但是,我找不到任何声明入口点并且可与 TPC 或 BPC 编译的头文件。

SysInternals 实用程序 DebugView 可以显示来自 Win16 系统的调试消息,所以我相信它的结尾是排序的。根据 SysInternals 文档:

我搜索了 TP7 文档,该字符串dll没有出现在任何地方。任何人都可以建议如何打电话OutputDebugString,或者甚至可能吗?

0 投票
2 回答
1336 浏览

pascal - 将字符串更改为整数 - 帕斯卡

我不知道“xa”如何转换为帕斯卡中的 10。我只是使用:

并且value = 10,return = 0。我只是一个新手,任何人都可以解释一下吗?我知道这不会像 ASCII 那样只是一个字符。

我正在使用 Free Pascal :)

我在 Free Pascal 中进行了测试,当使用xa和. 所以,我认为它理解像“$”、“0”这样的特殊字符而不调用它。那正确吗?0xa$xa

0 投票
2 回答
132 浏览

pascal - 应为“END”,但找到“IF”。在 turbo pascal 代码中遇到了一些问题

0 投票
2 回答
281 浏览

pascal - 如何从txt文件中找到最大的数字?

我必须从 txt 文件中找出最大的数字。数字例如:

有人告诉我,它应该可以工作,但它没有,而且我不知道如何使用文件 bcs。

0 投票
0 回答
1181 浏览

rest - TimeOut 属性在 TRESTClient 上不起作用

我正在与 Delphi 10 Seattle 合作。以下示例我们开发了一个 REST 客户端,它与远程服务器通信以使用 Rest API。REST 客户端工作结束,直到我们尝试为请求对象设置自定义超时。

以下片段是我们的代码:

我们尝试将时间设置为与默认值不同的值,但请求总是在 30 秒后关闭连接(默认值)。
我们错过了什么吗?
有人能帮我吗?

谢谢!

0 投票
1 回答
230 浏览

pascal - 如何编写指数函数 (e^x)?

我希望能够将整数值传递给函数 - e^x 并返回结果。基于e^x的递归关系。有人可以帮我弄这个吗?

提前致谢。

0 投票
1 回答
195 浏览

pascal - Turbo Pascal 7 中的弹出窗口

在 Turbo Pascal 7 for DOS 中,您可以使用 Crt 单元来定义一个窗口。如果您在第一个窗口之上定义第二个窗口,例如弹出窗口,我看不出有办法摆脱第二个窗口,除非再次在顶部重新绘制第一个窗口。

有没有我忽略的窗口关闭技术?

我正在考虑在内存中保留一系列屏幕以使其正常工作,但是 TP IDE 会像我想做的那样弹出窗口,所以也许这很容易,我只是在错误的地方寻找?

0 投票
0 回答
48 浏览

pointers - 使用 dispose 并稍后将 NILL 分配给该指针的 Pascal 问题。仅当我在 z 中使用 a for x 时才会出现此问题

我有一个指向这个整数的 4 个指针的数组:

[1、2、3、4]

在主程序中,我调用过程freeMem(table, 2);意味着调用方法时的预期结果writeTable(table);应该是:

[无, 2, 3, 4]

但是得到的结果是:

[12800, 2, 3, 4]

基本上是我放置指针的随机值。

 

如果我修改程序freeMem(v, i)并且不使用for -- in -- do它以某种方式工作,我想知道为什么它不能以其他方式工作

0 投票
2 回答
85 浏览

if-statement - if 语句和 Pascal 中的最大值

看这段代码:

在此处输入图像描述

我认为如果 z>x 和 y>x,程序不会给出正确的最大值,但令我惊讶的是,它确实给出了正确的值。这是为什么?程序是否在没有我命令的情况下比较了 Y 和 Z 并给出了最大的值?

0 投票
2 回答
455 浏览

pascal - 那是什么错误的非法分配以及如何纠正它?

这应该是一个正确且众所周知的代码,用于将整数从下级排列到上级,但编译器仍然坚持说“非法分配给 for loop 'j' 变量”。

有什么问题?