初学delphi
今天女朋友的一门课,要求用delphi 软件编程,内容是一个计算器。当然,这个工作肯定是落在我的头上了。
这个软件是我第一次使用,边自学边进行代码编写,在n多次修改完善之后,终于成形。功能不是很多,跟C#很相似,但发现之前有很多在专业课中没有实现的功能,颇有成就感。
unit jisuanqi;
//王永维,实现简单的加减乘除计算
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
shu1,shu2:Integer;
Shu11,Shu22:String;
fuhao:String;
shu1changdu,shu2changdu:Integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text :=edit1.Text+'';
end; procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text :=edit1.Text+'';
end; procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text :=edit1.Text+'';
end; procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text :=edit1.Text+'';
end; procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.Text :=edit1.Text+'';
end; procedure TForm1.Button6Click(Sender: TObject);
begin
edit1.Text :=edit1.Text+'';
end; procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.Text :=edit1.Text+'';
end; procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.Text :=edit1.Text+'';
end; procedure TForm1.Button9Click(Sender: TObject);
begin
edit1.Text :=edit1.Text+'';
end; procedure TForm1.Button10Click(Sender: TObject);
begin
edit1.Text :=edit1.Text+'';
end; procedure TForm1.Button11Click(Sender: TObject);
begin
edit1.Text :='';
end; procedure TForm1.Button12Click(Sender: TObject);
begin
Shu11:=Edit1.text;
shu1changdu:=length(Shu11);
shu1:=StrtoInt(Edit1.text); //将字符串转变为整型
edit1.Text :=edit1.Text+'+';
fuhao:='+';
end; procedure TForm1.Button13Click(Sender: TObject);
begin
Shu11:=Edit1.text;
shu1changdu:=length(Shu11);
shu1:=StrtoInt(Edit1.text); //将字符串转变为整型
edit1.Text :=edit1.Text+'-';
fuhao:='-';
end; procedure TForm1.Button14Click(Sender: TObject);
begin
Shu11:=Edit1.text;
shu1changdu:=length(Shu11);
shu1:=StrtoInt(Edit1.text); //将字符串转变为整型
edit1.Text :=edit1.Text+'*';
fuhao:='*';
end; procedure TForm1.Button15Click(Sender: TObject);
begin
Shu11:=Edit1.text;
shu1changdu:=length(Shu11);
shu1:=StrtoInt(Edit1.text); //将字符串转变为整型
edit1.Text :=edit1.Text+'/';
fuhao:='/';
end; procedure TForm1.Button16Click(Sender: TObject);
begin
Shu22:=Edit1.text;
shu2changdu:=length(Shu22); if fuhao='+' then
begin
Shu22:=copy(Shu22,shu1changdu+,shu2changdu); //截取出第二个数
shu2:=StrtoInt(Shu22); //将字符串转化为整形
edit1.Text :=InttoStr(shu1+shu2);
end;
if fuhao='-' then
begin
Shu22:=copy(Shu22,shu1changdu+,shu2changdu); //截取出第二个数
shu2:=StrtoInt(Shu22); //将字符串转变为整型
edit1.Text :=InttoStr(shu1-shu2);
end;
if fuhao='*' then
begin
Shu22:=copy(Shu22,shu1changdu+,shu2changdu); //截取出第二个数
shu2:=StrtoInt(Shu22); //将字符串转变为整型
edit1.Text :=InttoStr(shu1*shu2);
end;
if fuhao='/' then
begin
Shu22:=copy(Shu22,shu1changdu+,shu2changdu); //截取出第二个数
shu2:=StrtoInt(Shu22); //将字符串转变为整型
edit1.Text :=InttoStr(shu1 Div shu2);
end;
fuhao:='';
end; end.
初学delphi的更多相关文章
- 初学 Delphi 嵌入汇编[1] - 汇编语言与机器语言
非科班出身, 现在才接触汇编, 惭愧呀, 好好学! 主选课本是清华大学王爽老师的<汇编语言>. 推荐 王爽老师的汇编网 汇编语言之前是机器语言. 机器语言是机器指令的集合, 机器指令是一系 ...
- Delphi的BPL介绍和使用 转
了解BPL和DLL的关系将有助于我们更好地理解DELPHI在构件制作.运用和动态.静态编译的工作方式.对初学DELPHI但仍对DELPHI开发不甚清晰的朋友有一定帮助.BPL vs. DLL(原文ht ...
- Delphi在win7/vista下写注册表等需要管理员权限的解决方案
看到论坛好多人问win7下写注册表的问题,我结合自己的理解写了一点东西,首先声明一下,本人初学Delphi,水平有限,大家见笑了,有什么不对之处请老鸟多指点. [背景]win7/Vista提供的UAC ...
- DELPHI的BPL使用
了解BPL和DLL的关系将有助于我们更好地理解DELPHI在构件制作.运用和动态.静态编译的工作方式.对初学DELPHI但仍对DELPHI开发不甚清晰的朋友有一定帮助.第一部分:有关包的介绍 一般我们 ...
- 在DELPHI中动态创建控件以及控件的事件
在DELPHI中我们经常要动态的创建控件以及控件的事件.例如,我们可能想根据程序需要动态的创建一些Tshape组件来创建某个图形,并使得在鼠标移动上去之后可以完成某些操作.这一般需要需要三步: 生成一 ...
- delphi7开发webservice部属在apache服务器中 转
delphi7开发webservice部属在apache服务器中 delphi7 webservice apache 用Delphi7开发Web Service程序,并把服务程序放在apache We ...
- Qt: 记事本源代码
界面编程之实例学习,系统记事本是个极好的参考,初学Delphi及后之c#,皆以记事本为参考,今以Qt学习,亦是如此. 期间搭建开发环境,复习c++知识,寻找模块对应功能,不一而足:现刻录其模块代码,以 ...
- Delphi初学者应小心的六大陷阱
Delphi初学者应小心的六大陷阱 作者:子夜编译 初学DelphiI的人,由于各种原因,对DelphiI中的许多概念不能很好的理解,并由此带来了许多的问题,或者是开发出的程序稳性不好 ...
- 【Java二十周年】Delphi转行java的一些小感触
本文纯属一届小码农对java使用过程的体验感触 目录: 初遇java编程语言 与java的擦肩 深入java 跨平台性 开源支持 web的支撑 初遇java编程语言 刚上大学的时候,完全是个电脑盲.刚 ...
随机推荐
- 递归与非递归打印乘法口诀表--Scala(指令式、函数式思维练习)
object Test extends App { def printMultiTable() { var i = 1 while (i < 10) { var j = 1 while (j & ...
- [硬件]Robot运动控制
思考问题:机器人运动控制如何与图形界面交互? 不得不说,先锋机器人的软件做的真不怎么样.图形界面交互用户体验很差. 现在我遇到一个很现实的问题:SLAM需要采集激光数据和机器人的位姿,同时我还要再这个 ...
- 解决PHP5.6版本“No input file specified”的问题
问题描述:使用TP框架做项目时,在启用REWRITE的伪静态功能的时候,首页可以访问,但是访问其它页面的时候,就提示:“No input file specified.”原因在于使用的PHP5.6是f ...
- 异常:分为 严重性错误:Error 异常:Exception
异常:是在运行时期发生的不正常情况.在java中用类的形式对不正常情况进行了描述和封装对象描述不正常的情况的类,就称为异常类以前:正常流程代码和问题处理代码相结合现在将正常流程代码和问题处理代码分离, ...
- sync修饰符的简易说明
其实这个就说的很好了. sync会自动更新父组件的数据 原本valuechild 的值是222,父页面显示的222,把值传递给子组件 子组件也显示的222, 我点击子组件的按钮 把333传递给父组件, ...
- 要求根据RandomStr.java:使用类型转换生成六位验证字符串,示例程序每次运 行时,都会生成不同的字符串。
1.程序设计思想验证码 ①定义一个字符串变量来保存随机生成的. ②利用循环产生六位随机数,在产生每一位时将其转换为char类型并写在字符串后面. ③利用对话框显示生成的验证码,并提示用户输入验证码. ...
- andorid CmakeLists
# cmake要求低版本 cmake_minimum_required(VERSION 3.4.1) # Creates and names a library, sets it as either ...
- Dapper基础入门
Dapper是一个轻量级的ORM.之前最常用的ORM是EF,其实EF底层是Ado.net实现的. 现在基本上已经远离SqlHelper时代了. Dapper是开源的 https://github.c ...
- uml的几种关系总结
UML类图几种关系的总结 在UML类图中,常见的有以下几种关系:泛化(Generalization), 实现(Realization),关联(Association),聚合(Aggregati ...
- LeetCode21.合并两个有序链表
将两个有序链表合并为一个新的有序链表并返回.新链表是通过拼接给定的两个链表的所有节点组成的. 示例: 输入:1->2->4, 1->3->4 输出:1->1->2- ...