随笔分类 - Delphi
摘要：Break语句 Break语句用于跳出循环，当一个循环没有达到循环结束的条件并要结束循环时，使用Break语句。 function GetValue:integer; var i,j:integer; begin i:=0; for j:=0 to 20 do begin i:=i+j; if i>
阅读全文
摘要：#### for…do语句 ```pascal //循环变量为整数类型 function GetIntLoopNumber:integer; var iResult,iCount:integer; begin iResult:=0: for iCount:=0 to 10 do Inc(iResul
阅读全文
摘要：If then else begin if 条件 then 语句块 else 语句块; end; // 或 begin if 条件1 then begin 语句块1; end else if 条件2 then begin 语句块2; end else if 条件3 then begin 语句块3;
阅读全文
摘要：InputBox procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := InputBox('输入窗口标题', '输入提示', '默认输入内容'); Label4.Caption := str ; e
阅读全文
摘要：隐式转换 遵循从小向大的转换原则，如整数类型数据中转换的顺序为Shortint → Smallint → Longint → lnt64 var i:Shortint； j:Smallint； k:Longint； l:Int64； begin i:=120； j:=i； k:=j; l:=k; e
阅读全文
摘要：赋值运算符 iTemp:=300; 算术运算符 逻辑运算符 (1)布尔运算 begin if (i>50)and (j<100)then result:=i+j; end; (2)位逻辑运算 var i.j,k,l:integer; begin i:=3: j:=12; k:=i or j; edi
阅读全文
摘要：枚举类型 Type WeekDays=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday); Var WeekDay:WeekDays; 或者直接声明 或者直接声明 Var WeekDay:(Sunday,Monday,Tuesday,
阅读全文
摘要：类声明 Type 类名=Class（父类名） 域 属性 方法 End; 例如 Type Tperson=class(Tobject) Name:String; Age:integer; Addr:String; Procedure SetAge(Value:integer); Function Ge
阅读全文
摘要：指针声明 Type TmingRi=^integer; var s1.s2:^string; s3:string; begin new(s1); new(s2); s1^:='MingRiSoft'; s2^:='kaihongliu'; s1:=s2； //指针赋值给指针，更换钥齿 s2^:='W
阅读全文
摘要：#### 数组声明 ```pascal //一维静态数组 Type CompanyName=Array [1..20]of string; Var MyCompany:CompanyName; 或者直接声明 Var MyCompany:Array [1..20]of string; ``` ```p
阅读全文
摘要：#### 文件声明 ```pascal Type TMingRiFile=file of integer; ``` #### 文件操作 ```pascal var myfile:textfile; //定义一个文本文件 begin Assignfile(myfile,'c:\Ikh001.txt')
阅读全文
摘要：#### 记录声明 ```pascal Type Student=record Name:String; Age:integer; Grade:String; Addr:String; End; Var CollageStudent:Student; 或者直接声明 Var CollageStuden
阅读全文
浙公网安备 33010602011771号