Реферат Створення менеджера конфігурації Celestia

Тема: Новые рефераты

/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /// / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /

/ / ЗБЕРЕЖЕННЯ НАЛАШТУВАНЬ / /

/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /// / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /

/ / ОСНОВНИЕ__fastcall TMainForm :: BitBtn1Click (TObject * Sender)

{* Main=new TStringList; Orbit=« OrbitPathSamplePoints »; Rings =« RingSystemSections »;> LoadFromFile (ExtractFilePath (Application-> ExeName) +« celestia.cfg »);

/ / Точки орбіт і кільця планет (Edit2-> Text!=«» && StrToInt (Edit2-> Text)>=80 && StrToInt (Edit2-> Text) <= 400)

{(Edit3-> Text!=«» && StrToInt (Edit3-> Text)>=100 && StrToInt (Edit3-> Text) < ;=2000)

{(int i=0; i Count; i + +)

{(Main-> Strings [i]. Pos (Orbit))> Strings [i]=« OrbitPathSamplePoints »+ Edit2-> Text; (Main-> Strings [i]. Pos (Rings))> Strings [i] =« RingSystemSections »+ Edit3-> Text;

}

{> MessageBox (MessegesLocale [2]. c_str (), Application-> Title.c_str (), MB_OK | MB_ICONERROR); -> Color=clRed; -> Font-> ; Color=clWhite;;

}

{> MessageBox (MessegesLocale [2]. c_str (), Application-> Title.c_str (), MB_OK | MB_ICONERROR); -> Color=clRed; -> Font-> ; Color=clWhite;;

}

/ / Папки з доповненнями (int i=0; i Count; i + +) ((Main-> Strings [i]. Pos («ExtrasDirectories»)> 0 ) && (Main-> Strings [i] [1]!=«#»))

{[0]=«»; S [1]=«»; S [2]=«»;=Main-> Strings [i];// « »N, k, dl; (EditDir1-> Text.Length ()> 0) [0]=StringReplace (EditDir1-> Text,« «,» / «, TReplaceFlags () < ; Text.Length ()> 0) [1]=StringReplace (EditDir2-> Text, »«, »/«, TReplaceFlags () << ; rfReplaceAll); (EditDir3-> Text.Length ()> 0) [2]=StringReplace (EditDir3-> Text, »«, »/«, TReplaceFlags () << rfReplaceAll ); ((n=Main-> Strings [i]. Pos (»[»))> 0)

{= sl.SubString (1, n); (S [0]. Length ()) sl=sl + « " » + S [0]; (S [1]. Length ()) sl=sl + «" " » + S [1]; (S [2]. Length ()) sl= sl + «" " » + S [2];=sl + «"] »;> Strings [i]=sl;;

}

} (EditDir1-> Text =="")> MessageBox (MessegesLocale [3]. c_str (), Application-> Title.c_str (), MB_OK | MB_ICONERROR);

/ / Курсор (RadioButton1-> Checked)

{(int i=0; i Count; i + +)

{(Main-> Strings [i]. Pos («Cursor "" ))> Strings [i] =« Cursor " crosshair " »;

}

} (RadioButton2-> Checked)

{(int i=0; i Count; i + +)

{(Main-> Strings [i]. Pos («Cursor "" ))> Strings [i] =« Cursor " inverting crosshair " »;

}

} (RadioButton3-> Checked)

{(int i=0; i Count; i + +)