Overload,Constructor,Destructor(功课,请看看对吗。测试能力中。)

unit Unit2;



interface

uses

SysUtils;



type

TCon = class

private

  i, j : Integer;

public

  function Runtest : string; overload;

  function Runtest(Value : string) : string; overload;



end;



implementation



{ TCon }

function TCon.Runtest: string;

begin

  i := 1;

  while i <= 4 do

  begin

    j := i;

    while j <= 5 do

    begin

      Result := Result + ' ' + IntToStr(j);

    Inc(j);

    end;

  Inc(i);

  end;

end;



function TCon.Runtest(Value: string): string;

begin

Result := Value;       

  i := 1;

  while i <= 3 do

  begin

    j := i;

    while j <= 5 do

    begin

      Result := Result + ' ' + IntToStr(j);

    Inc(j);

    end;

  Inc(i);

  end;

end;

end.

unit Unit1;

interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Unit2;



type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  ACon : TCon;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

  ACon := TCon.Create;

  Memo1.Lines.Text := Edit1.Text + ACon.Runtest;

  ACon.Free;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

  ACon := TCon.Create;

  Memo1.Lines.Text := ACon.Runtest(Edit1.Text);

  ACon.Free;

end;



{function & Button3}

function Runtest(Value : string) : string;

var

i, j : Integer;



begin

Result := Value;

  i := 1;

  while i <= 3 do

  begin

    j := i;

    while j <= (5 + i) do

    begin

      Result := Result + ' ' + IntToStr(j);

    Inc(j, 2);

    end;

  Inc(i);

  end;

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

  Memo1.Lines.Text := Runtest(Edit1.Text);

end;

end.

本人已把 Unit1 链接 Unit2,Unit2 里有两个函数，而Unit1 有一个自身函数和三个控件。
1 - 关于Overload的问题:
1.1. 如果这样的情况下在Unit2 用Overload 指令对吗？
1.2. 有什么负面效果？
1.3. 以你的建议，你会怎样以最好的方法使用Overload？

2 - 关于Result:
2.1. Unit2 里的『function TCon.Runtest: string;』和『function TCon.Runtest(Value: string): string;』
的Result，它们有什么分别？？
2.2. 每个Function 里是不是都附带着Result(回函值)？
2.3. Result := Value; <--这是什么，它是什么时候才出现？
2.4. while j <= 5 do
begin
Result := Result + ' ' + IntToStr(j); <--这个 Result(回函值)是不是属于 while？

3 - 关于Unit1 的Button3 自身函数:
3.1. 我要怎样在里面加入 Constructor 和 Destructor?『请给例子』
3.2. Create 是属于 Constructor 的值吗？
3.3. Free 是属于 Destructor 的值吗？
3.4. 如果不用 Constructor 和 Destructor 会有什么负面效果出现？