甲鱼
小甲鱼Delphi教程37课《读写修改记录型文件》源码
说明：本程序用delphi10.4重写编写 一、最后效果 二、源码 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Cla ......
小甲鱼delphi学习作业23《围观窗体与组件01》
1.实现字体一个一个出现的代码： 1 implementation 2 3 {$R *.dfm} 4 var 5 str1:string; 6 n,i:Integer; 7 8 procedure TForm1.FormCreate(Sender: TObject); 9 begin 10 str1 ......
小甲鱼delphi学习作业20《浅谈过程与函数02》
一、本节重点： 过程传值、传址、常量参数； 二、三种传递方法 （一)、传值 1、软件效果 2、代码： 1 procedure Tform1.mypro(str:string); //传值过程定义 2 begin 3 str:='学习编程'; 4 showmessage(str); 5 end; 6 ......
小甲鱼delphi学习作业20《浅谈过程与函数01》
一、效果图 二、知识点 1.过程在 Delphi 中，运行结束后没有返回值的子程序称为过程，过程有三种类型： 标准过程 - 系统内部已经定义好的过程，在需要的时候直接调用即可。 事件过程 - 当对象接收到某个动作时常数一个事件，自动执行该对象事件的一段程序，这段程序就是一个事件过程。 自定义过程 - ......
小甲鱼delphi学习作业19《冒泡排序》
作业源码： 一、程序框图： 二、代码 1、提取编辑框数据到数组 1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 i:Integer; 4 begin 5 temp:=''; 6 Str:=Trim(edit1.Text); 7 k: ......