德琪 - 博客园

2023年2月18日

摘要： #### 传值、传址 ```pascal procedure Tform1.myproc1(i: string); //传值 begin i:= 'A' ; end; procedure TForm1.Button1Click(Sender: TObject); var x: string; beg 阅读全文

posted @ 2023-02-18 15:40 德琪阅读(26) 评论(0) 推荐(0)

打断语句

摘要： 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> 阅读全文

posted @ 2023-02-18 14:11 德琪阅读(66) 评论(0) 推荐(0)

循环结构语句

摘要： #### for…do语句 ```pascal //循环变量为整数类型 function GetIntLoopNumber:integer; var iResult,iCount:integer; begin iResult:=0: for iCount:=0 to 10 do Inc(iResul 阅读全文

posted @ 2023-02-18 00:52 德琪阅读(14) 评论(0) 推荐(0)

条件判断语句

摘要： 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; 阅读全文

posted @ 2023-02-18 00:06 德琪阅读(29) 评论(0) 推荐(0)

2023年2月17日

inputbox-inputquery-messagedlg

摘要： InputBox procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := InputBox('输入窗口标题', '输入提示', '默认输入内容'); Label4.Caption := str ; e 阅读全文

posted @ 2023-02-17 22:23 德琪阅读(53) 评论(0) 推荐(0)

2023年2月16日

类型转换

摘要：隐式转换遵循从小向大的转换原则，如整数类型数据中转换的顺序为Shortint → Smallint → Longint → lnt64 var i:Shortint； j:Smallint； k:Longint； l:Int64； begin i:=120； j:=i； k:=j; l:=k; e 阅读全文

posted @ 2023-02-16 22:31 德琪阅读(17) 评论(0) 推荐(0)

运算符

摘要：赋值运算符 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 阅读全文

posted @ 2023-02-16 22:31 德琪阅读(55) 评论(0) 推荐(0)

高级数据类型

摘要：枚举类型 Type WeekDays=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday); Var WeekDay:WeekDays; 或者直接声明或者直接声明 Var WeekDay:(Sunday,Monday,Tuesday, 阅读全文

posted @ 2023-02-16 22:06 德琪阅读(29) 评论(0) 推荐(0)

类类型

摘要：类声明 Type 类名=Class（父类名）域属性方法 End; 例如 Type Tperson=class(Tobject) Name:String; Age:integer; Addr:String; Procedure SetAge(Value:integer); Function Ge 阅读全文

posted @ 2023-02-16 22:06 德琪阅读(23) 评论(0) 推荐(0)

指针类型

摘要：指针声明 Type TmingRi=^integer; var s1.s2:^string; s3:string; begin new(s1); new(s2); s1^:='MingRiSoft'; s2^:='kaihongliu'; s1:=s2； //指针赋值给指针，更换钥齿 s2^:='W 阅读全文

posted @ 2023-02-16 22:05 德琪阅读(20) 评论(0) 推荐(0)

DQ