Changeset 8 for trunk/EIedit.dpr

Show
Ignore:
Timestamp:
10/21/07 04:43:04 (1 year ago)
Author:
sagrer
Message:
  1. Изменен механизм нумерации версий формата конфига.
  2. Информация о номере версии теперь вкомпилливается в бинарник и берется оттуда - вендовая информация о номере версии, которая линковалась к бинарнику - убрана.
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/EIedit.dpr

    r4 r8  
    108108  NewFilterAskForm in 'NewFilterAskForm.pas' {NewFilterAskF}, 
    109109  KOLClearDir in 'KOLClearDir.pas', 
    110   KOLFileInString in 'KOLFileInString.pas'; 
     110  KOLFileInString in 'KOLFileInString.pas', 
     111  VerInfoTxtFormat, 
     112  EiEdit_ver; 
    111113 
    112114{$R *.RES} 
    …… 
    293295  IniFilPath := Path+'EiEdit.ini'; 
    294296  //Çàëîàäèòü èíôó î âåðñèè... 
    295   VerInfo := TVerInfoFromFile.Create; 
    296   VerInfo.LoadInfo(Application.ExeName); 
    297   ver := VerInfo.ProductVersion; 
     297  VitInfo := TVerInfoTxtFormat.Create; 
     298  VitInfo.Ver1 := EiEdit_Ver1; 
     299  VitInfo.Ver2 := EiEdit_Ver2; 
     300  VitInfo.Ver3 := EiEdit_Ver3; 
     301  VitInfo.Ver4 := EiEdit_Ver4; 
     302  VitInfo.Status := EiEdit_Status; 
     303  VitInfo.RCNum := EiEdit_RCNum; 
    298304 
    299305  //Äëÿ íà÷àëà - ïðîâåðèòü, ñóùåñòâóåò ëè êîíôèã-ôàéë. 
    …… 
    304310    AnIniFil.Load(IniFilPath); 
    305311    ini_ver := AnIniFil.ReadString('MainSettings','Ver'); 
    306     If ini_ver <> ver then begin 
     312    If ini_ver <> IntToStr(IniConfFormatVer) then begin 
    307313      //Ñîáñíî ïðàâêà èíèøíèêà â çàâèñèìîñòè îò íîìåðà âåðñèè. 
    308314      //Íó è + ìîæíî êàêèå äðóãèå äåéñòâèÿ âûïîëíèòü âìåñòå ñ àïãðåéäîì èíèøíèêà 
    309  
    310315      If ini_ver = '1.7.0' then begin 
    311         //Ýòîò ïîñëåäíèé IF - âûïîëíÿåòñÿ ïðè äîâîäêå äî ïîñëåäíåé âåðñèè. 
    312         //Ùà âåðñèÿ 1.8.0 
     316        //Îáíîâëåíèå ôîðìàòà äî âåðñèè  1.8.0 
    313317 
    314318        //Ïîäãîòîâêà ïåðåñåííûõ 
    …… 
    321325 
    322326        //Çàïèñü èíèøíèêà 
    323         AnIniFil.WriteString('MainSettings','Ver',ver); 
     327        AnIniFil.WriteString('MainSettings','Ver','1.8.0'); 
    324328        AnIniFil.WriteString('MainSettings','TxtEdDlgFiltList',TxtEdDlgFiltList); 
    325329        AnIniFil.WriteInteger('MainSettings','TxtEdDlgActFilt',TxtEdDlgActFilt); 
    …… 
    329333        AnIniFil.WriteBool('MainSettings','TxtEdDlgWordWrap',TxtEdDlgWordWrap); 
    330334        AnIniFil.Save(IniFilPath); 
    331         ini_ver := ver; 
    332  
     335        ini_ver := '1.8.0'; 
    333336        //äðóãèå îïåðàöèè... 
     337      end; 
     338       
     339      If ini_ver = '1.8.0' then begin 
     340        //Ýòîò ïîñëåäíèé IF - âûïîëíÿåòñÿ ïðè äîâîäêå äî ïîñëåäíåé âåðñèè. 
     341        //Ùà âåðñèÿ ôîðìàòà êîíôèãà - 1 
     342 
     343        //Çàïèñü èíèøíèêà 
     344        AnIniFil.WriteInteger('MainSettings','Ver',IniConfFormatVer); 
     345        AnIniFil.Save(IniFilPath); 
     346        ini_ver := IntToStr(IniConfFormatVer); 
     347 
     348        //äðóãèå îïåðàöèè... 
    334349 
    335350        //Ñîîáùèòü þçâåðþ 
    336         MessageBox(Application.Handle,PChar('EiEdit.ini îáíîâëåí äî âåðñèè '+ver),'Èíôîðìàöèÿ',MB_OK or MB_ICONINFORMATION); 
     351        MessageBox(Application.Handle,PChar('EiEdit.ini îáíîâëåí äî âåðñèè '+ini_ver),'Èíôîðìàöèÿ',MB_OK or MB_ICONINFORMATION); 
    337352      end; 
    338353       
    …… 
    392407    //Òàê, òèïà èíôà äëÿ íîâîãî ôàéëà ãîòîâà. Ìîæíî òèïà íà÷àòü åãî ïèñàòü... 
    393408    AnIniFil.MakNewFile; 
    394     AnIniFil.WriteString('MainSettings','Ver',ver);    //Âåðñèÿ 
     409    AnIniFil.WriteInteger('MainSettings','Ver',IniConfFormatVer);    //Âåðñèÿ ôîðìàòà êîíôåãà 
    395410    AnIniFil.WriteString('MainSettings','PzPath',PzPath);  //Íàñòðîå÷íûé ïóòü ê ÏÇ 
    396411    AnIniFil.WriteString('MainSettings','PzResPath',PzResPath);  //Íàñòðîå÷íûé ïóòü ê ðåçàì ÏÇ 
    …… 
    553568  registr.free; 
    554569  AnIniFil.Kill;  //Óáèòü îáüåêò êëàññà äëÿ ðàáîòû ñ èíèøíèêàìè. 
    555   VerInfo.Free; 
     570  VitInfo.Free;   //Îáúåêò äëÿ èíôû î âåðñèè. 
    556571end.