property default

VirusXP
Дата: 13.11.2007 15:45:28
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private    { Private declarations }
  public     { Public declarations }
    fBool: boolean;
    property Bool: boolean read fBool write fBool default true;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg(BoolToStr(Bool), mtInformation, [mbOK], 0);
end;

end.

Ребят, у кого D7 проверьте пожалуйста. Что с default'ом то ?
Мимопроходящий
Дата: 13.11.2007 15:48:34

Привет, VirusXP!
Ты пишешь:

VirusXP
Что с default'ом то ?
а что с ним не так?

зы: сверяй свои мысли с F1

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4

Obrazer
Дата: 13.11.2007 15:50:26
D7 Help

......
Note

Property values are not automatically initialized to the default value. That is, the default directive controls only when property values are saved to the form file, but not the initial value of the property on a newly created instance.
Ega
Дата: 13.11.2007 15:58:03
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private    { Private declarations }
  public     { Public declarations }
    fBool: boolean;
    property Bool: boolean read fBool write fBool default true;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bool := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg(BoolToStr(Bool), mtInformation, [mbOK], 0);
end;
Ega
Дата: 13.11.2007 15:58:41
И, ксати, нафига fBool в public'е?
Anatoly Podgoretsky
Дата: 13.11.2007 16:09:26
И нафига у свойства имя предопределенного типа?
И нафига человеку мозг?
VirusXP
Дата: 13.11.2007 16:12:42
Ega
И, ксати, нафига fBool в public'е?

Anatoly Podgoretsky
И нафига у свойства имя предопределенного типа?
И нафига человеку мозг?

пример тестовый
Anatoly Podgoretsky
Дата: 13.11.2007 16:30:01
Ну-ну