Delphi学习第三天

The third day.战争才刚刚开始。

Fighting 是不变的主旋律。

今天周末，长沙的天时雨时晴，未外出，基本在实验室呆着。

接触的内容略多，慢慢做个总结。

先前不太明白Delphi和Pascal语言的关系，今天看书，有一句话算是解除了我的疑惑：Delphi是以Object Pascal语言为基础的可视化开发工具；

这关系就像eclipse和java一样。

Delphi开发的程序主要有3种:1、图形界面程序；2、控制台程序；3、服务器程序。

今天所有的编程练习都是控制台程序，所以在这里先对控制台程序做个解释。

控制台程序：指一些没有图形用户界面的32位Windows应用程序。和在DOS环境下运行的程序类似。截个图，方便弄懂，如下：



为了加深对控制台程序的理解，编一个小例子，如下：

program Project1;

{$APPTYPE CONSOLE}    //编译器指令，它告诉编译器这个程序是一个控制台程序。

//uses SysUtils;
var
  str:string;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('您好，这是一个示范程序，请输入一行文字:');   //输出
  readln(str);                                                //输入
  writeln('您输入的是：',str);
  readln;        //锁定窗口,否则结果会很快消失
end.

运行结果如下图：



接下来，针对具体问题，编写一些控制台程序。

1、简单的指针操作（最头疼的也是最有用的。）

program Project2;   //指针实例工程

{$APPTYPE CONSOLE}

//uses SysUtils;
type 
	PInt=^Integer;    //定义指针类型
var
	I,K:Integer;
	PI:PInt;  //整型指针
	P:Pointer;// 无类型指针，可以指向任何数据类型，但要注意类型的转换
begin
  { TODO -oUser -cConsole Main : Insert code here }
  I:=3;
  K:=5;
  PI:=@K;			//整型指针指向整型数据
  writeln('K=',PI^);
  P:=@I;
  K:=Integer(P^);		//无类型指针指向整型数据
  writeln('K=',K);
  PI:=P;  				//指针之间赋值
  writeln('PI^:',PI^);
  readln;
end.

可以先试着自己写结果，再和运行的进行核对，后面的例子可同样这么做。

实际结果如下：

K=5

K=3

PI^:3

知识补充：指针是一个表示内存地址的变量。“@”运算符放在变量前面，获取的是变量的地址，并可以将地址赋值为相同数据类型的指针。把“^”运算符放在数据类型的前面，可以定义该类型的一个指针类型；放在一个指针的后面，可以获得该指针所指地址空间的内容。

2、函数调用

调用前先进行函数声明，格式如下：

function 函数名(<形式参数表>)：<类型>；

begin

<语句>

end;

函数调用格式： <函数名>(<实参表>)

具体例子：

program FuntionDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function Total(a,b:Integer):Integer;
begin
	Total:=a+b;
end;

var
	a,b,c:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  try
  	writeln('请输入a值:');
  	readln(a);
   	writeln('请输入b值:');
  	readln(b);
  	c:=Total(a,b);
  	write('a和b的和为: ');
  	writeln(c);
  	readln;
  except
 	  writeln('输入内容有误！');
  end;
end.

运行结果：

请输入a值:

6

请输入b值:

9

a和b的和为: 15

3、选择语句的使用（if 和case）

（1）if语句的使用

格式：

if<条件> then

<语句>；

if<条件> then

<语句> //注意这里没有分号；

else

<语句>;

例子：

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   date:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('输入Date: ');
  readln(date);
  if(date>=1)and(date<=10) then
    writeln('上旬')
  else if (date>=11)and(date<=20) then
    writeln('中旬')
  else if (date>=21)and(date<=31) then
    writeln('中旬')
  else
    writeln('错误的日期');
  readln;
end.

结果：

输入Date:

9

上旬

（2）Case的使用

格式：

case<表达式> of

<数值>:<语句>;

else

<语句>；

end;

实例：

program CaseDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  S:char;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln(S);
  Case S of
    'a'..'z','A'..'Z':writeln('字符');
    '0'..'9':writeln('数字');
  else
     writeln('其他');
  end;
  readln;
end.

结果：

a

字符

4、循环语句的使用（repeat、while、for）

(1)repeat的使用

格式： repeat

<语句>

until<条件表达式>

例子：

program RepeatDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  I:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  I:=0;
  repeat
    I:=I+1;
    writeln(IntToStr(I));  //整型转化为字符型
  until I>6;
  readln;
end.

(2)while的使用

格式：

while<条件表达式> do

begin

<语句>

end;

例子：

program RepeatDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  I:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  I:=0;
  while i<5 do
    begin
    writeln(IntToStr(I));  //整型转化为字符型
    Inc(I);              // 相当于I=I+1
  end;
  readln;
end.

(3)for的使用

格式：

for<条件表达式> do

begin

<语句>

end;

例子：

program RepeatDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  I:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  I:=0;
  for I:=5 downto 1 do
  begin
    writeln(IntToStr(I));  //整型转化为字符型
  end;
  readln;
end.

5、Break和Continue

通过两个实例对比出break和continue的区别。

实例1（break）:

program RepeatDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  I:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  I:=0;
  for I:=10 downto 1 do
  begin

    if I=6 then
      break;
    writeln(IntToStr(I));  //整型转化为字符型
  end;
  readln;
end.

结果：

10

9

8

7

实例2（Continue）：

program RepeatDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  I:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  I:=0;
  for I:=10 downto 1 do
  begin
    if I=6 then
      continue;
    writeln(IntToStr(I));  //整型转化为字符型
  end;
  readln;
end.

结果：

10

9

8

7

5

4

3

2

1

6、函数参数的使用

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;			//为了使用函数Format
function OutputNum(number:double;n:integer=5):Boolean;//n默认为5
var
  Str:string;      //浮点数显示输出的内容
begin
  { TODO -oUser -cConsole Main : Insert code here }
  if n<=-1 then
  begin
    Result:=False;
    Exit;
  end
  else
  begin
    Str:=Format('%*.*f',[10,n,number]);//设置显示的格式
    Result:=True;
    writeln(Str);  //显示数据
    end;
  end;
  begin
    OutputNum(12.345);//n默认为5
    OutputNum(123,3);//参数对数据类型进行升级
    if OutputNum(123.456789,-3)=False then
      writeln('输出失败。');
    Readln;
end.

输出结果：

12.34500

123.000

输出失败。

知识补充：

解释这一句：Str:=Format('%*.*f',[10,n,number]); 
 返回number变量格式化后的字符。整数位为10位，小数后为n为。

7、通过例子，加深对数值参数、变量参数和常量参数的理解
实例1：数值参数在运行过程中只改变其形参的值，不改变其实参的值
<pre name="code" class="delphi">program ShucanDemo1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure Calculate(CalNo:Integer);     //数值参数、占内存，注意此处
begin
  CalNo:=CalNo*10;
end;
var
  Number,a:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln(Number);   //6
  Calculate(Number);
  writeln(IntToStr(Number));   //此处输出结果6
  readln;
end.

实例2：

program ShucanDemo1;

{$APPTYPE CONSOLE}

uses

SysUtils;

procedure Calculate(Var CalNo:Integer); //变量参数，不占内存注意此处

begin

CalNo:=CalNo*10;

end;

var

Number,a:Integer;

begin

{ TODO -oUser -cConsole Main : Insert code here }

readln(Number); //6

Calculate(Number);

writeln(IntToStr(Number)); //此处输出结果60

readln;

end.

结果分析：

Number进入Calculate函数后，会把Number实参拷贝给形参CalNo,在此过程中CalNo增大10倍，但并未传递出来，所以说Number值并未改变。形参

和实参占用不同的内存地址，在过程或函数被调用是，将实参的值复制到形参占用的内存中。因此，在跳出过程或函数后，形参和实参的数值是不同的，但实参的值并不发生变化。

在被调用的参数表中的形参前加上保留字Var，则CalNo不在内存中占据一个位置，而是指向实参Number。当一个实参被传递时，任何对形参所作的改变都会反映到实参中，这是因为两个参数指向同一个地址。

-----------------------------------------------------------------------

加入指针，理解参数传递的过程，实例如下：

program AllcanshuDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  PIngeger=^Integer;        //定义指针类型

procedure P1(var N:Integer);  //引用参数传递
begin
  { TODO -oUser -cConsole Main : Insert code here }
  N:=N+1;
end;
procedure P2(N:Integer);  //普通参数传递
begin
  N:=N+2;
end;
procedure P3(PT:PInteger);    //传递指针参数
begin
  PT^:=PT^+3;
end;

var
  i:Integer;
 begin
  i:=1;
  P1(i);   //将i的值增加1
  writeln('i:',i);
  P2(i);    //希望将i加2，但没有实现
  writeln('i:',i);
  P3(@i);			//将i的值加3
  writeln('i:',i);
  readln;
end.

结果如下：

i:2

i:2

i:5

结果分析：

i=1,经过P1的处理，N为变量参数，实参和形参都发生改变，故i的值变为2；

过程P2中，N为数值参数，实参和形参占用不同内存，实参的值传给形参后，所得结果并没有返回，故实参的不改变，即i仍为2；

过程P3中，指针指向i所在内存地址，所以操作是针对i进行的，故显示结果为4；

-----------------------------------------------------------------------------------------------------

补充一个概念：

有符号数和无符号数：针对二进制讲的。

有符号数用最高位作为符号位，“0”代表“+”，“1”代表“-”；其余数位用作数值位，代表数值。

比如：

0011 表示 +3；

1011 表示 -3。

无符号数全部二进制均代表数值，没有符号位。即第一个"0"或"1"不表示正负。

比如：

0011 表示 3；

1011 表示 11。

今天所学内容基本就这些，望共勉。

看到一本书出现的一句话：那些未能将我置之死地的事，会使我变得更有力。

机会往往伪装成困难，只有迎难而上，才能更接近成功。Fighting,next day ,go on .