摘要：
Form1有一个button，当Form1.Create时触发Button的OnClick事件，OnClick事件调用Unit2单元中的函数；unit Unit2; interface uses FMX.Dialogs, FMX.StdCtrls;type TBClick = class p... 阅读全文
摘要：
1.创建Form1；2.创建FMXFrame(New -> Other->Delphi Files -> FMXFrame); // 单元名为UnitFrame，窗体名为frm 在窗体里放一个button，一个memo，这里只是测试有木有引用到。3.调用。uses UnitFrame;var ... 阅读全文
摘要：
功能：实现年月日压缩，初始化时item是所有年，点击年展开月，点击月展开天，再点击则收缩。思路：实际上一开始是将所有item显示，只是将月日的item.height赋值为0， 记录每一行的item的index，包括年，月，日， 找到年的item，点击时，显示月的item，赋month.hei... 阅读全文
摘要：
获取0至100中的0至29,42至100， 刚开始我想的太多,要小于29，大于42，这么多条件什么的。。。。 不多说了，我自己脑子没转过来var i,j: integer;begin j := 0; for i := 0 to 99 - 13 do begin memo1.Lines.a... 阅读全文
摘要：
1.拖一个TrayIcon控件2.拖一个ApplicationEvents控件3.拖一个PopupMenu控件将TrayIcon的PopupMenu属性与PopupMenu控件关联unit UnitMain;interfaceuses Winapi.Windows, Winapi.Messages... 阅读全文
摘要：
实现原理：1.拖一个rectangle控件，Align属性为TOP2.拖一个Split控件，Align为Top3.拖Rectangle，Align为Bottom4.拖Split，Align为Bottom5.左边、右边依次类推，6.最后拖一个Rectangle，Align为Client，Stroke属... 阅读全文
摘要：
unit UnitMain;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.... 阅读全文
摘要：
{目的，取得下面字符串中的每一项内容，如s：='a,b,c,d',要去的用逗号隔开的每一项内容这时采用Tstring，会方便很多，TString是继承TStringList带有List所有属性。}var str: string; ss: TStringList;begin str := 'a... 阅读全文
摘要：
{ "action": "******", "data": [ { "Info1": { "ID": "1", "Name": "张三", }, "Info2": [ ...... ] }, "... 阅读全文
摘要：
delphi中数组就跟string使用类似，数组分为：动态数组和静态数组 还可根据数据的功能分为：数组（一维数组）、二维数组、三维数组、、、静态数组： 固定长度，内容需要定义时添加。动态数组： 故名思意没固定长度，可任意添加修改内容。使用时必须设置长度，否则编译器不通过。实际上用法都是一样，分为取出... 阅读全文