Logiczny typ danych — część 4

type TLogicDataTypes = class(TForm) procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end;

var LogicDataTypesForm: TLogicDataTypes; a, b : boolean;

implementation

{$R *.dfm}

procedure LogicDataTypesForm.FormShow(Sender: TObject); begin a := true; b := false; Application.MessageBox('''a'' wynosi ' + BoolToStr(a) + ', ''b'' wynosi ' + BoolToStr(b) + '.', '''a'' i ''b''!'); end;

end.

Przypisy

Kategoria:Typy danych