<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[mgcps的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/mgcps</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; mgcps]]></copyright><item><title><![CDATA[Delphi面向对象编程核心类解析：从TObject到TComponent]]></title><link>https://blog.youkuaiyun.com/mgcps/article/details/147574154</link><guid>https://blog.youkuaiyun.com/mgcps/article/details/147574154</guid><author>mgcps</author><pubDate>Mon, 28 Apr 2025 09:24:39 +0800</pubDate><description><![CDATA[经过一个系列的学习和分享，我们对Delphi的面向对象特性有了更深入的理解。作为本系列的终结篇，我想对Delphi中几个最基础且最重要的核心类做个系统性的总结，希望能帮助初学者构建清晰的VCL类层次认知框架。]]></description><category></category></item><item><title><![CDATA[Delphi面向对象设计：如何构建优雅的类结构]]></title><link>https://blog.youkuaiyun.com/mgcps/article/details/147573055</link><guid>https://blog.youkuaiyun.com/mgcps/article/details/147573055</guid><author>mgcps</author><pubDate>Mon, 28 Apr 2025 08:30:52 +0800</pubDate><description><![CDATA[职责明确的边界清晰的扩展方便的使用简单的维护轻松的记住：代码首先是给人读的，其次才是给机器执行的。即使是在强调性能的Delphi开发中，良好的设计也能带来长期的可维护性优势。]]></description><category></category></item><item><title><![CDATA[堡垒机无法连接外网 Python环境搭建方法]]></title><link>https://blog.youkuaiyun.com/mgcps/article/details/146392105</link><guid>https://blog.youkuaiyun.com/mgcps/article/details/146392105</guid><author>mgcps</author><pubDate>Thu, 20 Mar 2025 11:25:08 +0800</pubDate><description><![CDATA[在无法连接外网的堡垒机上成功搭建 Python 运行环境]]></description><category></category></item><item><title><![CDATA[免费的Pascal开发工具]]></title><link>https://blog.youkuaiyun.com/mgcps/article/details/145819731</link><guid>https://blog.youkuaiyun.com/mgcps/article/details/145819731</guid><author>mgcps</author><pubDate>Mon, 24 Feb 2025 08:45:59 +0800</pubDate><description><![CDATA[Free Pascal 是一个开源的 Pascal 编译器，支持多种 Pascal 方言，如 Turbo Pascal 和 Delphi。: 专为 Raspberry Pi 等嵌入式设备设计的 Pascal 开发环境，基于 Free Pascal。: 基于 Free Pascal 和 Lazarus 的扩展开发环境，提供更多组件和工具。: 基于 Free Pascal 的轻量级 IDE，适合初学者和小型项目。: GNU 项目的一部分，支持标准 Pascal 和部分扩展功能。: 界面简洁，易于上手。]]></description><category></category></item><item><title><![CDATA[学点C# LinQ]]></title><link>https://blog.youkuaiyun.com/mgcps/article/details/136651317</link><guid>https://blog.youkuaiyun.com/mgcps/article/details/136651317</guid><author>mgcps</author><pubDate>Tue, 12 Mar 2024 14:22:48 +0800</pubDate><description><![CDATA[【代码】学点C# LinQ。]]></description><category></category></item><item><title><![CDATA[delphi 任意进制转换]]></title><link>https://blog.youkuaiyun.com/mgcps/article/details/113246810</link><guid>https://blog.youkuaiyun.com/mgcps/article/details/113246810</guid><author>mgcps</author><pubDate>Wed, 27 Jan 2021 13:41:14 +0800</pubDate><description><![CDATA[function MyFunction(i,k:int64): string;



function mod_num(n1, n2: int64): int64; //取余数

begin

 result := n1 - n1 div n2 * n2 ;

end;



var

a:TStack&lt;string&gt;;

n,m:int64;

begin

a:=TStack&lt;string&gt;.Create();



n:=i;

while n&gt;=k do

be...]]></description><category></category></item><item><title><![CDATA[delphi Try except on e:Exception do]]></title><link>https://blog.youkuaiyun.com/mgcps/article/details/103249511</link><guid>https://blog.youkuaiyun.com/mgcps/article/details/103249511</guid><author>mgcps</author><pubDate>Tue, 26 Nov 2019 08:10:40 +0800</pubDate><description><![CDATA[except on e:Exception do

//判断单位转换率

 try

  um_rate := vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat;

  if um_rate &lt;= 0 then

   abort

  else if (vp_mstr.F('vp_...]]></description><category></category></item></channel></rss>