вот 2 маленьких примера
1.
читать дальше »
Код:
var
RichEditViewer1: TRichEditViewer; /// глобально
procedure InitializeWizard();
begin
{ RichEditViewer1 }
RichEditViewer1 := TRichEditViewer.Create(WizardForm);
with RichEditViewer1 do
begin
Name := 'RichEditViewer1';
Parent := WizardForm.SelectDirPage;
Left := ScaleX(112);
Top := ScaleY(112);
Width := ScaleX(185);
Height := ScaleY(89);
Text := '';
end;
end;
2.
читать дальше »
Код:
procedure InitializeWizard();
var
RichEditViewer1: TRichEditViewer; /// локально
begin
{ RichEditViewer1 }
RichEditViewer1 := TRichEditViewer.Create(WizardForm);
with RichEditViewer1 do
begin
Name := 'RichEditViewer1';
Parent := WizardForm.SelectDirPage;
Left := ScaleX(112);
Top := ScaleY(112);
Width := ScaleX(185);
Height := ScaleY(89);
Text := '';
end;
end;
в первом примере
var
RichEditViewer1: TRichEditViewer; объявлен глобально
а во втором локально в InitializeWizard-е;
читал, что после выполнения процедуры переменная освобождается
Освобождаются ли переменные после инициализации (по окончании работы InitializeWizard) ?
если да, то действительно ли это влияет на производительность
.................................................................................................... ......................................
вот глянь у меня в одном RedesignWizardForm; на данный момент количество переменных
читать дальше »
Код:
var
Mr_Valve_Label: TLabel;
Valve_Label: TLabel;
Welcome_Label_1: TLabel;
Welcome_hl2series_Label: TLabel;
BitmapImage6: TBitmapImage;
Welcome_Label_2: TLabel;
BitmapImage10: TBitmapImage;
BitmapImage11: TBitmapImage;
Part1_ScrollBox: TScrollBox;
Intro_BitmapImage1: TBitmapImage;
BitmapImage1: TBitmapImage;
BitmapImage3: TBitmapImage;
BitmapImage8: TBitmapImage;
BitmapImage7: TBitmapImage;
BitmapImage12: TBitmapImage;
BitmapImage13: TBitmapImage;
BitmapImage14: TBitmapImage;
BitmapImage15: TBitmapImage;
BitmapImage16: TBitmapImage;
BitmapImage17: TBitmapImage;
BitmapImage18: TBitmapImage;
BitmapImage19: TBitmapImage;
BitmapImage20: TBitmapImage;
BitmapImage21: TBitmapImage;
BitmapImage22: TBitmapImage;
BitmapImage23: TBitmapImage;
BitmapImage24: TBitmapImage;
BitmapImage25: TBitmapImage;
BitmapImage26: TBitmapImage;
BitmapImage27: TBitmapImage;
BitmapImage28: TBitmapImage;
BitmapImage29: TBitmapImage;
BitmapImage30: TBitmapImage;
BitmapImage31: TBitmapImage;
BitmapImage32: TBitmapImage;
BitmapImage33: TBitmapImage;
BitmapImage34: TBitmapImage;
BitmapImage35: TBitmapImage;
BitmapImage36: TBitmapImage;
BitmapImage37: TBitmapImage;
Label_Lambda: TLabel;
BitmapImage38: TBitmapImage;
BitmapImage39: TBitmapImage;
BitmapImage40: TBitmapImage;
BitmapImage41: TBitmapImage;
BitmapImage42: TBitmapImage;
BitmapImage43: TBitmapImage;
BitmapImage44: TBitmapImage;
BitmapImage45: TBitmapImage;
BitmapImage46: TBitmapImage;
BitmapImage47: TBitmapImage;
BitmapImage48: TBitmapImage;
BitmapImage49: TBitmapImage;
BitmapImage50: TBitmapImage;
BitmapImage51: TBitmapImage;
BitmapImage52: TBitmapImage;
BitmapImage53: TBitmapImage;
BitmapImage55: TBitmapImage;
BitmapImage54: TBitmapImage;
BitmapImage56: TBitmapImage;
BitmapImage57: TBitmapImage;
BitmapImage58: TBitmapImage;
BitmapImage59: TBitmapImage;
BitmapImage60: TBitmapImage;
BitmapImage61: TBitmapImage;
BitmapImage62: TBitmapImage;
BitmapImage63: TBitmapImage;
BitmapImage64: TBitmapImage;
BitmapImage65: TBitmapImage;
BitmapImage66: TBitmapImage;
BitmapImage67: TBitmapImage;
BitmapImage68: TBitmapImage;
BitmapImage69: TBitmapImage;
BitmapImage2: TBitmapImage;
BitmapImage70: TBitmapImage;
BitmapImage71: TBitmapImage;
BitmapImage72: TBitmapImage;
BitmapImage73: TBitmapImage;
BitmapImage74: TBitmapImage;
BitmapImage75: TBitmapImage;
BitmapImage76: TBitmapImage;
BitmapImage77: TBitmapImage;
BitmapImage78: TBitmapImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
RichEditViewer10: TRichEditViewer;
hl2_universe_Panel: TPanel;
L1: TLabel;
Intro_hl2_Label: TLabel;
RichEditViewer1: TRichEditViewer;
RichEditViewer3: TRichEditViewer;
RichEditViewer2: TRichEditViewer;
RichEditViewer6: TRichEditViewer;
RichEditViewer7: TRichEditViewer;
RichEditViewer8: TRichEditViewer;
RichEditViewer9: TRichEditViewer;
RichEditViewer11: TRichEditViewer;
RichEditViewer12: TRichEditViewer;
RichEditViewer13: TRichEditViewer;
RichEditViewer14: TRichEditViewer;
RichEditViewer15: TRichEditViewer;
RichEditViewer16: TRichEditViewer;
RichEditViewer17: TRichEditViewer;
RichEditViewer18: TRichEditViewer;
RichEditViewer19: TRichEditViewer;
RichEditViewer20: TRichEditViewer;
RichEditViewer21: TRichEditViewer;
RichEditViewer22: TRichEditViewer;
RichEditViewer23: TRichEditViewer;
RichEditViewer24: TRichEditViewer;
RichEditViewer25: TRichEditViewer;
RichEditViewer26: TRichEditViewer;
RichEditViewer27: TRichEditViewer;
RichEditViewer28: TRichEditViewer;
RichEditViewer29: TRichEditViewer;
RichEditViewer30: TRichEditViewer;
RichEditViewer31: TRichEditViewer;
RichEditViewer32: TRichEditViewer;
RichEditViewer33: TRichEditViewer;
RichEditViewer34: TRichEditViewer;
RichEditViewer35: TRichEditViewer;
RichEditViewer36: TRichEditViewer;
RichEditViewer37: TRichEditViewer;
RichEditViewer38: TRichEditViewer;
RichEditViewer39: TRichEditViewer;
RichEditViewer40: TRichEditViewer;
RichEditViewer41: TRichEditViewer;
RichEditViewer42: TRichEditViewer;
RichEditViewer43: TRichEditViewer;
RichEditViewer44: TRichEditViewer;
RichEditViewer45: TRichEditViewer;
RichEditViewer46: TRichEditViewer;
RichEditViewer47: TRichEditViewer;
RichEditViewer48: TRichEditViewer;
RichEditViewer49: TRichEditViewer;
RichEditViewer50: TRichEditViewer;
RichEditViewer51: TRichEditViewer;
RichEditViewer52: TRichEditViewer;
RichEditViewer53: TRichEditViewer;
RichEditViewer54: TRichEditViewer;
RichEditViewer55: TRichEditViewer;
RichEditViewer56: TRichEditViewer;
RichEditViewer57: TRichEditViewer;
RichEditViewer58: TRichEditViewer;
RichEditViewer59: TRichEditViewer;
RichEditViewer60: TRichEditViewer;
RichEditViewer61: TRichEditViewer;
RichEditViewer62: TRichEditViewer;
RichEditViewer63: TRichEditViewer;
RichEditViewer64: TRichEditViewer;
RichEditViewer65: TRichEditViewer;
RichEditViewer66: TRichEditViewer;
RichEditViewer67: TRichEditViewer;
RichEditViewer68: TRichEditViewer;
RichEditViewer69: TRichEditViewer;
RichEditViewer70: TRichEditViewer;
RichEditViewer71: TRichEditViewer;
RichEditViewer72: TRichEditViewer;
RichEditViewer73: TRichEditViewer;
RichEditViewer74: TRichEditViewer;
RichEditViewer75: TRichEditViewer;
RichEditViewer76: TRichEditViewer;
RichEditViewer77: TRichEditViewer;
RichEditViewer78: TRichEditViewer;
RichEditViewer4: TRichEditViewer;
BitmapImage5: TBitmapImage;
Trinagle_bmp: TBitmapImage;
IsCyrillicLabel: TLabel;
ListBox: TNewListBox;
hl2_ScrollBox: TScrollBox;
hl2_screens_Image: TBitmapImage;
hl2_ep1_ScrollBox: TScrollBox;
hl2_ep1_screens_Image: TBitmapImage;
hl2_ep2_ScrollBox: TScrollBox;
hl2_ep2_screens_Image: TBitmapImage;
portal_ScrollBox: TScrollBox;
portal_screens_Image: TBitmapImage;
ComponentsPage: TWizardPage;
hl2_MainLable: TLabel;
ep1_MainLable: TLabel;
ep2_MainLabel: TLabel;
BitmapImage4: TBitmapImage;
PortalC_Image: TBitmapImage;
hl2_panel: TPanel;
hl2_CheckBox: TNewCheckBox;
hl2_borealis_CheckBox: TNewCheckBox;
hl2_icon_CheckBox: TNewCheckBox;
hl2_ru_en_RadioButton: TNewRadioButton;
hl2_en_RadioButton: TNewRadioButton;
hl2_ru_RadioButton: TNewRadioButton;
hl2_buka_CheckBox: TNewCheckBox;
hl2_launch_Edit: TNewEdit;
hl2_main_CheckBox: TNewCheckBox;
hl2_ep1_panel: TPanel;
hl2_ep1_CheckBox: TNewCheckBox;
hl2_ep1_ru_en_RadioButton: TNewRadioButton;
hl2_ep1_en_RadioButton: TNewRadioButton;
hl2_ep1_ru_RadioButton: TNewRadioButton;
hl2_ep1_Icon_CheckBox: TNewCheckBox;
ep1_Launch_Edit: TNewEdit;
ep2_panel: TPanel;
hl2_ep2_CheckBox: TNewCheckBox;
hl2_ep2_ru_en_RadioButton: TNewRadioButton;
hl2_ep2_en_Radiobutton: TNewRadioButton;
hl2_ep2_ru_RadioButton: TNewRadioButton;
hl2_ep2_Icon_CheckBox: TNewCheckBox;
ep2_Launch_Edit: TNewEdit;
portal_panel: TPanel;
portal_CheckBox: TNewCheckBox;
portal_ru_en_RadioButton: TNewRadioButton;
portal_en_RadioButton: TNewRadioButton;
portal_ru_RadioButton: TNewRadioButton;
portal_Icon_CheckBox: TNewCheckBox;
portal_Launch_Edit: TNewEdit;
hl2_ep2_main_CheckBox: TNewCheckBox;
hl2_ep1_main_CheckBox: TNewCheckBox;
portal_main_CheckBox: TNewCheckBox;
SpeedBtnPanel: TPanel;
SpeedBtn: TNewSpeedButton;
TypeComboBox: TNewComboBox;
ClearButton: TNewButton;
SettingPanel: TPanel;
BitmapImage9: TBitmapImage;
а ниже ещё есть целая пачка
(перед компиляцией, когда время придёт, собираюсь перенести всё из этого дубликатора в InitializeWizard) и все переменные по местам (локально/глобально)
А также есть ли разница после написания
так
var
Mr_Valve_Label: TLabel;
Valve_Label: TLabel;
или так (кажется правильнее)
var
Mr_Valve_Label, Valve_Label: TLabel;
