lazarus

0热度

1回答

我最大限度地简化了下面的代码，只显示我的问题。当析构函数TClass3.Destroy完成时，动作FreeAndNil（FClass3）会导致问题，程序将停止。如果有在Heap.trc文件一看，我可以在0000000001528FD0 $无效读已标记内存错误签名$ 2951FD2D而不是5C063D8B program Project_testFree; {$mode objfpc}{$H

-3热度

1回答

DExif-Package中某些字段的Compliererror

我安装了DEXIF包，能够读取一些EXIF条目。但不是文档中描述的计算值。以下代码显示了什么可行。对于注释行我得到的错误：标识符idents没有成员“focalLenght”等。我怎样才能得到这些和更多的领域？ procedure TForm1.EXIFAnzeigen(filename: string); var ImgData: TImgData; i :intege

-1热度

1回答

ShellExecute的错误2 - 指定的文件未找到

我想： cmdline := 'I:\test.exe'; Result := ShellExecute(0,nil, PChar(cmdline),PChar(''),nil,1) 其中I：\是一个网络驱动器。这将使我的错误：2 - 文件未找到如果我尝试： cmdline := '\\10.10.10.10\data\test.exe'; Result := ShellExecute(

1热度

1回答

反正有没有在Lazarus/Free pascal编译二进制文件中包含libc.so？

是否有将libc库包含在Lazarus或Free Pascal编译的二进制文件中的方法？我不想使用共享库，因为如果我用更新版本的Libc编译我的应用程序，例如，它不适用于较旧的Linux。我想这是因为在终端显示以下错误，当我在旧的Linux版本上运行我的应用程序： ./app：/lib64/libc.so.6：版本`GLIBC_2.14 '找不到（需要 ./app）谢谢。

1热度

3回答

选择多个复选框执行条件

我想要一个文本文件来显示memo1中的内容，一旦我选择了2个复选框。我该怎么做？我试了下面的代码，但我似乎无法得到它的权利。 if CheckBox1.Checked and CheckBox2.Checked then begin memo1.lines.LoadFromFile('files\RS.txt'); end; 我也希望能够选择复选框单独像：（如果指出了这一点结合他们

1热度

1回答

Lazarus窗体通过代码调整大小

在Arch Linux上，使用Lazarus 1.6.4，我试图保持窗体的高度不变。下面的代码是一个小例子： unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs; type { TForm1

1热度

1回答

Codesign without xcode - 错误代码对象根本没有签名

我有一个在非xcode工具中开发的macOS .app。我想签署它，所以用户可以从我的网站下载。我手动创建我的“的info.plist”文件，该文件是这样的： <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs

-2热度

1回答

查找和文本

我正在寻找一个简单/快速的方法来从字符串识别和提取主题标签＃标签提取，并暂时单独存放 - 例如：如果我有以下字符串： 2017-08-31这是一个无用的句子作为例子。＃例子＃日期：2017-09-01 #NothingWow（然后更多的文字为好措施）。然后，我希望能够得到这个： #Example #Date:2017-09-01 #NothingWow 我想将其存储在的TString

1热度

1回答

同时在同一个插座上发送和接收

我正在使用Lnet组件，但我不知道它是否重要。我可以通过多个线程在同一个套接字上同时发送和接收吗？

0热度

1回答

[？]字符代码 - 如何：使用复制命令;

PROCEDURE TForm1.Button1Click(Sender: TObject); VAR count:Integer; text1:String; BEGIN text1 := 'Line1'+#13#10+'® Line2'+#13#10+'Line3'; FOR count := 1 TO Length(text1) DO ShowM