freepascal相关内容
你能告诉我该怎么做吗?是否有任何 Freepascal 单元可以为我做到这一点?我需要它,这样我的程序才能以基于 XML 的文件格式存储二进制数据. 解决方案 使用base64 单元及其两个类,TBase64EncodingStream 和 TBase64DecodingStream. 这是一个简单示例: 程序演示;使用类,base64;变量解码流:TStringStream;编码
..
据我所知,Android NDK 中两种支持的 ARM 架构风格之间的区别仅在于支持的 CPU 指令集.真的是这样吗?调用约定、系统调用顺序或其他方面没有区别吗? 我想知道如果我将模块编译为 ARM 目标文件(使用 NDK 以外的编译器 - 特别是 Free Pascal),将 ARMv6 指定为架构,然后将其链接到 armeabi 和 armeabi-v7a 会发生什么共享库.FPC 位不
..
是否有人有 Delphi/Pascal 示例来调用以下 OpenSSL 函数... http:///svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/packages/openssl/src/openssl.pas?revision=17634&view=markup 我特别感兴趣: procedure EVP_CIPHER_CTX_init(a
..
我现在正在尝试探索 pascal.我遇到了一些编译器错误.我写了一个 if else if 语句,如下所示: if ((input = 'y') or (input = 'Y')) then开始writeln ('等等');结尾;否则如果 ((input = 'n') 或 (input = 'N')) 然后开始writeln ('等等');结尾;别的开始writeln('输入无效!');结尾;
..
我的 Mac 上有一个由 GCC 编译的 x86_64 库,我想将它与使用 Free Pascal 2.4 编译的 Pascal 代码链接起来.我给 fpc 提供什么选项以使其生成 64 位代码?没有任何选项,我只能得到 32 位 .o 文件. 我使用的是从 SourceForge 下载的 fpc-2.4.0.intel-macosx.dmg,但是当我运行 fpc -i 时,唯一的目标 Ma
..
我正在尝试在Pascal中查找给定字符串中的单词数? 这是我的入门杂文: 程序P1;var s:string;i,k:整数;开始write('输入一个字符串:');readln(s);k:= 0;对于我:= 1到长度做开始if(s [i] ='')然后k:= k + 1;结尾;write('单词数',k);结尾. 解决方案 在免费Pascal中,有一个 wordcount 函数:
..
我对免费的pascal函数(文档中描述的 中描述的行为)感到奇怪. 据说,以下代码将成功编译/执行: 功能测试:整数;开始测试:= 2;结尾;开始WriteLn(Test());结尾. 但是,如果我在等式的右侧使用函数名称 Test ,它将执行递归循环. 因此,pascal函数从一侧定义了变量,其名称为 Test 和函数返回值的类型为 integer .从另一方面来看,您仍然可以
..
在FreePascal/Lazarus中是否有一种简便的RegExp替换方法? 到处寻找我可以很容易地进行比赛,但是我一直在努力寻找可以进行搜索和替换的功能. 我要实现的目标如下. 我已将XML文件加载到SynEdit组件中. 该XML文件的开头有十进制 DTD存放在单独的文件中. 我不想将两者合并在一个文件中,但是我想在编辑XML时对其进行验证. 我正在将XML读取到字
..
早上好,我在业余时间做一些Codeforces练习,并且在测试用户是男孩还是女孩时遇到问题,嗯,我的问题不是,我只是演示了代码. 在计算机上编译我的代码时(我在i386上使用3.0.4版本),我没有收到任何错误,但是Codeforces给了我这个错误 program.pas(15,16) Error: Operator is not overloaded: "freq(Char;AnsiSt
..
我可以扔掉class es而不释放它们吗,还是我的软件会开始喷出泄漏? 例如,我可以这样做 Engine := TEngine.Create(TV); 然后摆脱引用,没有任何问题,还是必须先调用其Free方法? 还是有一个返回TSomething并且不必稍后释放其引用的函数? 解决方案 一般规则是,如果创建它,则应释放它.最好的方法是尝试.最后,如果要在代码中创建它:
..
我一直在研究AVL-tree单元,用户可以在其中指定他想要在树中包含的内容.我为此目的使用对象.在我的单元中,我定义了一个称为Node的父对象,指向该对象的指针是PTNode.在这个对象中,我有3个属性,分别是Balanced:integer; Left,Right:PTNode(代表该节点的子节点),以及1个方法:Function Is_Greater(Node1:PTNode):integer
..
使用此程序,我试图读取文件并将其随机打印到控制台.我想知道是否必须为此使用数组.例如,我可以将字符串分配到数组中,然后从数组中随机打印.但是,我不确定该如何处理.另一个问题是,我当前的程序无法从文件中读取第一行.我有一个文本文件text.txt包含 1. ABC 2. ABC ... 6. ABC 下面是我的代码. type arr = record end; var
..
所以我的文本文件包含: Harry Potter and the Deathly Hallows###J. K. Rowling###2007 我必须以以下形式将其输出到FreePascal程序 J.K.Rowling "Harry Potter and the Deathly Hallows" 2007 year 我知道如何从文件中读取文件,但我不知道如何使其以previos
..
我正在尝试通过在Android设备上安装FPC程序本文. 在通过将输入作为.jar(classes.jar)文件来创建.dex文件时,它给出了以下错误. MacBookPro:src Sreehari $/库/android-sdk-macosx/build-tools/23.0.2/dx --dex --output = bin/classes1.dex eu/blaisepasca
..
我是Pascal的新手,我正在尝试编写一个简单的程序,但是在函数之间传递值时遇到了麻烦.这只是我所拥有的一小部分: program numberConverter; const maxValue = 4999; minValue = 1; var num: integer; function convertNumeral(number: integer):string;
..
我曾经在Delphi中使用Indy 6天,现在我正在使用Indy 10.我想做的事情非常简单,但是我看不到这样做的简单方法,因此我一定会缺少一些东西. 我想做的是这样的: 这是我正在使用的实际代码: procedure TForm1.btnGetURLClick(Sender: TObject); begin moHeader.Lines.Clear; moBody.Li
..
问题 我尝试使用Pascal函数EncodeStringBase64,假设Inno Setup可以访问Pascal标准库,但找不到它并提供了Unknown Identifier错误. https://www.freepascal.org/docs-html/fcl/base64/encodestringbase64.html 我还发现此代码可以执行转换,但似乎仅限于AnsiStr
..
我需要知道是否已使用最新的FPC(v3.0.0)将stdin或stdout重定向到控制台应用程序 在过去的Turbo Pascal时代,我有一个用汇编语言编写的函数可以做到这一点.见下文: { ************************************************************** * Routine : RedirectedStd
..
为什么在没有Sleep(1)的情况下无法进入关键部分? type TMyThread = class(TThread) public procedure Execute; override; end; var T: TMyThread; c: TRTLCriticalSection; implementation procedure TForm1.FormC
..
如何将FPC .o从库链接到Delphi可执行文件.当我尝试链接以下代码时,会收到一堆不满意的前向或外部声明. library project1; {$mode objfpc}{$H+} uses Classes { you can add units after this }; function Test: Integer; begin Result := -1; end
..