Loading...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls...
//TStringList 常用方法与属性 : var List: TStringList; i: Integer; begin List := TStringList.Creat...
现在很多学校老师布置作业之后,都会要求完成作业的家长在群内进行接龙 没有接龙的家长代表未完成作业 那么接下来的事情就是一个日复一日的繁琐工作 "检查谁没交作业" 由于一个班级的学生并不是区区几个...
在 Object Pascal 里面,我们可以把 if 判断式成立时要执行的两个指令,用一 个 Exit 指令来取代,Exit 指令可以直接把要当做回传值的数值当成参数,就 像 C 语言里面的 ...
预先宣告 当我们需要使用一个识别符号,编译程序必须预先得知这个符号,并且必须 知道这个识别符号将会指向的参考地址。为了满足这个需求,我们必须在使 用任何识别符号之前先提供完整的定义。然而,有些情...
delphi这类结构很强的语言N多人不推荐使用goto,甚至于我在各类书籍上面都完全不推荐goto语句,可是他的神秘还是让我自己去网上搜索了资料,整理之后发现这个语句大概就是这么用的了proce...
var S: string; I: Integer; Found: Boolean; begin S := 'Hello World'; Found := False; I := L...
var List: TStringList; begin List := TStringList.Create; List.Delimiter := ','; List.DelimitedTex...
unit unitName; interface // 其他我们在本单元会引入的单元名称,在 interface 这个区段中宣告 uses unitA, unitB, unitC; // 要公...
unit Unit1; interface uses //首先引入system.IOUtils单元 //变量DirList需要System.Types单元 System.Types, s...
--20210620 1.更新了源码,加入时间的打印以及修复一些小BUG,和点击Memo清空内容不便于复制等问题. --20210617 昨晚上做好的,今天早上发现NAS没有同步,捯饬两下代码...
新建--其他--控制台应用程序(Console Application)program Project1; {$APPTYPE CONSOLE} {$R *.res} uses Sys...
首先遍历枚举类型使用的是GetEnumName,这个函数可以取得Name的值(非Value值),然后使用这个函数,在uses里面必须导入一个东西 这个东西名字叫做System.TypInfo,没...
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,...
今天用Delphi7的时候在编译的时候忽然提示我授权过期不可用,这可真是太不友好了 在网上搜索了一下发现,还是有不少人都出现了这样的问题的 然后其实我发现问题并不是授权问题,也许授权确实有问题,...
这玩意儿其实挺简单的,可就是没见到谁写一个给广大的家长使用,反正自己刚开始学习pascal,顺便写一个 蓝奏云居然打不开了,我那么多东西传上去大家都下不了了,真让人失望. 看来虽然百度限速了,可...