lazarus

1热度

2回答

我是Pascal编程新手。我一直在尽量接近在线教程。对于我的课程，我希望能够从列表框1（一个国家）中选择一个项目，并将结果（城市）显示在列表框2中。我知道它在那里可能是一个简单的解决方案任何帮助表示赞赏。 procedure TForm1.ListBox1Enter(Sender: TObject); begin ListBox1.Items.Add('Americ

-3热度

1回答

如何使请求SQL和使用拉撒路

我有问题使SQL请求如 SELECT * FROM“用户” WHERE使用SqlQuery还拉撒路1 ，和的SqlTransaction时MySql55Connection.But取结果我“M试图打开类SqlQuery（ SqlQuery1.Open; ）它会导致异常： Sql statement not set.

0热度

1回答

如何使用Synapse将值存储在TinyWebDB中？

我想通过使用Synapse库在TinyWebDB组件（AppInventor）中存储一个值。我设法得到一个价值使用此代码： procedure GetValue(Tag:String); var URL: string; Params: string; Response: TMemoryStream; begin Response := T

0热度

1回答

WriteLn在创建线程后打印出错

我在使用writeLn后在控制台中看到了文本问题。我的代码： (...) procedure TTestApp.Run; var MyThread:TMyThread; begin writeLn('Start new program'); writeLn('Start new thread'); MyThread:=TMyThread.Cr

0热度

2回答

拉撒路消息框：如何定位按钮

我要本地化的MesssageBox按钮，MessageDlg，InputQuery等我看到resourcestring在lclstrconsts存在这样的：“OK” /“取消” ....但我想设置按钮字符串使用asssignments。怎么办？我需要它在Win32上。我看到德国/罗斯OS显示En按钮。

2热度

1回答

何时安全地将UnicodeString强制转换为Free Pascal 3字符串？

这个单元测试用的Free Pascal 3.0成功运行在Delphi模式： procedure TFreePascalTests.TestUTF8Decode; var Raw: RawByteString; Actual: string; begin Raw := UTF8Encode('关于汉语'); Actual := string(UTF8De

0热度

1回答

拉撒路EIdOSSLCouldNotLoadSSLLibrary

在OS X上使用结果+印的OpenSSL 我目前正在使用： OS X约塞米蒂10.10.5 最新印（10.6.2.0，下载2016年3月13日 - Indy10_5346.zip）拉撒路1.4.4 最新的OpenSSL OpenSSL是更specificly： OpenSSL的-1.0.2g相应于家庭酿造CMD线接口置于/usr/local/Cellar/openssl/1.0.2/lib/

1热度

2回答

将一组记录从文件加载回程序中？

我正在创建一个程序，它可以移动一组记录并将这些学生记录保存到一个文件中。但是我现在希望将数据（StudentName，Class，Grade）重新加载到数组中，然后将它们显示在另一个表单上的列表框中。我尝试了一些方法，但没有成功。这是写在文件中的代码： unit NewStudent; {$mode objfpc}{$H+} interface uses Classes

0热度

1回答

TPlaySound组件Lazarus在Ubuntu下不播放声音，在调试模式下崩溃

我已经编译并安装了来自CCR'playsoundpackage'的组件。我从组件文件夹中选择演示项目并编译它。它可以在Windows下美好的，但在Ubuntu下的拉撒路12.04 32位（1.4.4，2.6.4 FPC）在调试模式下我有一个错误： Project PlaySound component demo raised exception class 'EProcess' with mes

0热度

1回答

如何转换例如使用拉撒路代码页1250（Windows的1250）转换为Unicode

目的：使用拉撒路创建从代码页1250（Windows的1250）成Unicode字符串转换的功能。