Delphi7

程序化结构设计

if…else

unit demo12;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Label1: TLabel;Label2: TLabel;Edit1: TEdit;Label3: TLabel;Label4: TLabel;Button1: TButton;Button2: TButton;procedure FormCreate(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Edit1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;temp1: integer;temp2: integer;result : integer;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or Es_right);
temp1 := Random(100);
temp1 := Random(100);
temp2 := Random(100);
temp2 := Random(100);
Label1.Caption := intToStr(temp1);
Label2.Caption := intToStr(temp2);
result := temp1 + temp2;
end;procedure TForm1.Button2Click(Sender: TObject);
var tempResult : integer;
begintempResult := strToInt(Edit1.Text);if(result = tempResult) then//showMessage('恭喜你，猜对了')messageBox(handle, '恭喜你，猜对了','提醒',MB_OK) // MessageDia()elseshowMessage('哈哈，猜错了，再来');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
temp1 := Random(100);
temp2 := Random(100);
Label1.Caption := intToStr(temp1);
Label2.Caption := intToStr(temp2);
result := temp1 + temp2;
end;procedure TForm1.Edit1Click(Sender: TObject);
beginEdit1.Text := '';
end;end.

case

米红灯

unit demo13;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Label1: TLabel;Timer1: TTimer;procedure FormCreate(Sender: TObject);procedure Timer1Timer(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
beginForm1.AutoSize := true;Label1.AutoSize := true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
beginForm1.Left := random(500);Form1.top := random(600);Label1.Font.Size := random(30);case (random(5)) of  // 颜色随机0: Label1.color := clYellow;1: Label1.color := clBlue;2: Label1.color := clRed;3: Label1.color := clWhite;4: Label1.color := clSkyBlue;5: Label1.color := clwindow;end;case (random(5)) of  // 颜色随机0: Label1.font.color := clYellow;1: Label1.font.color := clBlue;2: Label1.font.color := clRed;3: Label1.font.color := clWhite;4: Label1.font.color := clSkyBlue;5: Label1.font.color := clwindow;end;
end;end.

demo

密码验证

unit demo14;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Label1: TLabel;Edit1: TEdit;Button1: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Edit1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;
constpassword : string = 'hopeful';varcount : integer = 3;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
beginSetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or Es_center); // 居中对齐Edit1.Invalidate;label1.AutoSize := true;label1.Width := 200;
end;procedure TForm1.Button1Click(Sender: TObject);
varstr : string;
beginstr := Edit1.Text;if(str = password) thenmessageBox(handle, '恭喜你，猜对了','提醒',MB_OK)elsebegincount := count - 1;if(count < 1) thenbeginmessageBox(handle, '哈哈，您猜错3次了，程序将会自动关闭','警告',MB_OK or MB_ICONSTOP);Close;endelsebeginlabel1.Caption := '哈哈，您猜错,还有' + intToStr(count) + '次机会';label1.Width := 200;endend
end;procedure TForm1.Edit1Click(Sender: TObject);
beginEdit1.Text := '';
end;
end.

可以显示密码的密码验证

unit demo15;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Button1: TButton;CheckBox1: TCheckBox;Label1: TLabel;procedure FormCreate(Sender: TObject);procedure Edit1Click(Sender: TObject);procedure Button1Click(Sender: TObject);procedure CheckBox1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;count : integer = 3;showPwd : boolean = false;
constpassword : string = 'hopeful';implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
beginSetWindowLong(Edit1.Handle,GWL_STYLE,getWindowLong(Edit1.Handle,GWL_STYLE) or Es_center);Edit1.invalidate;Label1.Width := 220;
end;procedure TForm1.Edit1Click(Sender: TObject);
beginEdit1.Text := '';
end;procedure TForm1.Button1Click(Sender: TObject);
vartemp : string;
begintemp := Edit1.Text;if(password = temp) thenbeginmessageBox(handle, '恭喜你，猜对了','提醒',MB_OK);count := 3;endelsebegincount := count - 1;if(count < 1) thenbeginmessageBox(handle, '哈哈，您猜错3次了，程序将会自动关闭','提醒',MB_OK or MB_ICONSTOP);close;endelseshowMessage('哈哈，猜错了，再来');end
end;procedure TForm1.CheckBox1Click(Sender: TObject);
beginshowPwd := not showPwd;if(showPwd) thenEdit1.PasswordChar := #0elseEdit1.PasswordChar := '$';
end;end.

简答加密且显示密码的密码验证

unit demo15;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Button1: TButton;CheckBox1: TCheckBox;Label1: TLabel;procedure FormCreate(Sender: TObject);procedure Edit1Click(Sender: TObject);procedure Button1Click(Sender: TObject);procedure CheckBox1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;count : integer = 3;showPwd : boolean = false;
constpassword : string = 'hopeful';implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
beginSetWindowLong(Edit1.Handle,GWL_STYLE,getWindowLong(Edit1.Handle,GWL_STYLE) or Es_center);Edit1.invalidate;Label1.Width := 220;
end;procedure TForm1.Edit1Click(Sender: TObject);
beginEdit1.Text := '';
end;procedure TForm1.Button1Click(Sender: TObject);
vartemp : string;temp1 : String;temp2 : string;
begintemp := Edit1.Text;temp1 := temp;delete(temp1,1,4);temp2 := password;delete(temp2,1,4);if(temp1 = temp2) thenbeginmessageBox(handle, '恭喜你，猜对了','提醒',MB_OK);count := 3;endelsebegincount := count - 1;if(count < 1) thenbeginmessageBox(handle, '哈哈，您猜错3次了，程序将会自动关闭','提醒',MB_OK or MB_ICONSTOP);close;endelseshowMessage('哈哈，猜错了，再来');end
end;procedure TForm1.CheckBox1Click(Sender: TObject);
beginshowPwd := not showPwd;if(showPwd) thenEdit1.PasswordChar := #0elseEdit1.PasswordChar := '$';
end;end.

屏保

unit demo16;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, jpeg, ExtCtrls, StdCtrls;typeTForm1 = class(TForm)Image1: TImage;Image2: TImage;Timer1: TTimer;Label1: TLabel;Edit1: TEdit;Button1: TButton;procedure FormCreate(Sender: TObject);procedure Timer1Timer(Sender: TObject);procedure Edit1Click(Sender: TObject);procedure FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;showPwdEdit : boolean;count : integer;seconds :integer; // 三次密码错误 锁定时间isLockStart : boolean; // 是否开始锁定constwidth : integer = 1920;height: integer = 1080;password: string = 'hopeful';maxSeconds : integer = 10;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
beginLabel1.width := 250;Form1.Width := width;Form1.Height := height;Form1.Left := 0;Form1.Top := 0;Image1.Width := width;Image1.Height := height;Image1.Left := 0;Image1.Top := 0;Image2.Width := width;Image2.Height := height;Image2.Left := 0;Image2.Top := 0;Button1.Visible := false;Edit1.Visible := false;// 显示密码编辑框showPwdEdit := false;isLockStart := false; // 锁定未开始// 密码最大输入次数count := 3;end;procedure TForm1.Timer1Timer(Sender: TObject);
beginif(isLockStart) thenseconds := seconds + 1;Label1.left := Random(width - 250);Label1.top := Random(height -  20);case (Random(5)) of0:Label1.font.color := clTeal;1:Label1.font.color := clGreen;2:Label1.font.color := clRed;3:Label1.font.color := clBlue;4:Label1.font.color := clPurple;end;// 设置字体Label1.Width := 250;Label1.Alignment := taCenter;
end;procedure TForm1.Edit1Click(Sender: TObject);
beginEdit1.Text := '';
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
beginif(Key = VK_SPACE) thenbeginif(showPwdEdit)  thenbeginshowPwdEdit := false;Button1.Visible := false;Edit1.Visible := false;Label1.Visible := true;endelsebeginshowPwdEdit := true;Button1.Visible := true;Edit1.Visible := true;Label1.Visible := false;endend
end;procedure TForm1.Button1Click(Sender: TObject);
varpwd : string;
beginpwd := Edit1.Text;if(password = pwd) thenbegincount := 3;Edit1.Text := '恭喜你，密码正确';close;endelsebeginif(isLockStart) thenbeginif(seconds < maxSeconds) thenmessageBox(handle, '您已猜错3次了，请稍后再次重试','警告',MB_OK or MB_ICONSTOP)elsebeginisLockStart := false; // 重置是否开始锁定seconds := 0; // 重置锁定时间count := 3;endendelsebegincount := count - 1;if(count < 1) thenbeginmessageBox(handle, '哈哈，您猜错3次了，请稍后重试','警告',MB_OK or MB_ICONSTOP);isLockStart := true;endelsebeginEdit1.Text := '密码错误,您还有' + intToStr(count) + '次机会';endendend
end;end.

循环

while循环

unit demo17;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Label1: TLabel;Edit2: TEdit;Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
varnum1 : integer;num2 : integer;sum : integer;
beginsum := 0;trynum1 := strToInt(Edit1.Text);num2 := strToInt(Edit2.Text);while(num1 <= num2) dobeginsum := sum + num1;num1 := num1 + 1;end;Button1.Caption := intToStr(sum);exceptButton1.Caption := '请输入合法数字';end
end;end.

repeat…until

unit demo17;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Label1: TLabel;Edit2: TEdit;Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
varnum1 : integer;num2 : integer;sum : integer;
beginsum := 0;trynum1 := strToInt(Edit1.Text);num2 := strToInt(Edit2.Text);(*while(num1 <= num2) dobeginsum := sum + num1;num1 := num1 + 1;end;*)repeatsum := sum + num1;num1 := num1 + 1;until(num1 > num2);Button1.Caption := intToStr(sum);exceptButton1.Caption := '请输入合法数字';end
end;end.

for循环

升序 to

unit demo17;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Label1: TLabel;Edit2: TEdit;Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
varnum1 : integer;num2 : integer;sum : integer;
beginsum := 0;trynum1 := strToInt(Edit1.Text);num2 := strToInt(Edit2.Text);(*while(num1 <= num2) dobeginsum := sum + num1;num1 := num1 + 1;end;repeatsum := sum + num1;num1 := num1 + 1;until(num1 > num2); *)for num1 := strToInt(Edit1.Text) to num2 dosum := sum + num1;Button1.Caption := intToStr(sum);exceptButton1.Caption := '请输入合法数字';end
end;end.

降序 downTo

unit demo17;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Label1: TLabel;Edit2: TEdit;Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
varnum1 : integer;num2 : integer;sum : integer;
beginsum := 0;trynum1 := strToInt(Edit1.Text);num2 := strToInt(Edit2.Text);(*while(num1 <= num2) dobeginsum := sum + num1;num1 := num1 + 1;end;repeatsum := sum + num1;num1 := num1 + 1;until(num1 > num2); for num1 := strToInt(Edit1.Text) to num2 dosum := sum + num1; *)for num2 := strToInt(Edit2.Text) DownTo num1 dosum := sum + num2;Button1.Caption := intToStr(sum);exceptButton1.Caption := '请输入合法数字';end
end;end.

数组

随机数获取最大/最小值

unit demo18;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Button1: TButton;Label1: TLabel;Label2: TLabel;Edit2: TEdit;Edit3: TEdit;procedure Button1Click(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
varmin : integer;max : integer;i : integer;numArr : Array[1..10] of Integer;
beginrandomize; // 设置随机种子，使其每次产生的随机数不同min := 0;max := 0;Edit1.Text := '';for i := 1 to 10 dobeginnumArr[i]:= Random(100);Edit1.Text := Edit1.Text + intToStr(numArr[i]);if(i < 10) thenEdit1.Text := Edit1.Text + ','end;min :=  numArr[1];max :=  numArr[1];for i := 1 to 10 dobeginif(min>numArr[i]) thenmin := numArr[i];if(max<numArr[i]) thenmax := numArr[i];end;Edit2.Text := intToStr(max);Edit3.Text := intToStr(min);end;procedure TForm1.FormCreate(Sender: TObject);
beginSetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or Es_center); // 居中对齐
end;end.

二维数组

Type arr1 = Array[下标类型1,下标类型2] of 基本数据类型
Type arr2 = Array[下标类型1] of Array[下标类型2] of 基本数据类型

统计分数

unit demo19;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, StdCtrls;typeTForm1 = class(TForm)table1: TStringGrid;Button1: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure table1DrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begintable1.cells[1,0]:='语文';table1.cells[2,0]:='数学';table1.cells[3,0]:='外语';table1.cells[4,0]:='总成绩';table1.cells[0,1]:='小明';table1.cells[0,2]:='小红';
end;procedure TForm1.Button1Click(Sender: TObject);
begintrytable1.cells[4,1] := intToStr(strToInt(table1.cells[1,1]) + strToInt(table1.cells[2,1]) + strToInt(table1.cells[3,1]));excepttable1.cells[4,1] := '数据非法';end;trytable1.cells[4,2] := intToStr(strToInt(table1.cells[1,2]) + strToInt(table1.cells[2,2]) + strToInt(table1.cells[3,2]));excepttable1.cells[4,2] := '数据非法';end
end;procedure TForm1.table1DrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
begin
with Sender as TStringGrid dobeginCanvas.FillRect(Rect);DrawText(Canvas.Handle, Pchar(Cells[ACol, ARow]),Length(Cells[ACol, ARow]), Rect,DT_CENTER or DT_SINGLELINE or DT_VCENTER);end;
end;end.

Edit编辑框

右对齐

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or Es_right); // 居右对齐
Edit1.Invalidate;
SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or Es_center); // 居中对齐
end;

窗口置顶

setwindowpos(self.handle,HWND_TOPMIOST,0,0,0,0,SWP_NOMOVE  or  SWP_NOSIZE);//窗口置顶
setwindowpos(self.handle,HWND_NOTOPMIOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);//取消窗口置顶

表格文本居中

procedure TForm1.table1DrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
begin
with Sender as TStringGrid dobeginCanvas.FillRect(Rect);DrawText(Canvas.Handle, Pchar(Cells[ACol, ARow]),Length(Cells[ACol, ARow]), Rect,DT_CENTER or DT_SINGLELINE or DT_VCENTER);end;
end;

感谢小甲鱼的精心制作：视频教程
视频教程
待续。。。

Delphi7学习记录-demo实例相关推荐

fake库学习记录附实例
之前领导叫我帮忙生成一组不重复的名字,我当时用的是random函数,脚本如下(抄自某网友) import random import timedef random_name():xing = '赵钱孙 ...
Pytorch学习记录-torchtext和Pytorch的实例（使用神经网络训练Seq2Seq代码）
Pytorch学习记录-torchtext和Pytorch的实例1 0. PyTorch Seq2Seq项目介绍 1. 使用神经网络训练Seq2Seq 1.1 简介,对论文中公式的解读 1.2 数据预 ...
Elasticseach 从零开始学习记录（一） - 单实例环境搭建
声明: 本文章是本人第一次学习ES,把过程和过程中遇到问题,以及百度后解决方案记录下来,如有问题,希望高手指出,谢谢. 环境:服务器为linux centos7 64位, jdk8 , ES7.14. ...
MOOSE多物理场耦合平台入门学习记录一（稳态热传导程序实例）
MOOSE多物理场耦合平台入门学习记录 MOOSE的简介 MOOSE的安装 Linux和Mac Windows MOOSE程序的一般开发流程-以导热微分方程为例简单问题的有限元处理 MOOSE程序的 ...
Python学习记录day3
2019独角兽企业重金招聘Python工程师标准>>> Python学习记录 day3 今天是银角大王武sir讲课.先回顾了上节课所学,然后讲到了面向对象思想. set set是一个 ...
QQ邮箱接受天气查询阿里云自动运行学习记录
QQ邮箱接受天气查询阿里云自动运行学习记录学习记录 QQ邮箱接受天气查询阿里云自动运行学习记录前言一.对于天气的查询 1.中华万年历API接口,获取天气信息二.qq邮箱的使用步骤 ...
【VUE】学习记录一
[VUE]学习记录学习视频为:尚硅谷Vue2.0+Vue3.0全套教程丨vuejs从入门到精通 1.查询vue知识点: https://v2.cn.vuejs.org/ 2. 下载和引入 2.1 下 ...
kubernetes 学习记录
Kubernetes 学习记录一.`kubernetes` 入门学习 1.1 部署第一个 `Deployment` 1.2 查看资源的命令 1.3 发布应用程序 1.3.1 暴漏服务的三种模式 1. ...
php文件上传学习记录
php文件上传学习记录 1.多文件上传及预览功能效果: 代码分两部分: 1.index02.html 2.file_preview.php 1.index02.html: <!DOCTYPE h ...
070_《Delphi7程序设计技巧与实例》
<Delphi7程序设计技巧与实例> Delphi 教程系列书籍 (070) <Delphi7程序设计技巧与实例> 网友(邦)整理 EMail: shuaihj@163.co ...

Delphi7学习记录-demo实例

Delphi7

程序化结构设计

if…else

case

demo

密码验证

可以显示密码的密码验证

简答加密且显示密码的密码验证

屏保

循环

while循环

repeat…until

for循环

数组

随机数获取最大/最小值

二维数组

统计分数

Edit编辑框

窗口置顶

表格文本居中

Delphi7学习记录-demo实例相关推荐

最新文章

热门文章