0; i Count; i + +) ((DirList-> Strings [i]. Pos («InitScript»)> 0) && (DirList-> Strings [i] [ 1]!=«#»))
{cr;=DirList->Strings[i];((cr=sl.Pos(«"»))>0)(;cr<=sl.Length();cr++)
{(sl [cr] == «" ») [5] +=sl [cr +1];
{(sl [cr +1] == «" ») break; S [5] +=sl [cr +1];
}
}> Text=S [5];
}
/ / Перевірка Demo сценария[3]=ExtractFilePath(Application->ExeName);[6]=«»;>LoadFromFile(S[3]+«celestia.cfg»);(int i=0; i Count; i + +) ((DirList-> Strings [i]. Pos («DemoScript»)> 0) && (DirList-> Strings [i] [ 1]!=«#»))
{cr;=DirList->Strings[i];((cr=sl.Pos(«"»))>0)(;cr<=sl.Length();cr++)
{(sl [cr] == «" ») [6] +=sl [cr +1];
{(sl [cr +1] == «" ») break; S [6] +=sl [cr +1];
}
}> Text=S [6];
}
/ / Зчитування швидкості вращеніяRotateP=« RotateAcceleration »; RotateDigit =« »; (int i=0; i Count; i + +) (op=MainProv-> Strings [i]. Pos (RotateP)> 0) (int k=22;k<=MainProv->Strings[i].Length();k++)(MainProv->Strings[i][k]==«.»);+=MainProv->Strings[i][k];->Text=RotateDigit;->Position=StrToInt(Edit5->Text);
/ / Зчитування чутливості мишіMouseRotP=« MouseRotationSensitivity »; MouseDigit =« »; pos, postemp;. DecimalSeparator =«. »; (Int i=0; i Count; i + +)
{(MainProv-> Strings [i]. Pos (MouseRotP)> 0)
{(int k=27; k <= MainProv-> Strings [i]. Length (); k + +) +=MainProv-> Strings [i] [k];
}
}->Text=MouseDigit;=StrToFloat(MouseDigit);=postemp*10;->Position=pos;.DecimalSeparator=«,»;
/ / Перевірка музичного програвача для Celestia EP v2.0
if (GroupBox6-> Visible == true)
{= new TIniFile(ExtractFilePath(Application->ExeName)+«celestia_ep.ini»);(EP->ReadString(«Settings»,«Music»,«»)==«true»)->Checked=true;->Checked=false;>Text=EP->ReadString(«Settings»,«Player»,«»);EP;
} MainProv; DirList;
/ / -------------------------
/ / ПЕРЕВІРКА ВКЛАДКИ «ОБ'ЄКТИ І ЧАС»
/ / Перевірка Сонячних спалахів (Label19-> Caption.Pos («Celestia Extended Pack v3.0»)) («data solar-system sun «, »sun_flares« ;, »sun flares.ssc«, CheckBox1); (»extras «, »sun_flares«, »sun flares.ssc», CheckBox1);
/ / Перевірка кілець Юпітера (Label19-> Caption.Pos («Celestia Extended Pack v3.0»))
ObjectProv(«datasolar-systemplanets-&-moonsjupiter-&-moons«,»Jupiter Rings «,» Jupiter.ssc «, CheckBox2); (» extras «,» Jupiter Rings «,» Jupiter.ssc », CheckBox2);
