问题标签 [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 投票
3 回答
733 浏览

php - 所有阵列可能性

我有帕斯卡代码(编程语言实际上没有任何意义):

框 [1] := 14;
框[2] := 2;
框[3] := 4;
盒子[4] := 5;
框[5] := 6;
盒子[6] := 8;

我想得到所有的可能性。例如,box[1] = box[6],然后 box[6] = box[1]。是的,我可以手写,但我想我可以通过循环使它更聪明。有什么建议么?

0 投票
2 回答
202 浏览

delphi - 对象在主程序中崩溃,但在移动到单元时不会

我编写了一个自定义 SDL GUI 工具包(源代码在http://sourceforge.net/projects/lkgui/files/上)并且我遇到了继承对象的问题。

当对象在主程序中时,不会调用构造函数,因此程序没有正确初始化对象,并且在某些命令后崩溃(具体来说,TStartGameButton 继承自 GUI_Canvas 继承自 GUI_Element 并且任何未在 GUI_Element 中定义的东西都会崩溃带有 EAccessViolation 的程序)。当对象被放置在一个单元内时,这个问题就消失了。

我知道我可以把它留在单元中,但这会导致一些丑陋的代码,希望可以避免。

有谁知道为什么会发生这种情况以及如何避免它?

0 投票
4 回答
13120 浏览

pascal - 在 Pascal 中读取整数

我正在使用帕斯卡。处理读取文件时遇到问题。

我有一个带有整数的文件。我读取文件的帕斯卡是:

如果我的文件内容是1 2 3好的,但如果是1 2 31 2 3(enter here)(末尾有空格或空行),那么我的 arr 将是1 2 3 0.

0 投票
1 回答
86 浏览

string - 对数字字符串求和

我的编程任务有问题,我循环遍历一个字符串并对字符的整数值求和。如以下代码所述。现在我将一个字符串传递给这个子例程。例如给出

预期输出为

结果输出是

我在 Linux 环境中使用 fpc pascal 编译器。任何关于为什么会发生这种情况的见解将不胜感激

0 投票
1 回答
5037 浏览

inno-setup - InnoSetup & Pascal - 即使在成功编译后运行时也会出现类型不匹配错误

当我编译下面的代码时,它没有错误地完成,但是当我尝试运行安装文件时,我得到一个类型不匹配的错误。谁能告诉我可能是什么原因造成的?(确切的错误消息是“运行时错误(在 1:66):类型不匹配。”)

0 投票
4 回答
1289 浏览

delphi - Getting the number of rows and columns actually populated with data of a N x M Array

I am writing some matrix routines in Delphi and this problem came up. I have defined a real matrix thus:-

RealArrayNPbyNP = Array[1..200,1..200] of Extended;

I have populated this array with a 5 x 6 matrix.

How do I query the array to get the number of rows (which in this case will be 5) and the number of cols (which in this case will be 6) in delphi code.

0 投票
2 回答
2491 浏览

delphi - 对字符串列表进行排序:仅移动或交换项目

在 Delphi / Pascal 中,我想按字母顺序对 TStringList 进行排序。但是为了这个目的,我只能使用以下两种方法:

移动:将字符串从一个索引位置移动到另一个索引位置,并根据需要移动其他字符串。

交换:交换列表中的两个字符串,由它们的索引位置标识。

我怎么能这样做?我的想法是用一个循环遍历所有项目,然后是这样的:

  1. lastFirstLetter := Copy(CurrentItem, 1, 1)
  2. 转到下一项
  3. currentFirstLetter := Copy(CurrentItem, 1, 1)
  4. 如果 ord(currentFirstLetter) < ord(lastFirstLetter) then exchange(lastItem, currentItem)

使用这两种方法对 StringList 进行排序的最快方法是什么?顺便说一下,我不能使用 sort 方法和 sorted 属性。

0 投票
4 回答
3774 浏览

delphi - Delphi中音乐播放器的播放列表/多个数据项列表

我想在 Delphi / Pascal 中有一个我自己的音乐播放器的播放列表。

我认为拥有一个带有 MP3 文件路径的 TStringList 以及 - 另外 - 一个带有歌曲名称的 TListBox 将是最好的解决方案。两个列表中的匹配字符串必须位于相同的位置。因此,如果用户在 TListBox 中选择第 5 项,我可以在 TStringList 中的位置 5 处获取路径。

这工作正常。

但现在我需要一个包含两列的播放列表:“艺术家”和“歌曲名称”。您应该能够按艺术家(升序和降序)以及歌曲标题(升序和降序)对播放列表进行排序 - 当然是按字母顺序。

我怎么能这样做?有两个 TStringList 对象 - 一个按艺术家排序,一个按歌曲名称排序?

0 投票
19 回答
20723 浏览

c++ - C++ 是否有像 Pascal 一样的“with”关键字?

withPascal 中的关键字可用于快速访问记录的字段。有人知道C++是否有类似的东西吗?

例如:我有一个包含许多字段的指针,我不想这样输入:

我真正想要的是 C++ 中这样的东西:

0 投票
2 回答
3087 浏览

delphi - 为淘汰赛创建二叉树

我正在尝试创建用于淘汰赛的二叉树。该树由具有左右指针的 TNode 组成。

这是我想出的代码(如下);但是,它遇到了该CreateTree部分中的指针的困难。

一旦这创建了一个足够大的空树,我需要将 Memo1.List 上的名称添加到树的底部,以便将它们配对以进行匹配。

我该怎么做?