lazarus

How to count all the words in a textfile with multiple space characters

由 无人久伴 提交于 2021-02-17 04:40:48
问题 I am trying to write a procedure that counts all the words in a text file in Pascal. I want it to handle multiple space characters, but I have no idea how to do it. I tried adding a boolean function Space to determine whether a character is a space and then do while not eof(file) do begin read(file,char); words:=words+1; if Space(char) then while Space(char) do words:=words; but that doesnt work, and basically just sums up my(probably bad) idea about how the procedure should look like. Any

How to count all the words in a textfile with multiple space characters

由 青春壹個敷衍的年華 提交于 2021-02-17 04:40:36
问题 I am trying to write a procedure that counts all the words in a text file in Pascal. I want it to handle multiple space characters, but I have no idea how to do it. I tried adding a boolean function Space to determine whether a character is a space and then do while not eof(file) do begin read(file,char); words:=words+1; if Space(char) then while Space(char) do words:=words; but that doesnt work, and basically just sums up my(probably bad) idea about how the procedure should look like. Any

初探APT 攻击

由 流过昼夜 提交于 2021-02-10 06:03:47
作者：joe 所属团队：Arctic Shell 本文编写参考： https://www.freebuf.com/vuls/175280.html https://www.freebuf.com/articles/security-management/111166.html https://www.freebuf.com/column/185149.html 0x1 ：关于APT的相关介绍： APT 是什么？ APT（Advanced Persistent Threat）高级持续性威胁。 是指组织(特别是政府)或者小团体利用先进的攻击手段对特定目标进行长期持续性网络攻击的攻击形式。APT是黑客以窃取核心资料为目的，针对客户所发动的网络攻击和侵袭行为。 APT 手法？ APT的攻击手法，在于隐匿自己，针对特定对象，长期、有计划性和组织性地窃取数据，此类攻击行为是传统安全检测系统无法有效检测发现，前沿防御方法是利用非商业化虚拟机分析技术，对各种邮件附件、文件进行深度的动态行为分析，发现利用系统漏洞等高级技术专门构造的恶意文件，从而发现和确认APT攻击行为。由于APT的特性，导致难发现、潜在威胁大，一旦被攻击将导致企业、政府、医疗组织等等的大量数据被窃取，公司重要财务、机密被盗窃。 0x2: 初探APT大门（走进内网） DMZ 区域 A公司里

当黑客不讲武德 安全专家也容易被骗

由 China☆狼群 提交于 2021-01-28 11:37:59
作者：深信服千里目安全实验室 原文链接： https://mp.weixin.qq.com/s/8hLNDgrRcbvP3W0ASrwOwQ 摘要 漏洞研究者是大家心目中的安全专家，然而当安全专家的心理弱点被不讲武德的黑客利用，专家电脑上高价值的智力资产就会处于危险的境地，然而更危险的是这些本用于研究目的信息中如果存在可被武器化的内容，就导致研究人员无意中成为这些黑客的帮凶。 事件影响 26日，谷歌威胁分析小组披露了一系列来自东北亚某国黑客组织的针对安全研究人员(尤其是漏洞研究人员)的攻击活动。攻击者使用疑似Lazarus APT组织的攻击基础设施，结合非常具有迷惑性的社工操作，骗取受害者信任，并可能以盗取安全公司电脑上的高价值漏洞研究资料达到攻击目的。目前国内已有一定数量的安全研究人员受到这个组织的欺骗，其研究电脑的敏感信息泄露。 攻击技巧 攻击者为了与安全研究者建立互信并保持联系，首先会在一些社交媒体上发布一些漏洞研究博客和Twitter，吸引相关研究者的关注。其已知的攻击策略有两种： (1)在Twitter上进行一段时间的技术交流获得研究者信任后，攻击者会询问研究人员是否愿意开展合作研究，并向受害研究人员提供一个经过PGP加密的所谓“开展漏洞研究的VS源码项目”。其中在编译配置文件中调用了一段powershell脚本，加载了第一阶段的恶意DLL

How to format a number in scientific notation

由 爱⌒轻易说出口 提交于 2021-01-27 17:01:48
问题 So basically I have this function which returns: 3.00000000000E000 function lang():extended; begin wynik := 0 ; counter := 1; temp :=1; input := 2; for i:= 1 to 4 do begin for k:= 1 to 4 do begin if i = k then counter := counter else temp := temp * ((input - a[k]) / (a[i] - a[k])); end; wynik := wynik + temp*f[i]; temp := 1; end; Result := wynik; end; But when I try to print it on the application screen using FloatToStr, I get only 3. procedure TFormCalculator.Button1Click(Sender: TObject);

How to format a number in scientific notation

由 时光总嘲笑我的痴心妄想 提交于 2021-01-27 17:01:31
问题 So basically I have this function which returns: 3.00000000000E000 function lang():extended; begin wynik := 0 ; counter := 1; temp :=1; input := 2; for i:= 1 to 4 do begin for k:= 1 to 4 do begin if i = k then counter := counter else temp := temp * ((input - a[k]) / (a[i] - a[k])); end; wynik := wynik + temp*f[i]; temp := 1; end; Result := wynik; end; But when I try to print it on the application screen using FloatToStr, I get only 3. procedure TFormCalculator.Button1Click(Sender: TObject);

报表分析工具FastReport 2020年总结和计划

由 好久不见. 提交于 2020-12-26 16:57:56
FastReport .Net是适用于Windows Forms，ASP.NET，MVC和.NET Core的全功能报表解决方案。它可以在Microsoft Visual Studio 2005-2019中使用。支持.Net Framework 2.0-4.x，.NET Core 3.0及以上版本。 在FastReport .NET 2021.1的新版本中，我们实现了对.NET 5的支持。添加了新条形码-Deutsce Post Leitcode。将RTF转换为报告对象的算法已得到显着改进。并且还添加了用于转换数字的新功能。欢迎下载体验。（点击下方按钮下载） 慧都网下载FastReport.NET v2021.1最新版 在过去的一年中，我们可能会谈论很多我们的经历和遇到的困难，但是我们只是回顾一下今年，并谈论一些关于未来的计划。 尽管有种种困难，我们今年还是努力工作。我们计划的所有工作尚未完成，但是我们致力于在可预见的未来实现所有目标。 怎么了 在过去的一年中，我们能够为产品实施新的质量控制流程。这个方向的工作将继续。我们优化并改进了对各种格式的导出，添加了新的对象属性，改进了报告生成算法并修复了许多错误。我们增加了对5种新条形码和6种新格式的支持，以保存文档。 我们想感谢开发人员在重构代码以将.NET系列源代码合并到通用存储库中所做的艰苦工作。 此外，在FastReport

Why Canvas is “hidden” in all VCL controls?

由 最后都变了- 提交于 2020-12-15 05:23:35
问题 I want to do a basic procedure that draws something (let's say a triangle, for simplicity) on any control's (button, panel, etc) canvas: procedure DrawTriangle(Control: TCustomControl); In this function I need to use Control.Width & Control.Height to know how big is the control. Turns out to be more difficult than imagined because Canvas is protected. A solution would be to obtain the canvas of the control inside the procedure: VAR ParentControl: TWinControl; canvas: TCanvas; begin

AI时代即将到来，人力资源工作会受到怎样的影响？

由 天涯浪子 提交于 2020-10-09 04:42:29
云栖号资讯：【 点击查看更多行业资讯 】 在这里您可以找到不同行业的第一手的上云资讯，还在等什么，快来！ 很多人认为，人工智能平台的使用将大规模的实现自动化，这将会导致一些岗位消失。但是，这仅限于那些不需要太多人为干预的重复性基础任务。 根据高德纳公司（Gartner）的报告，人工智能可以在未来几年中消除 “数百万个中低端岗位”。但它也指出，人工智能将创造230万个额外的就业机会，这大大超过了高德纳公司预测将减少的岗位数（180万个岗位）。 有趣的是，这个趋势对于人力资源的影响是多方面的。一方面，人力资源一些战略岗位（类似于招聘计划，提供执行培训等）大概率不会被人工智能所取代。但从另一方面，大量人力资源战术层面的工作确实可以被AI自动化所取代。 专业做人工智能赋能招聘市场的Scout Exchange公司的CEO Lazarus 表示，人工智能不会取代所有的人力资源职能，但是它会引起重大的变革与影响，包括一些工作岗位的消失。 “人工智能可以被视作用于智力工作的自动化技术，并且与任何自动化技术一样，将对那些数量较大并且决策简单的任务产生更大的影响。” 所以，哪些特定的任务/工作会被人工智能取代呢？我们筛选了5大可能受影响较大或已经受到影响的人力资源模块。 五大可以被人工智能取代的人力资源岗位 在人力资源领域，重复性任务与关键决策之间有明显的界限，那就是是否需要人为判断。有意思的是

支持Rad Studio 10.4！来看看数据分析软件FastCube VCL新版亮点

由 ＊爱你＆永不变心＊ 提交于 2020-08-17 03:03:55
FastCube可以对数据进行分析，并建立汇总表（数据片），以及方便迅速地创建各种报告和图表。这是一个方便且有效的的数据阵列分析工具。FastCube是一个OLAP桌面组件集。它支持Delphi7、2005、2006/Turbo、2007、2009、XE、XE2、2007、2009、XE2、XE3、XE4、XE5、XE6、C ++ Builder 2007、C ++ Builder 2009、C ++ Builder XE2 - XE6、RAD Studio 2009、Embarcadero RAD Studio10 Seattle及更高版本，以及Lazarus。 FastCube VCL 更新至v2.11，Rad Studio 10.4支持，提高了FastCube VCL单元突出显示功能，重构TfcxContinousHighlight枚举，同时修复了多个Bug问题，点击下方按钮下载最新版。（ 点击下载 ） Rad Studio 10.4支持 从此版本开始，FastCube添加了Rad Studio 10.4支持。 测量单元的亮点 在此版本中，FastCube显着提高了FastCube VCL单元突出显示功能。我们添加了新的突出显示类，改进了以前的类并修复了错误。 TfcxTopHighlight类——高亮最多和最少的单元格 TfcxAverageHighlight—
订阅 lazarus