lazarus相关内容
你能告诉我该怎么做吗?是否有任何 Freepascal 单元可以为我做到这一点?我需要它，这样我的程序才能以基于 XML 的文件格式存储二进制数据. 解决方案 使用base64 单元及其两个类，TBase64EncodingStream 和 TBase64DecodingStream. 这是一个简单示例: 程序演示；使用类，base64；变量解码流:TStringStream；编码
..
我在 Delphi 中使用 DBGrid 组件.我想知道如何设置列的格式.我有想要在网格中显示为货币的真实值. 有人知道吗? 解决方案 可以设置Field 的DisplayFormat您可以处理 OnGetText 事件.这种方法允许对值进行更复杂的操作.
..
我需要一个用 Pascal/Delphi/Lazarus 编写的逆透视变换.见下图: 我想我需要遍历目标像素，然后计算源图像中的相应位置(以避免出现舍入误差等问题). function redraw_3d_to_2d(sourcebitmap:tbitmap, sourceaspect:extended, point_a, point_b, point_c, point_d:tpoint,
..
我即将推出测试版应用，并且可以选择在Python. 该应用程序将面向 Mac OS X 和 Windows，而我的问题是 Windows，其中 Python通常不存在. 我的实际方法是静默运行 Python 2.6 安装.但是我遇到了默认情况下未激活的问题，并且在使用 时未设置路径命令行选项.而且我担心如果之前安装了 Python 并且我升级到新版本，这可能会破坏其他东西......
..
我需要一个用 Pascal/Delphi/Lazarus 编写的逆透视变换.见下图: 我想我需要遍历目标像素，然后计算源图像中的相应位置(以避免舍入错误等问题). function redraw_3d_to_2d(sourcebitmap:tbitmap, sourceaspect:extended, point_a, point_b, point_c, point_d:tpoint, 百
..
所以基本上我有这个函数返回:3.00000000000E000 function lang():extended;开始wynik:= 0；计数器:= 1;温度:= 1;输入:= 2;对于我:= 1到4开始对于k:= 1至4开始如果i = k，则计数器:=计数器else temp:= temp *((输入-a [k])/(a [i]-a [k]));结尾;wynik:= wynik + temp
..
在FreePascal/Lazarus中是否有一种简便的RegExp替换方法? 到处寻找我可以很容易地进行比赛，但是我一直在努力寻找可以进行搜索和替换的功能. 我要实现的目标如下. 我已将XML文件加载到SynEdit组件中. 该XML文件的开头有十进制 DTD存放在单独的文件中. 我不想将两者合并在一个文件中，但是我想在编辑XML时对其进行验证. 我正在将XML读取到字
..
我正在尝试编写一个程序来计算Pascal文本文件中的所有单词.我希望它能处理多个空格字符，但是我不知道该怎么做. 我尝试添加一个布尔函数Space来确定字符是否为空格，然后执行 而不是eof(file)做开始读取(文件，字符);单词:=单词+1；如果是空格(字符)，则而Space(char)做单词:=单词； 但这不起作用，并且基本上只是总结了我关于程序外观的想法(可能是不好的).有什么
..
使用writeLn后，我在控制台中看到的文本出现问题. 我的代码: (...)过程TTestApp.Run;变种MyThread:TMyThread;开始writeLn('开始新程序');writeLn('开始新线程');MyThread:= TMyThread.Create;睡眠(1000);writeLn('程序的下一部分');结尾;变种TestApp:TTestApp；开始TestA
..
我想做一个基本的过程，在任何控件(按钮，面板等)的画布上绘制一些东西(为简单起见，假设是一个三角形): procedure DrawTriangle(Control:TCustomControl); 在此功能中，我需要使用Control.Width&Control.Height知道控件有多大.事实证明，这比想象中的要困难得多，因为Canvas受了保护. 一种解决方案是在程序内部获取控
..
我当前正在使用: OS X优胜美地10.10.5 最新的Indy(10.6.2.0，2016年3月13日下载-Indy10_5346.zip) 拉撒路1.4.4 最新的openssl 更具体地讲，OpenSSL: openssl-1.0.2g相应于家庭酿造cmd线路接口 放在/usr/local/Cellar/openssl/1.0.2/lib/ 上面目录中的 lib文
..
使用:拉撒路1.2.0; Windows 32位应用程序 我创建了一个从TCustomPanel派生的自定义组件，其中包含一些TEdit控件. 在运行时，当我尝试在组件中设置编辑控件的Text属性时，出现运行时错误. 这是错误: Project project1 raised exception class 'External: SIGSEGV'. In file '.
..
使用:拉撒路1.2.0; Windows 32位应用程序 我编写了一个自TPanel派生的自定义组件，它包含4个TEdit控件.我已经为TEdits编写了OnClick事件处理程序代码.但是，它在运行时不起作用，即事件未触发.我不确定我错过了什么.请您告诉我我做错了什么吗? 组件代码如下: unit uEditPanel; {$mode objfpc}{$H+} interf
..
我正在写一个基本转换器，因为我即将进行测试，我需要将二进制数转换为3个不同的基数:八进制，十进制和十六进制.我已经编写了将二进制字符串转换为十进制和十六进制的代码. function bintodec(Value:string;dec:TEdit;hexadec:TEdit): Integer; var //dec and hexadec are the TEdit
..
两者 while MyFunction(1, 2, 3) > 0 do begin Temp := MyFunction(1, 2, 3); ShowMessage(IntToStr(Temp)); end; 和 Temp := MyFunction(1, 2, 3); while Temp > 0 do begin ShowMessage(In
..
begin reset(f); assignfile(f, 'data.txt'); Reset(f); found:= false; search := edit1.text ; repeat read(f, phone) ; read(f, cusfname); read(f, adress); found:= search = phone until
..
我正在使用lazarus IDE v1.8.4在pascal中编写一些代码，因为这个问题说我需要能够在代码中编辑控制台大小，所以我最好也需要获得他们可以拥有的最大控制台宽度.如果您知道如何使用，也请让我知道您的使用方式.谢谢！ 解决方案 假设您的目标是Windows: 使用 GetLargestConsoleWindowSize 来检索最大的可能的控制台大小取决于控制台字体和显示设置
..
我有一个包含数据的数据库表，需要将字段加载到TTreeView对象中. 该行: ItemTree.Items.AddChild(nil, CurrentField_Text); 简单地在顶层添加一个节点. 如何指定要插入的点? 请注意，在遍历表中的数据时，我可以(例如)插入3个顶级项，然后第4个元素实际上是节点2的子元素. 我该如何指定? 解决方案 这是直
..
我有一个简单的带有3个数据字段的插入语句. 不是主键且不会自动递增的Tag_ID， 一个时间戳，该时间戳将一个简单的DateTime Now保存为一个字符串，一个float值包含一个简单的devide计算. sql服务器实际上是本地的，但是稍后它将在不在本地网络中的另一台计算机上.现在，我得到10.000个条目的时间为25.8秒. 我的代码如下: procedure TForm1.t
..
我终于成功编译了一个“空白" Apache模块，但是现在我遇到了一个非常烦人的问题. 我想与MongoDB服务器通信，我选择了FreePascal/Lazarus的唯一库， pebongo . 对 pebongo 的依赖是突触. 以某种方式将模块加载到Apache中时，出现"/usr/lib/apache2/modules/mod_visius.so:未定义符号:WSRegist
..
