摘要：
在单元接口interface部分声明的过程或函数在整个单元内有效。当其他单元（客户单元）引用 该单元时，这些过程和函数可以被其他客户单元使用。 unit Unitl; //单元首部 interface //接口部分 function getstring(sl,s2:string):string;/∥ 阅读全文
posted @ 2023-02-18 15:51
德琪
阅读(16)
评论(0)
推荐(0)
摘要：
名称相同而参数的数据类型和数量不同的过程或函数，称为重载 ```pascal function getvalue(x:integer;s1:string):string;overload； begin result:=inttostr(x)+s1; end; function getvalue(x, 阅读全文
posted @ 2023-02-18 15:41
德琪
阅读(39)
评论(0)
推荐(0)
摘要：
#### 传值、传址 ```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
德琪
阅读(15)
评论(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)
浙公网安备 33010602011771号