急？绝对加分！！

Question

type
  TForm_Main = class(TForm)
    Edit1: TEdit;
    PopupMenu: TPopupMenu;
    N_Save: TMenuItem;
    Memo: TMemo;
    StringGrid: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Table1: TTable;
    DataSource1: TDataSource;
    ShellTreeView: TShellTreeView;
    FileListBox: TFileListBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure MemoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure ShellTreeViewChange(Sender: TObject; Node: TTreeNode);
    procedure TextSave(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
    procedure RestoreRequest(var message: TMessage); message CM_RESTORE;
  end;var Form_Main: TForm_Main;

Answer 1

构造凼数可以带参数！如：
TWybLabel = class
privatepublic
  constructor Create(...)
end;

Answer 2

以下是俺的代码，还未完成，其中的错误请毫不留情的指出来。
谢谢！unit uText;interfacetype
  TTEXTConnect = class
  private
    m_strFileName : AnsiString;
    m_bValid : Boolean;
  public
    constructor Create(strFileName:AnsiString);
    destructor Destroy;override;
    function IsValid():Boolean;
  end;implementationconstructor TTEXTConnect.Create(strFileName:AnsiString);
begin
  inherited Create;
  m_bValid := True;
  m_strFileName := strFileName;
end;destructor TTEXTConnect.Destroy;
begin
  inherited Destroy;
end;function TTEXTConnect.IsValid():Boolean;
begin
  IsValid := m_bValid;
end;end.

Answer 3

构造函数可以带参数，不仅可以带参数，而且可以重载你的构造函数。
 
  如： 
TMyClass = class 
private 
  FNum:integer;
  FName:string;
public 
constructor Create(Num:integer;Name:string) ;
end; TMyClass.Create(Num:integer;Name:string);
begin
  FNum := Num;
  Fname := Name;
end;

Answer 4

DELPHI的构造函数可以名字不取为create，可以取其他名字，且可以有多个，这点与C++不同。