几个简单得不得了的问题

Question

找本pascal的教材看看啊。
procedure Hello(Who: ShortString);
begin
  ShowMessage(Who + ', 祝你好运。');
end;
begin
  Hello('xinfei');
end;

Answer 1

函数定义
function FLength(S: string): Integer;begin
  Result := Length(S);
end;

Answer 2

参数 值传递
function DoubleByValue(X: Integer): Integer;     // X 是个值parameterbegin
  X := X * 2;
  Result := X;
end;
参数 引用
function DoubleByRef(var X: Integer): Integer;   // X 是个变量parameterbegin
  X := X * 2;
  Result := X;
end;

Answer 3

函数是直接拿来用。　而过程需要自己定义是吗？
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;我想自己定义一个过程，该怎样写。　另外一些形参和实际参数该怎样分别。　举个例子　要不然我不会明白的。哈哈。刚刚入门

Answer 4

给你举个例子吧：
1）在单元文件的Type区内申明过程如：
  procedure NumString(N:integer;var S:string);{沈明两个参数的numstring 过程，带var表示该参数在调用过程中允许变化，不带表示过程调用后仍保持原有值}
2）申明过程后，在Implementation区定义该过程的过程区块：
procedure NumString(N:integer;var S:string);
var
 v:integer;
 begin
 v:=abs(N);
 S:='';
  repeat
   S:=Chr(N MOD 10 + Ord('0'))+S;
   N:=N DIV 10;
  until N=0；
if N<0 then
 S:='-'+S;
end;
3)过程调用：
过程申明和定义以后，就可以在程序中调用了，调用形式如下：
  NumString(306,str);{过程名（<实参>）}
————————————————————————————————
函数定义和调用和过程类似，不同的是以function开头，并有返回结果的类型说明.还是举例吧：
申明一个函数并调用函数求 sin(2)+cos(4) 的值。
1) 声明函数：
  function Afun(x,y:Extended):Extended;
2) 定义函数区块：
 function Afun(x,y:Extended):Extended;
  begin
   result:=sin(x)+cos(y);{Afun:=sin(x)+cos(y)也可}
  end;
3) 调用函数
  完成题目要求定义变量 f
 f:=Afun(2,4);
  得到值。
——————————————————————————————————
 不知说清楚没有。

Answer 5

过程是没有返果结果的是吗？　只是带var传递参数，会改变其自身的值，其它的不变。　还问一个问题，　就是变量的问题。（能否简单介绍一下变量的使用。　）

Answer 6

函数和过程都可以定义。
何谓形参:
F(x)中x为形参
何谓实参：
调用F后：
F(5)中5为实参

Answer 7

如果在函数里面想用全局变量。　如果在函数或过程里要用到xin这个变量。直接传递就可以了吗？ 
var
  Form1: TForm1;
  xin:string;
implementation
另外 我看见很多的过程是这样的
procedure xin;
begin
end;
这样就不用传递任何参数是吗？

Answer 8

procedure xin; 
begin 
end; 
如果是这样定义的。那调用直接就可以用
begin
xin;
end;　就可以了吗?  另外为什么不用在单元文件的Type区内申明过程
只要把过程写在implementation 下面，也可以用。

Answer 9

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure xin; 
begin
form1.label1.caption:='awfi';  //这里为什么前面要加上form1.不加就出错
end;procedure TForm1.Button1Click(Sender: TObject);
begin
 xin;
end;end.我这段代码，在type 区没有定义，为什么也可以引用