pascal相关内容

牛顿-拉夫森在帕斯卡，结果不是很好

我用Pascal语言实现了牛顿-拉夫森算法。这很奇怪，因为同样的代码在C++中会产生很好的结果(9的结果是3)，但在Pascal中9的结果是3.25，为什么呢？ 帕斯卡： Program NewtonRaphsonIter(output); {$mode objFPC} function newton_raphson_iter(a: real; p: real; eps: real ..
发布时间：2022-09-02 10:34:37 C/C++开发

PASCAL读命令

我使用FPC用Pascal构建了一个程序，但在此之后我安装了Lazarus。所以现在我正在用拉撒路编辑同样的帕斯卡程序。 它可以很好地在这种类型的记录数组中插入、修改和列出姓名和电话。 但是在这个修改过程中，Read命令对我不起作用。 但例如，Read命令在我的Delete过程中工作得很好。 主要问题： **这3个Read命令不起作用，所以我修改为Readln，这为我修复了它，现在每个人都读 ..
发布时间：2022-09-02 10:25:51 其他开发

如何访问Sender参数正在引用的组件(激发事件的组件)的属性

我是Delphi和Pascal的新手，我想知道是否有一种方法可以获取/访问发送者在过程中引用的组件的属性。 更具体地说，我想创建一个过程来更改标签的标题属性，该标签是发件人引用的组件。 我设想该过程如下所示： procedure TForm1.LabelEdit(Sender: TObject); begin Sender.caption := 'Sample Text'; e ..
发布时间：2022-09-02 10:11:12 其他开发

RemObjects PascalScript 与 DWS 脚本的优缺点是什么?

我打算在我的应用程序中包含一个 pascal 脚本.它不需要任何网络访问，只需访问我的应用程序中的类.它应该很快(编译).我看到有许多可用的脚本，有些是解释器，但在编译器 RemObjects pascal script和 Delphi Web Script (DWS) 似乎很强大并且被积极追求. 谁能提出一个比另一个的优势?谢谢 解决方案 归根结底，恕我直言: Delphi ..
发布时间：2022-01-17 08:51:33 其他开发

将图像从 3d 透视图重绘为 2d

我需要一个用 Pascal/Delphi/Lazarus 编写的逆透视变换.见下图: 我想我需要遍历目标像素，然后计算源图像中的相应位置(以避免出现舍入误差等问题). function redraw_3d_to_2d(sourcebitmap:tbitmap, sourceaspect:extended, point_a, point_b, point_c, point_d:tpoint, ..
发布时间：2022-01-14 15:07:19 其他开发

用于将枚举转换为字符串并返回的通用函数

我正在尝试编写将枚举转换为字符串并再次返回的函数. 即: TConversions = 类严格的私人上市类函数 StringToEnumeration(x:String):T;类函数 EnumerationToString(x:T):String;结尾; 在实现部分我有 使用系统类型信息;类函数 TConversions.StringToEnumeration(x:String):T; ..
发布时间：2021-12-13 23:47:59 其他开发

如何在 Delphi 中将接口转换为对象

在 delphi 2009 中，我有一个对 IInterface 的引用，我想将其转换为底层的 TObject 使用 TObject(IInterface) 显然在 Delphi 2009 中不起作用(它应该在 Delphi 2010 中工作) 我的搜索使我a应该可以解决问题的函数，但它对我不起作用，当我尝试在返回的对象上调用方法时，我得到了 AV. 我无法真正修改类，我知道这会 ..
发布时间：2021-12-13 23:15:19 其他开发

将图像从 3d 透视重绘为 2d

我需要一个用 Pascal/Delphi/Lazarus 编写的逆透视变换.见下图: 我想我需要遍历目标像素，然后计算源图像中的相应位置(以避免舍入错误等问题). function redraw_3d_to_2d(sourcebitmap:tbitmap, sourceaspect:extended, point_a, point_b, point_c, point_d:tpoint, 百 ..
发布时间：2021-12-13 22:59:23 其他开发

Delphi/Pascal 的正确结构语法 if then begin end and ;

距我上次不得不用 Pascal 编写已经大约 20 年了.我似乎无法在使用 begin 和 end 嵌套 if then 块的地方正确使用语言的结构元素.例如，这让我得到一个编译器错误 "Identifier Expected". procedure InitializeWizard;开始Log('初始化向导');如果 IsAdminLoggedOn 然后开始设置用户组()；SomeOtherP ..
发布时间：2021-12-13 22:50:32 其他开发

我的 if 语句有什么问题?

我现在正在尝试探索 pascal.我遇到了一些编译器错误.我写了一个 if else if 语句，如下所示: if ((input = 'y') or (input = 'Y')) then开始writeln ('等等');结尾;否则如果 ((input = 'n') 或 (input = 'N')) 然后开始writeln ('等等');结尾;别的开始writeln('输入无效！');结尾; ..
发布时间：2021-12-12 13:33:15 其他开发

在 Inno Setup 中使用 {AppVersion} 作为函数的参数

所以我有一个正在更新一些 XML 的函数，我想传递在脚本的 [Setup] 部分中设置的 {AppVersion}作为这个函数的常量 我试过了 MyFunction(ExpandConstants({AppVersion}) 但这给我一个错误?我如何正确地将此常量传递给我的函数 我的代码 [文件]来源:“.\Source\myfile.txt"；目标目录:“{应用}\系统"；安装 ..
发布时间：2021-11-28 17:56:24 其他开发

Pascal - 如何将可变数量的参数传递给子程序?(可变函数)

我最近不得不面对这个问题，即如何在 Pascal 中向函数或过程传递 1、2、3、9、38919、0 或任何随机数量的参数?我想制作一个子程序，它可以接受我想传递的尽可能多的参数，比如 writeln. writeln('Hello, ', name, '.');writeln('你出生于 ',birthDate, ', 而你是 ', age, ' 岁.'); 我在网上搜索了一些指南或其 ..
发布时间：2021-11-17 05:16:27 其他开发

Delphi Pascal - 使用 SetFilePointerEx 和 GetFileSizeEx，在作为文件读取时获取物理媒体的确切大小

我不知道如何使用任何不在 RTL 中的 API.我一直在使用 SetFilePointer 和 GetFileSize 将物理磁盘读入缓冲区并将其转储到文件中，类似这样的循环可以完成 2GB 以下的闪存卡的工作: SetFilePointer(PD,0,nil,FILE_BEGIN);设置长度(缓冲区，512)；ReadFile(PD,Buffer[0],512,BytesReturned,ni ..
发布时间：2021-11-15 03:05:03 其他开发

Delphi Pascal - 使用 SetFilePointerEx 和 GetFileSizeEx，在作为文件读取时获取物理媒体的确切大小

我不知道如何使用任何不在 RTL 中的 API.我一直在使用 SetFilePointer 和 GetFileSize 将物理磁盘读入缓冲区并将其转储到文件中，类似这样的循环可以完成 2GB 以下的闪存卡的工作: SetFilePointer(PD,0,nil,FILE_BEGIN);设置长度(缓冲区，512)；ReadFile(PD,Buffer[0],512,BytesReturned,ni ..
发布时间：2021-11-15 02:59:58 其他开发

如何在 Delphi 中下载一个非常简单的 HTTPS 页面?

我尝试了在此处看到的代码，但它不适用于 HTTPS.我需要将此页面下载为字符串，并在其上添加一些 Break 行以将信息按顺序排列在 TMemo 中. 怎么做?我尝试使用 Indy 但由于 SSL 失败. 我尝试了这个页面的解决方案:如何下载一个网页变成一个变量? 如何下​​载此页面 https://api.rastrearpedidos.com.br/api/rastreio/ ..
发布时间：2021-09-22 19:53:18 其他开发