《Delphi2005程序设计及其应用开发》_第2章ObjectPascal程序设计语言.pptVIP

第2章 Object Pascal程序设计语言 ;本章要点 ;2.1 基本字符和符号;2.2 常量与变量;2.2.1 声明常量 ;2.2.2 声明变量 ;Procedure Tform1.Add1click（Sender：Tobject）; Var X,Y:Integer; Begin X:=30; Y:=70; Edit1.Text:=IntToStr(X+Y); End;;2.2.3 变量的作用域 变量分全局变量和局部变量 ，例如： …… implementation var FirstString : string; //全局变量 {$R *.nfm} procedure TForm1.FormCreate(Sender: TObject); begin FirstString := Hello ; //全局变量可以被内部过程访问 end; procedure TForm1.Edit1Change(Sender: TObject); var AddString : string; //局部变量 begin AddString := Edit1.Text; //局部变量只能在本过程内访问 Label1.Caption := FirstString + AddString; //全局变量可以被内部过程访问 end;;2.3 数据类型;2.3.1 简单类型 ;表2-4 布尔类型;Type Tweek=(Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); Tcolor=(Red,Yellow,Blue); Var DayOfWeek:Tweek; Hue:Tcolor; 也可以把类型声明和变量声明合二为一，例如： Var DayOfWeek:=(Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); ;Type THours=0..23; TValidLetter=’A’..’F’; Tdays=(Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); TWorkday= Monday..Friday; {上面枚举型的子界型} 例： procedure TForm1.Button2Click(Sender: TObject); Type THours=0..23; var abc:THours; begin abc:=23; EDIT1.Text:=IntToStr(abc); end;; 在Delphi中，TDateTime的默认数据格式是：yyyy-mm-dd，当然也可以用浮点数来表示。如以下例子中myDate := 35065;与myDate :=1996-1-1; 两个语句是完全等价的。 procedure TForm1.Button1Click(Sender: TObject); Var myDate :TDateTime; begin myDate := 35065; //与myDate :=1996-1-1;等价 ShowMessage( DateToStr(myDate) ); //显示信息1996-1-1 end; ;2.3.2 字符串类型;2.3.3 结构数据类型 ;在一个按钮的OnClick事件句柄中加入如下语句： procedure TForm1.Button1Click(Sender: TObject);;定义一个二维数组： Type Tmattic=array[1..8,1..8] of Integer; Var Mattic: Tmattic; 使用for循环为数组的所有数据赋初值1： Var Col,Row:Integer; for Col:=1 to 8 do for Row:=1 to 8 do Mattic[Col,Row]:=1;;Type TEmployee=Record Name:String[20];