lazarus

0热度

1回答

我对pascal中fgl单元的TFPGMap有个疑问。此线程安全吗？或者我必须使用关键部分？ var map:TFPGMap; begin map:=TFPGMap.Create(); (...) CS.Enter; map.Find('Key'); CS.Leave; 感谢您的回答！ :)

3热度

1回答

如何FreePascal的执行/拉撒路一个cef3渲染进程处理程序在子进程

我想实现一个fpcef3渲染进程处理程序作为子：以下设在fpcef3 github repo的例子中，我已成功地创建渲染过程的处理程序的子过程： Program subprocess; {$mode objfpc}{$H+} Uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF}

0热度

1回答

拉撒路帕斯卡尔 - 类方法无法存取权限我有帕斯卡 - 拉扎鲁斯（Linux）的问题私有成员

：类方法不能存取权限的成员。这不是编译器错误，而是运行时错误。（SIGSEV）欲了解更多信息：我使用Linux与最新的版本（16_4）和Lazarus帕斯卡（16.0）。我的系统类型是x86_64的代码： unit compiler_code; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil

2热度

1回答

拉撒路本地化/多个项目

我有一些德尔菲的经验，我试图与拉撒路建立一个项目，这对我来说是全新的。我想，我读过提供拉撒路，翻译/国际化/本地化的所有信息，但我无法找到我真正想要的。我一直在一个项目中使用3或4个EXEcutables，他们之间共享，相同的数据库相同的接口（窗体继承），常见的应用程序，设置，以及常见和相关的字符串。我不想有3个或4个不同的名字（每个EXE），它们之间有着相同的常见字符串.po文件。有没有

0热度

2回答

如何将消息从对象传递到Free Pascal中的另一个对象

我有一个表单，然后我有一个'TPageControl'对象（名为'MyPages'）和一个'TButton'对象（名为'MyButton'）在它上面设计时间。然后我有一个名为'TTab'的新类，它扩展了'TTabSheet'。 'TTab'类有一个'TButton'对象作为其成员变量之一，如下所示。 class TTab = class(TTabSheet) private m_bt

-1热度

3回答

如何使数组值全部为大写字母lazarus

用户通过InputBox将字符串值输入到字符串数组中，一旦存储值，我如何使所有字母仅成为大写字母，如下面的示例。这些值必须基本上覆盖数组中的非大写值，以便稍后可以在列表框中显示它们。我知道我需要使用UpperCase函数，但似乎无法使它正常工作，因为它再次显示为非大写。这是我第一次尝试使用数组和UpperCase函数，所以请很好。例如： '曲棍球'， '网球'， '足球' 为 '曲棍球'， '

1热度

1回答

使用FreePascal将AnsiString转换为Lazarus中的UnicodeString

我在这里发现了类似的主题，但是他们都没有解决我的问题，所以我在新线程中提问。几天前，我改变了格式，我正在开发的应用程序的首选项从INI保存到JSON。我为此使用了jsonConf单元。我用来在文件中保存键值对的代码示例如下所示。 Procedure TMyClass.SaveSettings(); var c: TJSONConfig; begin c:= TJSON

0热度

1回答

如何使用Lazarus将TFilestream保存到硬盘驱动器

我在更改某些值后保存xml文件时遇到问题。我使用的拉撒路1.6作为IDE与FPC版本3.0.0 这里是我的xml文件的结构，我用了这个帖子： <?xml version="1.0" encoding="UTF-8"?> <wbpickeys> <picture> <name>C:\IMG_1.JPG</name> <imagedate>p-06/04/2014 1

1热度

1回答

Lazarus TAChart在运行时添加TChartToolSet和TZoomDragTool

我很难搞清楚如何将TZoomDragTool添加到TChart。我知道TChart已经构建了对缩放的支持，但我想同时禁用平移（通过右键点击拖动）。有一个属性禁用缩放，但没有直接的方法来禁用平移。我发现，如果我添加一个TChartToolSet到图表，它将禁用内置的缩放和平移功能。如果我可以添加一个TZoomDragTool到TChartToolSet，那么它会做我想要的。如果我在设计时做到这一点

0热度

1回答

如何使用for循环显示2 spindit控件之间的所有数字Lazarus

我的问题是，我不能解决如何显示2 spinedit控件之间选择的所有数字。实施例： SedValue1 := 5 SedValue2 := 7 如何使用一个for循环来显示数字5，6和7？我迄今为止： for iCount := Value1 to Value2 do begin lstFORList.items.add('Digit number :'+IntToStr(i