object-pascal

1热度

1回答

我试图软件写在Delphi中的代码，这将在货币格式这样可以显示给定的数字格式：现在，它的工作原理，如果填充整数和另一个字段，直到任何参数都会更新。我很高兴有一个代码可以显示货币格式的数字，就像我写的一样。我试图通过键入此来管理： procedure TForm1.EditZakladChange(Sender: TObject); var zaklad: Currency; begin

2热度

1回答

Lazarus IDE：在项目中导入图像

我开始在Lazarus IDE中开发项目，但我不适应新的平台。如何在项目中导入音频媒体，图像，视频和其他资源并使用它们（无需使用操作系统的特定目录）。利用相同的情况，创建zip文件类型并将其导入项目或创建包含这些资源的包是可行的。 NOTE：我想使用TImage对象中的图像并定义导入到picture属性中的资源。

1热度

1回答

如何在覆盖之前使用TFileStream截断现有文件？

我正在使用下面的代码写入一个现有的文件，但内容被追加。需要TFileStream选项来清空文件并覆盖它？ procedure TUtilitiesForm.btnSaveClick(Sender: TObject); var fs: TFileStream; begin fs := TFileStream.Create(FileNameEdit1.Text, fmOpenWrite)

1热度

1回答

将JSON数据的值传递给Free Pascal变量

我正试图将免费Pascal中的一个小程序放入JSON格式的Fixer.io当前汇率中，并使用它们进行简单的货币换算。我已经得到以下，它将英镑兑换成波兰语złoty的汇率并将其打印到屏幕上。 {$mode objfpc}{$H+} uses fphttpclient, fpjson, jsonparser; Var S : String; J: TJSONData;

-5热度

1回答

在Delphi中，我可以如何设置TPanel变量类型为空？

直升机，我有以下的东西：selectedPanel应该得到的点击面板对象，如果被点击的形式，selectedPanel应该是“空”，虚无缥缈，空洞等:) var selectedBlock: Tpanel; <== fixed typo ... procedure TForm1.stubPanelMouseDown(Sender: TObject... begin

1热度

1回答

每行中的最大数

我有一个问题给你。我需要在每行中写入最大元素。例如，我的表： 1 2 3 4 5 6 7 8 9 10 11 12 我想4,8,12 我试过，但没有任何结果： Program Lab2; type A=array[1..5,1..5] of integer; var x:A; i,j,s,max:integer; Begin writeln('Write date:'); fo

1热度

1回答

输入隐藏，输出有过多的缩进

如前所述here，我试图在Pascal中重新创建一个最初由Ruby编写的SSH配置文件管理器。提供了答案，我已经能够让shell保持打开并接受输入。现在我遇到了任何新的问题，并且所有输入都隐藏起来，并且所有输出似乎都在每行之前都有几个制表符。更新相关的代码如下： if HasOption('c', 'connect') then begin TempFile:= GetRecord(Ge

0热度

1回答

delphi/lazarus中的很多菜单项

我有一个应用程序，我使用了很多层次菜单项，每个菜单项都有一个与之关联的文本模板。一切都是在设计时完成的，菜单项和文本模板是不变的。在应用程序上，选择菜单项时，将相关文本模板插入到synedit控件中。什么是设计这个好方法？我的想法是，通过IDE插入每个菜单项很麻烦，如果我想更改/添加/删除项目，并不是非常友好，而且，它们中有很多。

0热度

1回答

运行旧项目时出错 - Lazarus

我在lazarus中使用了对象pascal。当我打开一个旧项目并尝试运行它时;这个代码窗口中源代码编辑器弹出： program TimeKeeper; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, //

4热度

1回答

防止拉撒路调试分支到库单元

当运行一个拉撒路在调试模式下在Object Pascal程序，调试完成我的任何事件处理程序的使用后，将打开在IDE中编辑和分支机构所有这些单位的十几LCL库单位F4键。我怎样才能防止这种情况发生，并将调试器限制在我自己的源代码单元中？