freepascal

    1热度

    1回答

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

    0热度

    1回答

    program Loans(Input,Output); uses crt; Var i,m,l:Integer; Month:Integer; LoanID:String; QUARTERS:array[1..4] of Integer; max:integer; min:integer; maxloc:integ

    2热度

    1回答

    我正在为Free Pascal提供SWIG模块。 Pascal是不区分大小写的语言。符号名称不区分大小写。 像AName和aName这样的两个不同的C名字在Pascal中将是相同的ANAME。 我知道SWIG支持超载。但不区分大小写并不是真正的超载。 (顺便说一句,Pascal支持自然超载,不需要重命名Pascal中的重载函数)。 我需要什么,对于C AName和aName,SWIG应该自动在Pa

    0热度

    2回答

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

    0热度

    1回答

    我在Windows 7上安装了freepascal,但没有安装IDE。 如何将图标添加到我正在开发的程序中?我使用Google进行搜索,但大多数结果都指向了Lazarus IDE论坛。那里的提示似乎都涉及某种我没有的* .lpi文件。 谢谢。 [更新] 我知道它的部分工作。在File Explorer中查看EXE时,我可以看到图标。但是启动应用程序时,图标不会出现在标题栏中。 [更新] 该程序是一

    2热度

    1回答

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

    0热度

    1回答

    我有错误“错误:重复的案例标签”,这是因为我使用免费的pascal编译器,我看到处处都找不到解决方案,请你给我提供一个, 谢谢。 我会上传完整的代码,以防万一缺少某些东西。 对不起,这是混乱。 program diceroll; uses crt; var count,time,double,dice1,dice2:integer; sum1,sum2,sum3,sum4,sum5,

    1热度

    2回答

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

    1热度

    1回答

    如何使用命令行在Windows上使用免费pacal编译后生成ios或android可执行文件? 我平时这个编译文件: C:/fpc/path/to/compiler.exe C:/path/to/file.pas 但该命令将刚刚创建的窗口可执行文件。

    0热度

    2回答

    我想要做的就是获取系统时钟值,以便我可以测量它们之间的时间,以便比较使用Mac OS上的Free Pascal替代编码的速度。 就我可以从他们的在线文档中收集的信息而言,免费的Pascal文档更多地是关于日期和总时间戳而不是系统时钟。系统时钟值将更精确。 我在这里的研究stackoverflow找到没有具体到我的情况。 我已经能够在本地OSX应用程序中使用Xcode执行此操作,但由于其跨平台可移植