ObjectPascal编程基础讲义.ppt

ObjectPascal编程基础讲义 项目文件－主程序program Project1;?uses Forms, Unit1 in 'Unit1.pas' {Form1};?{$R *.res}?begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run;end. 单元文件单元文件unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Edit3: TEdit; 单元文件Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;?var Form1: TForm1;?implementation{$R *.dfm} 单元文件procedure TForm1.Button1Click(Sender: TObject);var sno,sname : string ;begin sno := edit1.Text ; sname := edit2.Text ; edit3.Text := 'welcome to delphi:' + sno + sname ;end;procedure TForm1.Button2Click(Sender: TObject);begin Form1.Close ;end;end. 变量说明procedure TForm1.Button1Click(Sender: TObject);var eno , ename : String ; // 字符串型（隐含最大长度256个字符） age : Integer ; // 整型 sal : Real ; // 实型 married : Boolean ; // 布尔型 ch : Char ; // 字符型，变量只存放一个字符 cnt ：word ； //无符号16位整型begin … …end; 运算符Object Pascal常用的运算符：算术运算符： ＋、－、*、/、div（整除）、mod（求余）布尔运算符： and（与）、or（或）、not（非）字符串运算符：＋（字符串拼接）集合运算符： ＋（并）、－（差）、*（交）、in（属于）关系运算符： =、< >（不等于）、>、<、<=、 >= 控制语句－分支语句If 条件 then 语句1 else 语句2 ；在第一个编辑框中输入星期几，然后按OK按钮，如果输入的是saturday或sunday，则在第2个编辑框中显示一条信息，并把窗体变黄。 控制语句－分支语句procedure TForm1.Button1Click(Sender: TObject);begin if (Edit1.text = 'saturday') or (Edit1.text ='sunday') then begin edit2.text := 'Why are you working today!' ; //显示一条信息 Form1.Color := clYellow ; //将窗体颜色置为黄色 end else begin edit2.text := 'workday' ; Form1.Color := clBtnFace ; //将窗体颜色置为隐含颜色 end ;end ; 条件语句嵌套例 条件语句嵌套procedure TForm1.Button1Click(Sender: TObject);var grade : integer ;begin grade:= strt