摘要： 说明：本程序用delphi10.4重写编写 一、最后效果 二、源码 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Cla 阅读全文

摘要： 一、最后效果 二、代码： 1 procedure TForm1.Button1Click(Sender: TObject); 2 begin 3 if OpenDialog1.Execute then 4 Edit1.Text:=OpenDialog1.FileName; 5 end; 6 7 8 阅读全文

摘要： 阅读全文

摘要： 一、打开，保存等组件在什么地方 1.组件在Dialogs内 2.点击组件栏右下箭头后进行搜索 3.需要添加如下组件 4.打开文件代码： 1 {$R *.dfm} 2 var 3 Lujing:String; 4 procedure TForm1.OpenExecute(Sender: TObject 阅读全文

摘要： 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 阅读全文

摘要： 1.打开网页代码： 首先要在user中加入ShellAPI，打开网页需要一个windows的API：ShellExecute(Application.Handle,nil, '网址', nil, nil, SW_SHOWNORMAL); 2.delphi design界面设计窗口被关闭了，怎么还原？ 阅读全文

摘要： 一、本节重点： 过程传值、传址、常量参数； 二、三种传递方法 （一)、传值 1、软件效果 2、代码： 1 procedure Tform1.mypro(str:string); //传值过程定义 2 begin 3 str:='学习编程'; 4 showmessage(str); 5 end; 6 阅读全文

摘要： 一、效果图 二、知识点 1.过程在 Delphi 中，运行结束后没有返回值的子程序称为过程，过程有三种类型： 标准过程 - 系统内部已经定义好的过程，在需要的时候直接调用即可。 事件过程 - 当对象接收到某个动作时常数一个事件，自动执行该对象事件的一段程序，这段程序就是一个事件过程。 自定义过程 - 阅读全文

摘要： 作业源码：https://yanglu-115.lanzouq.com/ifW6q1ce0hbg 一、程序框图： 二、代码 1、提取编辑框数据到数组 1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 i:Integer; 4 begi 阅读全文

摘要： var lusername =location.search.split("=")[1]; if(!lusername){ lusername="水晶天使"; } else{ lusername=unescape(lusername); } function check(obj){ if (obj. 阅读全文