Free Pascal是一种多方言,多平台的Object Pascal编译器。最初开始取代退役的Turbo Pascal编译器,它现在尝试遵循仍由Embarcadero Technologies开发的Delphi方言。它具有Delphi,Turbo Pascal和Mac Pascal的编译模式。它也有两种模式,它有自己的超集方言。一个有例外,类和接口,一个没有。
考虑这个接口及其实现。单位utest; interface {$ MODE OBJFPC} type IIntfA = interface procedure writeA();结束; IIntfB =接口(IIntfA)......
程序Project1;用数学; var num1:integer;功率:整数;回答:整数;开始writeln('这个程序将接受两个输入值并将第一个数字提升到...的力量
程序Project1; var num1:integer; num2:整数;回答:整数;开始writeln('这个程序将接受两个输入值并将第一个数字提升到第二个值的幂'); ...
我必须从txt文件中找出最大的数字。数字是例如:9 8 7 6 5有人告诉我,它应该有效,但它没有,我不知道如何使用文件bcs。程序......
Delphi和/或FreePascal代码最常见的docblock
我对PHP dockblocks非常熟悉,因为它是我过去15年以来的工作。 / ** *说明* * @tag bla bla * @tag more bla bla * /我想要了解的是,如果有...
在进行“实时”跟踪时,标题控件偶尔会留下伪影,如下图所示:前两个图像来自附加程序。第三张图片(没有...
我有以下代码,结果是42,但为什么呢?答案必须是13,因为7 + 6 = 13。程序HelloWorld;函数F(a:整数):整数;如果(a = 1)或(a = 2)则开始,然后F:= 2 ......
创建一个线程(TThreadStarter),它将创建许多工作线程,并且必须等待它们完成才能继续。它必须在Linux和Windows下运行。该方法 ...
我的任务要求我创建两个例程,其中一个从终端读取数据,另一个向终端输出数据,另外两个例程利用数组循环...
我正在使用Lazarus 0.9.30并在IDE和示例应用程序中对菜单项进行了修剪:alt text http://www.freeimagehosting.net/uploads/94832ba880.png我可以在IDE中使用它,。 ..
我是Lazarus的新手,但我已经和Delphi合作了很长时间。在Delphi中可以添加断点,并且在运行时使用debug(F9),程序在该点停止并且我可以运行...
在做了一些研究并查看ProcessHacker的源代码之后,似乎获取conhost.exe的进程id的方法是使用NtQuerySystemInformation。我写了下面的小...
以下代码:program Default_Issue; function SomeFunction(var myVar:integer; defaulted:boolean = true):integer;开始writeln('Inside SomeFunction'); SomeFunction:= 0结束; ...
我试图在CommandLine参数中使用像“ö,a,ü”这样的德语字符和TProcess。更具体地说,我正在尝试打开一个显示文件夹的资源管理器窗口...
如果未选择特定的TComboBox项,如何从特定的TComboBox项中获取文本。如果我有一个包含三个项目列表的组合框,并且Item1是当前选择的项目:0:'ItemText1'(Item1)1:...
TComboBox.Items.Add在列表的末尾添加一个项目(在n + 1处,n是编辑新项目之前的最后一个索引):0:Item1 1:Itme2 2:Item3 3:New Item但我想要在n = 0处添加项目,...
免费方法在TProcess中做了什么。它在我在网上找到的几个例子中使用过但参考文献中没有任何内容可用吗?到目前为止,我使用它,一切正常。我可以继续......
嗨,我已经在freepascal上完成了这些代码行:type bigNum = string; function bigMod(a:bigNum; b:longint):longint; var i,hold:longint;开始持有:= 0; for i:= 1 to length(a)do hold:=(ord(a [i]) - 48 + ...
使用`TSelectDirectoryDialog`时,防止手动滚动到需要的“预选”文件夹
当我设置TSelectDirectoryDialog的InitialDir属性时,文件夹将被“选中”但如果它在当前可见区域下方,我仍然需要滚动到它。我有办法做...
多次设置`Select DirectoryDialog`的`InitialDir`属性
我正在尝试使用TSelectDirectoryDialog的InitialDir属性:procedure selectfolder;开始SelectDirectoryDialog1.InitialDir:= strPath;如果SelectDirectoryDialog1.Execute然后开始Edit1 ....