rings [i]. Pos («ExtrasDirectories»)> 0) && (DirList-> Strings [i] [ 1]!=«#»))
{[0]=«»; S [1]=«»; S [2]=«»; cr, kaw=0;=DirList-> Strings [i]; ((cr=sl.Pos («[»))> 0) (; cr <= sl.Length (); cr + +)
{(sl [cr] == «" ») kaw + +; else (kaw% 2 == 1) S [3 & (kaw / 2)] +=sl [cr]; (sl [cr] == «]») break;
} -> Text=S [0]; -> Text=S [1];
EditDir3-> Text=S [2];
}
/ / Зчитування точок орбіт
for (int i=0; i Count; i + +) ((op=MainProv-> Strings [i]. Pos (OrbitP))> 0) (int k=op;k<=MainProv->Strings[i].Length();k++)(isdigit(MainProv->Strings[i][k]))+=MainProv->Strings[i][k];
Edit2-> Text=OrbitDigit;
/ / Зчитування сегментів кілець
for (int i=0; i Count; i + +) ((rp=MainProv-> Strings [i]. Pos (RingsP))> 0) (int k=rp;k<=MainProv->Strings[i].Length();k++)(isdigit(MainProv->Strings[i][k]))+=MainProv->Strings[i][k];->Text=RingDigit;
/ / Зчитування курсору (int i=0; i Count; i + +)
{(MainProv-> Strings [i]. Pos («Cursor "" ))
{(MainProv-> Strings [i] == «Cursor " crosshair " »)
{-> Checked=true; -> Checked=false; -> Checked=false;
} (MainProv-> Strings [i] == «Cursor " inverting crosshair " »)
{-> Checked=false; -> Checked=true; -> Checked=false;
} (MainProv-> Strings [i] == «Cursor " arrow " »)
{-> Checked=false; -> Checked=false; -> Checked=true;
}
}
}
/ / Перевірка папки скриншотов[3]=ExtractFilePath(Application->ExeName);>LoadFromFile(S[3]+«celestia.cfg»);(int i=0;i<DirList->Count;i++)((DirList->Strings[i].Pos(«ScriptScreenshotDirectory»)>0) && (DirList-> Strings [i] [1]!=«#»))
{[4]=«»; (DirList-> Strings [i] == «ScriptScreenshotDirectory " " ") [4]=«»; p>
{cr;=DirList->Strings[i];((cr=sl.Pos(«"»))>0)(;cr<=sl.Length();cr++)
{(sl [cr] == «" ») [4] +=sl [cr +1];
{(sl [cr +1] == «" ») break; S [4] +=sl [cr +1];
}
}
}> Text=S [4];
}
/ / Перевірка параметра ScriptSystemAccessPolicy (int i=0; i Count; i + +)
{(MainProv-> Strings [i]. Pos («ScriptSystemAccessPolicy»))
{(MainProv-> Strings [i] == «ScriptSystemAccessPolicy " ask " ») -> ItemIndex=0; (MainProv-> Strings [i] == « ; ScriptSystemAccessPolicy " allow " ») -> ItemIndex=1; (MainProv-> Strings [i] ==« ScriptSystemAccessPolicy " deny " ») -> ItemIndex=2;
}
}
/ / Перевірка стартового скрипта[3]=ExtractFilePath(Application->ExeName);[5]=«»;>LoadFromFile(S[3]+«celestia.cfg»);(int i=...