Delphi 基礎（例程 例程返回值）

一、例程：delphi中獨有的稱呼，例程是將具體某個功能的**進行封裝表現形式：

1、過程

2、函式

過程和函式的區別在於有沒有返回值

二、例程的作用

1、可以解決命名衝突問題

2、提高**的重複使用率

3、提高**可維護性

三、使用歷程

1、定義

1

procedure demo1(); //過程2
begin34
end;

函式的定義

1

function demo2(var a : integer;var b : integer) : integer; //函式2
begin
3 writeln(a,','
,b);
4end;5
67procedure demo3(const num1 : array
ofinteger);
8var
9x,y : integer;
10begin
1112
end;

四、例程返回值

1 

14procedure demo1(a : integer;b : integer); //
過程，傳值
15begin
16 writeln(a+b);
17end;18
1923
function demo2(var a : integer;var b : integer) : integer; //
過程，傳位址
24begin
25 writeln(a+b);
26end;27
2829
procedure demo3(const intarray : array
ofinteger);
30var
31i : integer;
32begin
33 writeln('
----------------------------');
34for i := low(intarray) to high(intarray) do
begin
35 writeln(intarray[i],#$09
);36
end;
37 writeln('
陣列長度為：
',length(intarray));
38end;39
40var
41a,b : integer;
4243
begin
44 a := 1
;45 b := 2;46
demo1(a,b);
47demo2(a,b);
48 demo3([4,6,9,7]);//
陣列傳值
49readln;
50end.

1

2function sub1(num3 : integer;num4 : integer;var
sum : integer) : integer;3//
var sum : integer 傳入位址
4begin
5 sum := num3 -num4;
6exit;
7end;8
9var
10sum1 : integer;
11begin
12 sub1(5,3
,sum1);
13writeln(sum1);
14readln;
15end.

1

2function mul(num5:integer;num6:integer;out
sum:integer):integer;
3begin
4 sum := num5 *num6;
5exit;
6end;7
var8
sum : integer;
9begin
10 mul(5,3
,sum);
11writeln(sum);
12readln;
13end.

1

2function
getresultbyfunname():integer;
3begin
4 getresultbyfunname := 1+3;5
end;
6begin
7writeln(getresultbyfunname());
8readln;
9end.

1

2function add(num1 : integer;num2 : integer;var sum : integer) : integer; overload;3
begin
4 sum := num1 +num2;
5exit;
6end;7
8function add(num1 : double;num2 : double;out sum : double) : double; overload;9
10begin
11 sum := num1 +num2;
12exit;
13end;14
15var
16//
sum : integer;
17sum : double;
18begin
19//
add(2,3,sum);
20 add(2.4,2.02132
,sum);
21writeln(sum);
22readln;
23end.

1

2function divfun() : integer; forward;3
4function
milfun() : integer;
5begin
6divfun();
7end;8
9function
divfun() : integer;
10begin
11 writeln('
test');
12end;13
begin
14milfun();
15readln;
16end.

Delphi 例程 字元操縱例程

字元操縱例程 1.chr函式 返回指定的ascii碼的字元 單元 system 原型function chr x byte char 描述chr返回位元組型別表示式x的順序值 ascii值 示例key chr vk back vk back 8 相應於 key 8 2.fillchar過程 用指定的...

有返回值和無返回值函式

前面在定義函式時，有些函式使用了return語句，有些函式沒有使用return語句，使用return語句與不使用return語句有什麼區別呢？由前面的章節我們知道，若定義函式時沒有使用return語句，則預設返回乙個none。要返回乙個none，可以只寫乙個return，但要返回具體的數值，就需要在...

返回值優化

通過傳值方式返回要建立新物件時，應注意使用的形式，例如在operator return integer left.l right.l 咋看起來這像是乙個 對乙個建構函式的呼叫 其實並非如此。這是臨時物件語法，它是在說 建立乙個臨時integer物件並返回它 據此我們可能認為如果建立乙個有名字的區域性...