Návrhy vylepšení jazyka Delphi: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
Smazaný obsah Přidaný obsah
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: |
[[Kategorie:Programování]] |
||
Verze z 11. 8. 2010, 12: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;