Návrhy vylepšení jazyka Delphi: Porovnání verzí

Z ZděchovNET
Skočit na navigaci Skočit na vyhledávání
(Založena nová stránka: =Nepoužívaní globálních proměnných= Přesun k plně objektovému programování. Nepoužívání globálních proměnných jako Application, FormX, Screen, Mouse, a…)
 
Bez shrnutí editace
Řádek 36: Řádek 36:
end;</pre>
end;</pre>


[[Kategorie:Progranivání]]
[[Kategorie:Programování]]

Verze z 11. 8. 2010, 13:40

Nepoužívaní globálních proměnných

Přesun k plně objektovému programování. Nepoužívání globálních proměnných jako Application, FormX, Screen, Mouse, aj. Extrémně by byla použita pouze jediná globální proměnná něco jako System.


Namísto klasického

begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);    
  Application.CreateForm(TSecondForm, SecondForm);    
  Application.Run; 
end.

k objektovému

type
  TMyApplication = class(TApplication)
    MainForm: TMainForm;
    SecondForm: TSecondForm;
    constructor Create; override;
    destructor Destroy; override;
  end;

procedure TMyApplication.Create;
begin
  inherited;
  MainForm := TMainForm.Create(Self);
  SecondForm := TSecondForm.Create(Self);
end;

procedure TMyApplication.Create;
begin
  MainForm.Free;
  SecondForm.Free;
  inherited;
end;