root/trunk/Initer.pas

///////////////////////////////////////////////////////////
//                        EiEdit                         //
//      Ðåäàêòîð ÷àñòè ðåñóðñîâ Ïðîêëÿòûõ Çåìåëü         //
//             Copyright (C) 2002 Gipat Group            //
//              Ðàñïðîñòðàíÿåòñÿ íà óñëîâèÿõ             //
//    Gipat Group's opened EI-editor-utility license     //
//                      âåðñèè 1.0                       //
//                                                       //
//                  www.gipatgroup.org                   //
///////////////////////////////////////////////////////////

//Ê ðàáîòå íàä äàííûì ôàéëîì ïðèëîæèëè ðóêè, íîãè.... êîðî÷å àôôòàðû:
// 1) Sagrer (sagrer@yandex.ru)

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

unit Initer;

/////////////////////////////////////////////
//        Ãëîáàëüíûé ìîäóëü ïðîãè òèïà     //
/////////////////////////////////////////////

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Registry, Menus, ExtCtrls, ComCtrls, ToolWin, CopyFileUnit,
  mySys, ShowProcessForm, KOLFileInString, KOL, KOLAnIniFile, KOLForPaths,
  KOLVersionInfo, KOLClearDir, VerInfoTxtFormat;

const
  Zagolov = 'Ðåäàêòîð ÷àñòè ðåñóðñîâ ÏÇ ';
  NZap = 1000;
  TxtEdDlgDefFiltList = '*|âñå ÷òî òîëüêî ìîæíî :)'+'|*.*|âñå ôàéëû ñ ðàñøèðåíèåì'+'|allod*|Àëëîäû'+'|armor*|Áðîíÿ'+'|briefing*|Áðèôèíãè'+'|camphelp*|Ñïðàâêà ëàãåðÿ'+'|instr*|×åðòåæè'+'|litem*|Ïðåäìåòû äëÿ ïðîäàæè'+'|map.txt|Ïàðàìåòðû êàðò'+'|material*|Ìàòåðèàëû'+'|matshort*|Ñîêðàùåííûå íàçâàíèÿ ìàòåðèàëîâ'+'|modifier*|Ðóíû'+'|perk*|Ïåðêè'+'|pers*|Èìåíà ïåðñîíàæåé'+'|qitem*|Æåçëû'+'|quest*|Ïåéäæåð êâåñòîâ'+'|questitem*|Êâåñòîâûå ïðåäìåòû'+'|say*|Ðåïëèêè íà êàðòå'+'|spell*|Çàêëèíàíèÿ'+'|string*|Ñòðîêè'+'|tip*|Âñïëûâàþùèå ïîäñêàçêè'+'|tutor*|Òåêñòû ýêðàíîâ ïîäñêàçîê'+'|tutorial*|Íàñòðîéêà ïîäñêàçîê'+'|unit*|Èìåíà þíèòîâ'+'|weapon*|Îðóæèå'+'|zone*|Îïèñàíèå çîí'+'|*.res|ðåçû'+'|*.mq|ÌÊÓ-øêè';
  IniConfFormatVer = 1;
  EiEdit_AppName = 'Eiedit';
  EiEdit_CopyrightStr = 'Copyright © 2002-2007 Gipat Group';
  EiEdit_CraftedBy_list = 'Sagrer';
  EiEdit_DevelsContacts = 'www.GipatGroup.org';


type
  ByteFile = File of Byte;
  TZapisBaziPz = class (TObject)
  //Êëàññ äëÿ ðàáîòû ñ çàïèñÿìè áàç ÏÇ.
    ZapisString : ANSIString;
    FieldsString : ANSIString;
    Siz : integer;
    FieldOv : integer;
    SizFieldOv : integer;
    FieldsCreated : boolean;
    ZapisCreated : boolean;
    SizFieldOtv : integer;
    Constructor Init;
    Procedure LoadZap(const ZapSt : ANSIString; sz : integer);
    Procedure BuildZap;
    Function GetField(const FieldNum : integer) : ANSIString;
    Procedure ReWriteField(const FieldNum, sizSt : integer; St: ANSIString);
    Procedure CreateFields(const FieldNum : integer; NomPoley : StoIntegerov);
  end;
  MaskFileArr = array[1..NZap,1..2] of string;

var
  //String
  Path, PzPath, PzResPath, PzCdPath, KodeOpt, DefalDir,
  databasedir, databaselmpdir, ishdir, ishlmpdir, IniFilPath,
  AiinfoResPath, DatabaseResPath, DatabaselmpResPath, FiguresResPath,
  GfxResPath, MaterialsResPath, MenusResPath, OutroResPath,
  RedressResPath, SfxResPath, SpeechResPath, TextsResPath,
  TextslmpResPath, TexturesResPath, DatabaseResIsh, DatabaselmpResIsh,
  TextsEdStart, TxtEdDlgFiltList : string;
  //Integer
  MfHeight, MfWidth, MfTop, MfLeft, MfWstate, TxtEdDlgCritSiz,
  TxtEdDlgActFilt : integer;
  //boolean
  ResursFormClosed, PrintsDbR1FClosed, PrintsDbR2FClosed, PrintsDbR3FClosed,
  LmpLeversFClosed, LeversFClosed, UncAskFSaved,
  SinglPrintsDbR1FClosed, SinglPrintsDbR2FClosed,
  SinglPrintsDbR3FClosed, SinglItemsIdbR1FClosed,
  UncAskFLetChangSiz, ItemsIdbR1FClosed, SinglItemsIdbR2FClosed,
  ItemsIdbR2FClosed, SinglItemsIdbR3FClosed,
  ItemsIdbR3FClosed, SinglItemsIdbR4FClosed,
  ItemsIdbR4FClosed, SinglItemsIdbR5FClosed,
  ItemsIdbR5FClosed, SinglItemsIdbR6FClosed,
  ItemsIdbR6FClosed, SinglPerksPdbR1FClosed,
  PerksPdbR1FClosed, SinglPerksPdbR2FClosed,
  PerksPdbR2FClosed, SinglQuestsQdbR1FClosed,
  SinglQuestsQdbR2FClosed,
  UnitsUdbR1FClosed, SinglUnitsUdbR1FClosed,
  UnitsUdbR2FClosed, SinglUnitsUdbR2FClosed,
  UnitsUdbR3FClosed, SinglUnitsUdbR3FClosed,
  UnitsUdbR4FClosed, SinglUnitsUdbR4FClosed,
  SpellsSdbR1FClosed, SinglSpellsSdbR1FClosed,
  SpellsSdbR2FClosed, SinglSpellsSdbR2FClosed,
  SpellsSdbR3FClosed, SinglSpellsSdbR3FClosed,
  SpellsSdbR4FClosed, SinglSpellsSdbR4FClosed,
  SpellsSdbR5FClosed, SinglSpellsSdbR5FClosed,
  SinglAcksDbR1FClosed, SinglAcksDbR2FClosed,
  SinglAcksDbR3FClosed, OptStandRes, TxtEdDlg1Click,
  TxtEdDlgUseCritSiz, TxtEdDlgWordWrap : boolean;

  //Äðóãèå... ïåðåìåííûå, êîòîðûå þçÿòñÿ êàê âðåìåííûå â ðàçíûõ
  //ôóíêàõ.... â ïðèíöèïå êàê ãëîáàëüíûå íå þçÿòñÿ
  //íî þçÿòñÿ âî  ìíîãèõ þíèòàõ...
  CPCResult : RCPCResult;
  PzDbStrRec : RPzDbStrRec;
  Registr : TRegistry;
  AnIniFil : TAnIniFile;
  VitInfo : TVerInfoTxtFormat;


Procedure OpenProgKey;
Procedure OpenPZPathKey;
Procedure OpenPZGSKey;
Procedure CloseTheKey;
Procedure InitPzKey;
Procedure InitProgKey;
Function CopDir(PathIn, DestIn : string; bar : TProgressBar) : integer;
Function StrWinDos (str1 : string) : string;
Procedure UnPackResurs(const pathfill, fill : string);
Procedure PackResurs(const pathdir : string);
Function RaspakBase(const BasFile, PathIshDir : string) : integer;
Function GetDlBig (const b1, b2, b3, b4 : byte) : integer;
Function GetDlSmall(const b1 : byte) : integer;
Function ZapakBase(const PathIshDir, PathConDir : string) : integer;
Function MakeDlBig(const int : integer) : ChetireBaita;
Function MakeDlSmall(const int : integer) : byte;
Procedure VipravitFaili(DirPath : string);
Function OtkusitPodPole(Point1 : PointToStr) : string;
Function AddPodPole(const Str, AddStr : string; zagol : integer): string;
Function UnsLongToShopInfo(const Int : integer) : string;
Function GetMagazChislo(const num : integer) : integer;
Function CheckShopInfo(const Str : string) : boolean;
Function ShopInfoToUnsLong(const Str : string) : integer;
Function GetUnkStr(const Unk : string; UnkSiz : integer) : string;
Function ListToStr(const ListStr : string) : string;
Function CheckList (const Str : string) : boolean;
Function ListBezProbelov(const Str : string) : string;
Function StrToList(const Str : string) : string;
Function SelectValue(const List : string) : string;
Function SelectValueEx(const List : string; Idx : integer) : string;
Function _4bTEXTListToStr(const ListStr : string) : string;
Function ListTo4bTEXTStr(const Str : string) : string;
Function CheckList4bTEXT(const Str : string) : boolean;
Function EditASound(const Str : string) : string;
Function GetASoundStr(const Str : string) : string;
Function AddDirToRes(const ResFile, DirPath : string) : string;
Function UnPackResToDir(const ResFile, DirPath : string) : string;
Function ModalAddDirToRes(const ResFile, DirPath : string) : string;
Function ModalUnPackResToDir(const ResFile, DirPath : string) : string;
Function GetExtensDirName(const FileName : string) : string;
Function GetExtensFileName(const DirName : string) : string;
Function OptimizeRes(const ResFile : string) : string;
Function ModalOptimizeRes(const ResFile : string) : string;
Function SimvCountInStr(const Str : string; Simv : Char) : integer;
Function UnPackResDialog(const FileName : string) : string;
Function PackResDialog(const DirName : string) : string;
Function SortStringFileArray(const TheArray : MaskFileArr) : MaskFileArr;


implementation
uses
  PzEd, OptiF, ValueSelectorForm, ASoundEditorForm, ResbuildForm,
  RbPackOptForm, RBUnPackOptForm;

var
  SRec : TSearchRec;

Function StrWinDos (str1 : string) : string;
var
  I : integer;
  ch : char;
  byt1, byt2 : byte;
  strOut : string;
begin
  I := 0;
  strOut :='';
  repeat
    I := I+1;
    if str1[I] <> #0 then begin
      ch := str1[I];
      byt1 := byte(ch);
      byt2 := ConvertWinDos(byt1);
      Ch := char(byt2);
      strOut := strOut+Ch;
    end;
  until str1[I] = #0;
  result := strOut;
end;

Procedure InitPzKey;
begin
  Registr.RootKey:=HKEY_CURRENT_USER;
end;

Procedure InitProgKey;
begin
  Registr.RootKey:=HKEY_LOCAL_MACHINE;
end;

Procedure OpenProgKey;
begin
  InitProgKey;
  registr.OpenKey('\Software\EiEditor',false);
end;

Procedure OpenPZPathKey;
begin
  InitPzKey;
  registr.OpenKey('\Software\Nival Interactive\EvilIslands\Path Settings',false);
end;

Procedure OpenPZGSKey;
begin
  InitPzKey;
  registr.OpenKey('\SOFTWARE\Nival Interactive\EvilIslands\Game Specific Settings',false);
end;

Procedure CloseTheKey;
begin
  registr.CloseKey;
end;

Procedure PackResurs(const pathdir : string);
var
  f1 : textfile;
  str1, str2, str4, str5, pathDOdir, buf, pat, buf2, rezfil : string;
  I, j : integer;
begin
  //Ïîëó÷åíèå "ïàòõäîäèð"
  I := 0;
  PathDOdir := '';
  repeat
    pat := '';
    repeat
      buf := '';
      I := I+1;
      buf := pathdir[I];
      pat := pat+buf;
    until (buf = '\') or (buf = #0);
    if pathdir[I+1] =#0 then buf := #0;
    if (pathdir[I+1] <> #0) and (pat <> #0) then PathDOdir := pathDOdir+pat;
    if pathdir[I+1] =#0 then begin  //ïîëó÷åíèå èìåíè ðåçôàéëà
      J := 0;
      rezfil := '';
      repeat
        J := J+1;
        buf2 := pat[J];
        if buf2 <> '\' then rezfil := rezfil+buf2;
      until buf2 = '\';
    end;
  until buf = #0;
  str4 := PChar(pathdir);
  str5 := PChar(pathDOdir);
  str1 := LongToShortPath(str4);
  str2 := LongToShortPath(str5);
  AssignFile(F1,pathDOdir+'packer.bat');
  Rewrite(F1);
  Writeln(F1,strWinDos('chdir '+str1));
  Writeln(F1,strWinDos(str2+'resbuild.exe a '+str2+rezfil+'.res *'));
  closefile(f1);
  WinExec(Pchar(pathDOdir+'packer.bat'), Sw_ShowNormal);
  MessageDLG('Ðàáîòàåò ðàñïàêîâùèê. Äîæäèòåñü çàâåðøåíèÿ ðàñïàêîâêè è íàæìèòå ÎÊ'
  ,MtInformation,[mbOk],0);
end;

Procedure UnPackResurs(const pathfill, fill : string);
var
  f1 : textfile;
  str1, str2, str4, str5, dirnam, buf : string;
  I : integer;
begin
  AssignFile(F1,pathfill+'unpacker.bat');
  Rewrite(F1);
  dirnam := '';
  I := 0;
  repeat
    buf := '';
    I := I+1;
    buf := fill[I];
    if buf <> '.' then dirnam := dirnam+buf;
  until buf = '.';
  str4 := PChar(pathfill+dirnam);
  str5 := PChar(pathfill);
  str1 := LongToShortPath(str4);
  str2 := LongToShortPath(str5);
  Writeln(F1,strWinDos('chdir '+str1));
  Writeln(F1,strWinDos(str2+'resbuild.exe e '+str2+fill+' *'));
  closefile(f1);
  WinExec(Pchar(pathfill+'unpacker.bat'), Sw_ShowNormal);
  MessageDLG('Ðàáîòàåò ðàñïàêîâùèê. Äîæäèòåñü çàâåðøåíèÿ ðàñïàêîâêè è íàæìèòå ÎÊ'
  ,MtInformation,[mbOk],0);
end;

Function CopDir(PathIn, DestIn : string; bar : TProgressBar) : integer;
var
  path, file1, readbuf, dest, from, fto : string;
  f1 : textfile;
  HaveSpace, NeedSpace : int64;

Procedure CreateList(path, dest2 : string);
var
  pathNew, OldNew, FoldFileNew : string;
  SRecNew : TSearchRec;
begin
  PathNew := path;
  findFirst(PathNew+'*.*',FaAnyFile,SRecNew);
  if DirectoryExists(pathNew+SRecNew.name) = true then foldfileNew := ' folder'
  else foldfileNew := ' file';
  if foldfilenew = ' folder' then begin
    if (SRecNew.name <> '.') and (SRecNew.name <> '..') then begin
      Writeln(f1,'MD');
      Writeln(f1,pathNew+SRecNew.name+'\');
      Writeln(f1,dest2+SRecNew.name+'\');
      CreateList(pathNew+SRecNew.name+'\',dest2+SRecNew.name+'\');
    end;
  end
  else begin
    if (SRecNew.name <> '.') and (SRecNew.name <> '..') then begin
      Writeln(f1,'Copy');
      Writeln(f1,pathNew+SRecNew.name);
      Writeln(f1,dest2+SRecNew.name);
    end;
  end;

  repeat
    oldNew := pathNew+SRecNew.name;
    FindNext(SRecNew);
    if DirectoryExists(pathNew+SRecNew.name) = true then foldfileNew := ' folder'
    else foldfileNew := ' file';
    if foldfilenew = ' folder' then begin
      if (SRecNew.name <> '.') and (SRecNew.name <> '..') then begin
        if oldNew <> pathNew+SRecNew.name then begin
          Writeln(f1,'MD');
          Writeln(f1,pathNew+SRecNew.name+'\');
          Writeln(f1,dest2+SRecNew.name+'\');
          CreateList(pathNew+SRecNew.name+'\',dest2+SRecNew.name+'\');
        end;
      end;
    end
    else begin
      if (SRecNew.name <> '.') and (SRecNew.name <> '..') then begin
        if oldNew <> pathNew+SRecNew.name then begin
          Writeln(f1,'Copy');
          Writeln(f1,pathNew+SRecNew.name);
          Writeln(f1,dest2+SRecNew.name);
        end;
      end;
    end;
  until oldNew = pathNew+SRecNew.name;

  FindClose(SRecNew);
end;

begin
  file1 := GetTempDir+'CopyList.lis';
  AssignFile(f1,file1);
  Rewrite(f1);
  path := PathIn;
  dest := DestIn;
  CreateList(path, dest);
  Write(f1,'end');
  CloseFile(f1);
  HaveSpace := DiskFree(GetDraNum(dest));
  AssignFile(f1,file1);
  Reset(f1);
  NeedSpace := 0;
  repeat
    Readln(f1,readbuf);
    if Readbuf <> 'end' then begin
      if readbuf = 'Copy' then begin
        Readln(f1,readbuf);
        from := readbuf;
        Readln(f1,readbuf);
        fto := readbuf;
        NeedSpace := NeedSpace+GetFileSize(fto);
      end;
    end;
  until readbuf = 'end';
  CloseFile(f1);
  If HaveSpace > NeedSpace then begin
    AssignFile(f1,file1);
    Reset(f1);
    repeat
      Readln(f1,readbuf);
      if Readbuf <> 'end' then begin
        if readbuf = 'MD' then begin
          Readln(f1,readbuf);
          Readln(f1,readbuf);
          MkDir(readbuf);
        end;
        if readbuf = 'Copy' then begin
          Readln(f1,readbuf);
          from := readbuf;
          Readln(f1,readbuf);
          fto := readbuf;
          VCLCopyFile(from,fto,true,true,bar);
        end;
      end;
    until readbuf = 'end';
    CloseFile(f1);
    result := 0;
  end  
  else begin
    MessageDLG('Îøèáêà!. Íå õâàòàåò '+IntToStr(NeedSpace-HaveSpace)+' áàéò äëÿ êîïèðîâàíèÿ',mtError,[mbOk],0);
    result := 1;
  end;  
end;

Function RaspakBase(const BasFile, PathIshDir : string) : integer;
var
  FoldNam1, foldnam2 : string;
  Fil1, Fil2 : TFileInString;
  buffer, buf1, buf2, buf3, buf4 : byte;
  kursor : int64;
  NumerRazd2, NumerRazd3, DL1, DL2, Dl3, numerator1,
  numerator2, numerator3, Sch1 : integer;

begin
  //Ïðîöåäóðà ðàñïàêà öåëüíîãî áàçî-ôàéëà.
  //Âûâîæó íà ýêðàí îêíî ïðîöåññà...
  ShowProcessF.Show;
  ShowProcessF.InfoLab1.Caption := BasFile;
  ShowProcessF.InfoLab2.Caption := 'Îòêðûòèå ôàéëà è ïîäãîòîâêà ïàïêè...';
  ShowProcessF.PrBar.Position := 0;
  ShowProcessF.Refresh;
  //Ïîëó÷àþ èìÿ ôàéëà, è ñîçäàþ ôîëäåð.
  FoldNam1 := GetFilePath(PathIshDir)+GetFileName(BasFile)+'\';
  If DirectoryExists(foldnam1) then ClearDir(Foldnam1,true);
  MkDir(FoldNam1);
  //Òåïåðü ãðóæó ôàéëî ÷åðåç êëàññ ðàáîòû ñ ôàéëàìè.
  Fil1 := TFileInString.Init;
  Fil1.Load(BasFile);
  //fil1.AddByte(199);
  //Fil1.Save(PathIshDir+GetFileName2(BasFile));
  //Ïðèãîòîâèòü áàð ê ðàáîòå, äà è ôîðìó ïåðåïèñàòü...
  ShowProcessF.InfoLab2.Caption := 'Ðàñïàêîâêà áàçû è çàïèñü èñõîäíèêà...';
  ShowProcessF.PrBar.Max := Fil1.Siz;
  ShowProcessF.refresh;
  //Êóðñîð íà íîëü..
  Kursor := 0;
  Sch1 := 0;
  //Ïîëó÷àþ ÄË è íîìåð...
  kursor := kursor+1;
  Sch1 := Sch1+1;
  buffer := byte(Fil1.FileString[kursor]);
  ShowProcessF.PrBar.Position := kursor;
  ShowProcessF.PrBar.Refresh;
  if buffer <> 0 then begin
    if buffer <> 1 then messageDLG('Áàçà íà÷èíàåòñÿ íå íà <01>. Íåñòàíäàðòíî...',mtWarning,[mbOk],0);
    kursor := kursor+1;
    Sch1 := Sch1+1;
    buffer := byte(Fil1.FileString[kursor]);
    ShowProcessF.PrBar.Position := kursor;
    ShowProcessF.PrBar.Refresh;
    
    if chetnoe(buffer) then begin
      //Åñëè ÄË êîðîòêîå.
      DL1 := GetDLSmall(buffer);
    end
    else begin
      //Åñëè ÄË äëèííîå.
      buf1 := buffer;
      kursor := kursor+1;
      Sch1 := Sch1+1;
      buffer := byte(Fil1.FileString[kursor]);
      buf2 := buffer;
      kursor := kursor+1;
      Sch1 := Sch1+1;
      buffer := byte(Fil1.FileString[kursor]);
      buf3 := buffer;
      kursor := kursor+1;
      Sch1 := Sch1+1;
      buffer := byte(Fil1.FileString[kursor]);
      buf4 := buffer;
      DL1 := GetDLBig(buf1,buf2,buf3,buf4);
    end;
    //Ïðîâåðêà ÄË.
    if DL1+10 = fil1.siz then begin
      //Åñëè ÄË ïðàâèëüíîå, ïðîäîëæèòü ðàñïàêîâêó...
      numerator1 := Dl1-Sch1;
      //Áûë ïîëó÷åí ñ÷åò÷èê ïðîéäåííûõ áàéòîâ
      //Öèêë 1 óðîâíÿ.
      repeat
        //Ïîëó÷åíèå íîìåðà "ðàçäåëà"
        sch1 := 0;
        kursor := kursor+1;
        sch1 := sch1+1;
        numerator1 := numerator1-1;
        buffer := byte(Fil1.FileString[kursor]);
        NumerRazd2 := buffer;
        //Ñîçäàíèå ïàïêè äëÿ ðàçäåëà...
        foldnam2 := FoldNam1+IntToStr(NumerRazd2)+'\';
        MkDir(FoldNam2);
        //Ïîëó÷åíèå ÄË "ðàçäåëà"
        kursor := kursor+1;
        sch1 := sch1+1;
        numerator1 := numerator1-1;
        buffer := byte(Fil1.FileString[kursor]);
        if chetnoe(buffer) then begin
          //Åñëè ÄË êîðîòêîå.
          DL2 := GetDLSmall(buffer);
        end
        else begin
          //Åñëè ÄË äëèííîå.
          buf1 := buffer;
          kursor := kursor+1;
          Sch1 := Sch1+1;
          numerator1 := numerator1-1;
          buffer := byte(Fil1.FileString[kursor]);
          buf2 := buffer;
          kursor := kursor+1;
          Sch1 := Sch1+1;
          numerator1 := numerator1-1;
          buffer := byte(Fil1.FileString[kursor]);
          buf3 := buffer;
          kursor := kursor+1;
          Sch1 := Sch1+1;
          numerator1 := numerator1-1;
          buffer := byte(Fil1.FileString[kursor]);
          buf4 := buffer;
          DL2 := GetDLBig(buf1,buf2,buf3,buf4);
        end;
        //Ïîëó÷åíèå ñ÷åò÷èêà ïðîéäåííûõ áàéòîâ äëÿ 2-ãî óðîâíÿ.
        numerator2 := DL2-Sch1;
        //Öèêë 2 óðîâíÿ
        NumerRazd3 := 0;
        repeat
          //Ïîëó÷åíèå íîìåðà çàïèñè, îäíîâðåìåííî íà÷àâ "òðàíñêðèïöèþ".
          //Ñîçäàíèå îáüåêòà êëàññà äëÿ íîâîãî ôàéëà.
          Fil2 := TFileInString.Init;
          Fil2.MakNewFile;
          //Ñîáñíî ïîëó÷åíèå íîìåðà.
          Sch1 := 0;
          kursor := kursor+1;
          numerator1 := numerator1 - 1;
          numerator2 := numerator2 - 1;
          Sch1 := Sch1+1;
          buffer := byte(Fil1.FileString[kursor]);
          //À òðàíñêðèïöèÿ óæå èäåò...
          Fil2.AddByte(buffer);
          //Íîìåð çàïèñè...
          //NumerRazd3 := buffer;
          //À òàê êàê íîìåð çàïèñè ïà÷åìóòà âñåãäà íà 1 òî áóäåò ñ÷åò÷èê.
          NumerRazd3 := NumerRazd3+1;
          //Òåïåðü ïîëó÷åíèå ÄË çàïèñè...
          kursor := kursor+1;
          numerator1 := numerator1 - 1;
          numerator2 := numerator2 - 1;
          Sch1 := Sch1+1;
          buffer := byte(Fil1.FileString[kursor]);
          Fil2.AddByte(buffer);
          if chetnoe(buffer) then begin
            //Åñëè ÄË êîðîòêîå.
            DL3 := GetDLSmall(buffer);
          end
          else begin
            //Åñëè ÄË äëèííîå.
            buf1 := buffer;
            kursor := kursor+1;
            numerator1 := numerator1 - 1;
            numerator2 := numerator2 - 1;
            Sch1 := Sch1+1;
            buffer := byte(Fil1.FileString[kursor]);
            Fil2.AddByte(buffer);
            buf2 := buffer;
            kursor := kursor+1;
            numerator1 := numerator1 - 1;
            numerator2 := numerator2 - 1;
            Sch1 := Sch1+1;
            buffer := byte(Fil1.FileString[kursor]);
            Fil2.AddByte(buffer);
            buf3 := buffer;
            kursor := kursor+1;
            numerator1 := numerator1 - 1;
            numerator2 := numerator2 - 1;
            Sch1 := Sch1+1;
            buffer := byte(Fil1.FileString[kursor]);
            Fil2.AddByte(buffer);
            buf4 := buffer;
            DL3 := GetDLBig(buf1,buf2,buf3,buf4);
          end;
          //Ïîëó÷åíèå ñ÷åò÷èêà ïðîéäåííûõ áàéòîâ äëÿ 3-ãî óðîâíÿ...
          numerator3 := DL3-Sch1;
          //Öèêë 3-ãî óðîâíÿ (òîêà çàïèñü â ôàéë...)
          repeat
            kursor := kursor+1;
            numerator1 := numerator1 - 1;
            numerator2 := numerator2 - 1;
            numerator3 := numerator3 - 1;
            buffer := byte(Fil1.FileString[kursor]);
            Fil2.AddByte(buffer);
          until numerator3 = 0;
          //Òåïåðü çàïèñü ïîëó÷åííîãî "ôàéëà" â ôàéë.
          fil2.Save(foldnam2+GenerateNumName(NumerRazd3,'')+'.zap');
          //Óäàëåíèå îáüåêòà...
          fil2.Free;
          ShowProcessF.PrBar.Position := kursor;
          ShowProcessF.PrBar.Refresh;
        until numerator2 = 0;
      until numerator1 = 0;
    end
    else begin
      MessageDLG('ÄË ôàéëà íåïðàâèëüíîå!',mtError,[mbOk],0);
    end;
  end
  else begin
    //Ðóãíóòüñÿ, åñëè ïåðâûé áàéò - 00
    MessageDLG('Ïåðâûé áàéò ôàéëà '+BasFile+' ðàâåí 00h. Íåñòàíäàðòíàÿ áàçà èëè âîîáùå íå áàçà. Íåðàñïàêîâàí.',mtError,[mbOk],0);
  end;
  Fil1.Free;
  ShowProcessF.Close;

  Result := 1;
end;

Function GetDlBig (const b1, b2, b3, b4 : byte) : integer;
var
  UnsLong, Sum : integer;
begin
  //Ïðîöåäóðà ïîëó÷åíèÿ ÄË áàçû äëèííîãî òèïà.
  UnsLong := GetUnsignedLongOld(b1,b2,b3,b4);
  Sum := (UnsLong+9) div 2;
  Result := Sum;
end;

Function GetDlSmall(const b1 : byte) : integer;
var
  UnsLong, Sum : integer;
begin
  //Ïðîöåäóðà ïîëó÷åíèÿ ÄË áàçû êîðîòêîãî òèïà.
  UnsLong := b1;
  Sum := (UnsLong div 2)+2;
  Result := Sum;
end;

Function ZapakBase(const PathIshDir, PathConDir : string) : integer;
var
   //SRec1, SRec2 : TSearchRec;
   DliniRazdelov : array[1..10] of integer;
   DLbasi, numerpapki, numerfila, I, razdelov : integer;
   EstPapka, EstFile : boolean;
   Pathh, FilNam1, FilNam2 : string;
   Fil1, Fil2 : TFileInString;
   buffer : byte;
   buff1 : ChetireBaita;
begin
  //Ïðîöåäóðà çàïàêîâêè áàçû îáðàòíî â ôàéë.
  //Èòàê, âíà÷àëå íóæíî ðàññ÷èòàòü ÄË-û.
  //Ïîéäó ïî öèêëàì - 1 - èñ÷ó ïàïêè
  //È åñ÷å - âûâîæó íà ýêðàí.
  ShowProcessF.Show;
  ShowProcessF.InfoLab1.caption := PathConDir;
  ShowProcessF.InfoLab2.caption := 'Àíàëèç èñõîäíèêà è ïîäñ÷åò ÄË...';
  ShowProcessF.PrBar.Position := ShowProcessF.PrBar.min;
  ShowProcessF.refresh;
  Fil1 := TFileInString.Init;
  Fil2 := TFileInString.Init;
  For I := 1 to 10 do DliniRazdelov[I] := 0;
  NumerPapki := 0;
  repeat
    EstPapka := false;
    NumerPapki := NumerPapki+1;
    Pathh := PathIshDir+IntToStr(NumerPapki)+'\';
    If DirectoryExists(Pathh) = true then begin
      //Åñëè ïàïêà åñòü...
      EstPapka := true;
      //Öèêë 2 - ïî ôàéëàì.
      NumerFila := 0;
      repeat
        EstFile := false;
        //Ïîëó÷àþ èìåíà...
        NumerFila := NumerFila+1;
        FilNam1 := generateNumName(NumerFila,'')+'.zap';
        FilNam2 := pathh+FilNam1;
        //Ïðîâåðÿþ...
        if FileExistsDiv(FilNam1,pathh) = true then begin
          //Åñëè ôàéë åñòü, ïîñ÷èòàòü åãî ðàçìåð.
          EstFile := true;
          //Fil1 := TFileInString.Init;
          Fil1.Load(FilNam2);
          DliniRazdelov[NumerPapki] := DliniRazdelov[NumerPapki]+Fil1.Siz;
          //Fil1.free;
        end;
      until EstFile = false;
    end;
  until EstPapka = false;
  //Ñ÷èòàþ êîë-âî ðàçäåëîâ
  Razdelov := NumerPapki-1;
  //Òåïåðü ïåðåñ÷èòûâàþ äëèíû ðàçäåëîâ ñ ó÷åòîì çàãîëîâêà ðàçäåëà....
  //È ñ÷èòàþ ÄË áàçû.
  DLBasi := 0;
  For I := 1 to razdelov do begin
    if DliniRazdelov[I] < 128 then begin
      //Êîðîòêèé ÄË
      DliniRazdelov[I] := DliniRazdelov[I]+2;
    end
    else begin
      //Äëèííûé ÄË
      DliniRazdelov[I] := DliniRazdelov[I]+5;
    end;
    DLBasi := DLBasi+DliniRazdelov[I];
  end;
  //Ó÷èòûâàþ äëèíó çàãîëîâêà...
  if DLBasi < 128 then begin
    //Êîðîòêèé ÄË
    DLBasi := DLBasi+2;
  end
  else begin
    //Äëèííûé ÄË
    DLBasi := DLBasi+5;
  end;
  //Òåïåðü ìîæíî çàïèñûâàòü íîâûé ôàéë áàçû...
  //Âûâîä íà ýêðàí
  ShowProcessF.InfoLab1.caption := PathConDir;
  ShowProcessF.InfoLab2.caption := 'Ãåíåðàöèÿ íîâîé áàçû è çàïèñü åå íà äèñê...';
  ShowProcessF.PrBar.Position := ShowProcessF.PrBar.min;
  ShowProcessF.refresh;
  fil2.MakNewFile;
  //Äîáàâëÿþ çàãîëîâîê.
  buffer := 1;
  Fil2.AddByte(buffer);
  //Äîáàâëÿþ ÄË âñåé áàçû...
  if DlBasi < 130 then begin
    buffer := MakeDLSmall(DlBasi);
    Fil2.AddByte(buffer);
  end
  else begin
    buff1 := MakeDlBig(DlBasi);
    Fil2.AddByte(buff1[1]);
    Fil2.AddByte(buff1[2]);
    Fil2.AddByte(buff1[3]);
    Fil2.AddByte(buff1[4]);
  end;
  //Òåïåðü öèêë - äëÿ çàïèñè ðàçäåëîâ.
  For I := 1 to razdelov do begin
    //Çàïèñàòü çàãîëîâîê ðàçäåëà ðàâíûé I
    buffer := I;
    Fil2.AddByte(buffer);
    //Çàïèñàòü ÄË ðàçäåëà...
    if DliniRazdelov[I] < 130 then begin
      buffer := MakeDLSmall(DliniRazdelov[I]);
      Fil2.AddByte(buffer);
    end
    else begin
      buff1 := MakeDlBig(DliniRazdelov[I]);
      Fil2.AddByte(buff1[1]);
      Fil2.AddByte(buff1[2]);
      Fil2.AddByte(buff1[3]);
      Fil2.AddByte(buff1[4]);
    end;
    //Öèêë äëÿ çàïèñè âñåõ ôàéëîâ èç ðàçäåëà (âñåõ çàïèñåé).
    
    //Ïîëó÷èòü ïóòü, íîìåð ôàéëà íà 0...
    Pathh := PathIshDir+inttostr(I)+'\';
    NumerFila := 0;
    repeat
      //Ïèñàòü ïî ôàéëó....
      EstFile := false;
      NumerFila := NumerFila+1;
      FilNam1 := generateNumName(NumerFila,'')+'.zap';
      FilNam2 := pathh+FilNam1;
      if fileexistsDiv(FilNam1,pathh) then begin
        //Ôàéë åñòü
        EstFile := true;
        //Ïðèëåïèòü åãî.
        fil1.Load(FilNam2);
        Fil2.FileString := Fil2.FileString+Fil1.FileString;
        //Fil2.Siz := Fil2.Siz + Fil1.Siz;
      end;
    until EstFile = false;
  end;
  //Òèïà âñå ðàçäåëû çàïèñàíû. Ïèøó "õâîñò".
  Fil2.AddByte(0);
  Fil2.AddByte(0);
  Fil2.AddByte(2);
  Fil2.AddByte(12);
  Fil2.AddByte(2);
  Fil2.AddByte(8);
  Fil2.AddByte(1);
  Fil2.AddByte(0);
  Fil2.AddByte(0);
  Fil2.AddByte(0);
  //Âðîäå ãîòîâî. Òåïåðü ñàìîå èíòåðåñíîå - çàïèñü.
  Fil2.Save(PathConDir);
  //Îñâîáîæäàþ ïàìÿòü...
  //ShowMessage('Ãîòîâî');    //Ýòî îòëàäî÷íîå
  Fil1.Free;
  Fil2.free;
  ShowProcessF.Close;

  Result := 1;
end;

Function MakeDlBig(const int : integer) : ChetireBaita;
begin
  //Ïîëó÷åíèå äëèííîãî ÄË áàçû â âèäå áàéòîâ.
  Result := UngetUnsignedLong(((int*2)-9));
end;

Function MakeDlSmall(const int : integer) : byte;
begin
  //Ïðîöåäóðà ïîëó÷åíèÿ êîðîòêîãî ÄË áàçû â âèäå áàéòà.
  result := ((int-2)*2);
end;

Constructor TZapisBaziPz.Init;
begin
  //Êîíñòðóêòîð (âûñòàâèòü íà ôàëñ áóëåàíû) - òèïà íè÷å íå çàãðóæåíî è íå ñîçäàíî.
  FieldsCreated := false;
  ZapisCreated := false;
  FieldOv := 0;
  Siz := 0;
  SizFieldOv := 0;
  FieldsString := '';
  ZapisString := '';
end;

Procedure TZapisBaziPz.LoadZap(const ZapSt : ANSIString; sz : integer);
var
  kursor, DLFilda : integer;
  b1, b2, b3, b4 : byte;
begin
  //Çàãðóçêà çàïèñè â îáüåêò, ïîäñ÷åò ïîëåé è ñîçäàíèå ñòðîêè ïîëåé.
  //Íà÷àëüíûé çíà÷. ïåðåìåííûõ.
  ZapisString := '';
  FieldsString := '';
  ZapisString := ZapSt;
  Siz := sz;
  FieldOv := 0;
  SizFieldOv := 0;
  kursor := 2;
  //SizFieldOv := 2;
  //ÄË ïîëÿ = 1 - ÷òîá ïðî÷èòàòü 1-é áàéò ïîëåé.
  DLFilda := 1;
  //Ïîëó÷åíèå ñòðîêè ïîëåé, îäíîâðåìåííî ïîäñ÷åò ïîëåé (ïðîñêîê ÄË+öèêë).
  //Óçíàòü òèï ÄË çàïèñè (êîðîòêàÿ èëè äëèííàÿ) è âûâåñòè êóðñîð
  //íà íà÷àëî ïîëåé.
  if Chetnoe(byte(ZapisString[kursor])) = true then begin
    //Ìîæíî íè÷å íå äåëàòü, êóðñîð óæå íà ïîñë. áàéòå ÄË
    //(ïîñêîêó îí âñåãî îäèí :)  )
  end
  else begin
    //Êóðñîð íà ïîñë. áàéò ÄË
    kursor := kursor+3;
    //SizFieldOv := SizFieldOv+3; //ÑÈÇÔÈËÄΠÑ×ÈÒÀÉÒ ÄËÈÍÓ ÑÒÐÎÊÈ ÏÎËÅÉ!
  end;

  //íà âñÿêèé ñëó÷àå "èíèöèàëèçàöèÿ" íåêîòîðûõ âàðîâ
  b1 := 0;
  b2 := 0;
  b3 := 0;

  //äàëüøå ðàáîòàòü...
  repeat
    //Êóðñîð âïåðåä, ñ÷åò÷èê ÄË óìåíüøèòü è äîïèñàòü áàéò.
    kursor := kursor+1;
    FieldsString := FieldsString+ZapisString[kursor];
    SizFieldOv := SizFieldOv+1;
    DLFilda := DLFilda-1;
    //Ïðîâåðêà íà íà÷àëî íîâîãî ïîëÿ - ïî ÄË ïîëÿ.
    if DLFilda = -1 then begin
      //Åñëè íà÷àëîñü íîâîå ïîëå
      FieldOv := FieldOv+1;
    end;
    if DLFilda = -2 then begin
      //Åñëè ùàñ áàéò - íà÷àëî ÄË íîâîãî ïîëÿ.
      //Íàäî ïðîâåðèòü òèï ÄË.
      if Chetnoe(byte(ZapisString[kursor-1])) = true then begin
        //Êîðîòêèé ÄË. Íà÷àòü îòñ÷åò ÄË ïîëÿ(íî óæå 2 áàéòà ïðîéäåíî).
        DLFilda := GetDLSmall(byte(ZapisString[kursor-1]))-2;
      end
      else begin
        //Äëèííûé ÄË. Ïðîäîëæàòü ìèíóñèòü ÄËÔèëäà è çàïèñàòü 1 áàéò.
        b1 := byte(ZapisString[kursor-1]);
      end;
    end;
    if DLFilda = -3 then begin
      //Äëèííûé ÄË. Ïðîäîëæàòü ìèíóñèòü ÄËÔèëäà è çàïèñàòü 1 áàéò.
      b2 := byte(ZapisString[kursor-1]);
    end;
    if DLFilda = -4 then begin
      //Äëèííûé ÄË. Ïðîäîëæàòü ìèíóñèòü ÄËÔèëäà è çàïèñàòü 1 áàéò.
      b3 := byte(ZapisString[kursor-1]);
    end;
    if DLFilda = -5 then begin
      //Äëèííûé ÄË. Çàïèñàòü 1 áàéò, ïîñ÷èòàòü ÄË è íà÷àòü åãî îòñ÷åò.
      b4 := byte(ZapisString[kursor-1]);
      DLFilda := GetDLBig(b1, b2, b3, b4)-5 //íî 5 áàéòîâ óæå ïðîéäåíî.
    end;
  until kursor = Siz;
  //FieldOv := FieldOv-1;
  FieldsCreated := true;
  ZapisCreated := true;
end;

Procedure TZapisBaziPz.BuildZap;
var
  ChBaita : ChetireBaita;

begin
  //Ñîçäàíèå ñòðîêè çàïèñè èç ñòðîêè ïîëåé.
  //Íàäî ïðîñòî çàïèñàòü ÄË è áàéò 1.
  ZapisString := '';
  siz := 0;
  ZapisString := ZapisString+char(byte(01));
  siz := 1;
  //Ïîëó÷åíèå ÄË. +2 - ò.ê ó÷åñòü çàãîëîâîê ñ êîðîòêèì ÄË.
  if SizFieldOv+2 < 130 then begin
    //Êîðîòêèé ÄË.
    ZapisString := ZapisString+char(MakeDLSmall(SizFieldOv+2));
    siz := siz+1;
  end
  else begin
    //Äëèííûé ÄË.
    ChBaita := MakeDLBig(SizFieldOv+5);
    //Çàïèñü áàéòîâ...
    ZapisString := ZapisString+char(ChBaita[1]);
    ZapisString := ZapisString+char(ChBaita[2]);
    ZapisString := ZapisString+char(ChBaita[3]);
    ZapisString := ZapisString+char(ChBaita[4]);
    siz := siz+4;
  end;
  //Ïðèëåïèòü ñòðîêó ïîëåé.
  ZapisString := ZapisString+FieldsString;
  siz := siz+SizFieldOv;
  ZapisCreated := true;
end;

Function TZapisBaziPz.GetField(const FieldNum : integer) : ANSIString;
var
  I, J, kursor, DLFilda : integer;
  b1, b2, b3, b4 : byte;
  StrokaPolya : string;
begin
  //Ôóíêöèÿ ïîëó÷åíèÿ ñòðîêè ñîäåðæèìîãî ïîëß èç ñòðîêè ïîëåé.
  //Ïðîâåðèòü ïðàâèëüíîñòü íîìåðà ïîëÿ.
  If (FieldNum > 0) and (FieldNum <= FieldOv) then begin
    //Âûõîä êóðñîðîì íà íà÷àëî íóæíîãî ïîëÿ.
    kursor := 1;
    For I := 1 to FieldNum do begin
      //Öèêë "ïðîãîíêè" ÷åðåç ïîëå.
      kursor := kursor+1; //Ïðîñêî÷èòü íîìåð ïîëÿ â áàçå
      if chetnoe(byte(FieldsString[kursor])) = true then begin
        //Êîðîòêèé ÄË, ðàññ÷åò...
        DLFilda := GetDLSmall(byte(FieldsString[kursor]))-2;
      end
      else begin
        //Äëèííûé ÄË. Ðàññ÷åò è âûõîä êóðñîðîì íà ïîñëåäíèé áàéò ÄË.
        b1 := byte(FieldsString[kursor]);
        kursor := kursor+1;
        b2 := byte(FieldsString[kursor]);
        kursor := kursor+1;
        b3 := byte(FieldsString[kursor]);
        kursor := kursor+1;
        b4 := byte(FieldsString[kursor]);
        DLFilda := GetDLBig(b1,b2,b3,b4)-5;
      end;
      kursor := kursor+1; //- íà íà÷àëî ñîäåðæèìîãî ïîëÿ.
      //Òåïåðü ïðîãíàòü ïî ïîëþ è âûéòè íà íà÷. ñëåäóþùåãî
      //Åñëè ýòî íå íóæíîå ïîëå. Èíà÷å - ïîëå ïðî÷èòàòü.
      if I <> FieldNum then kursor := kursor+DLFilda
      else begin
        //Ïðî÷èòàòü ïîëå.
        StrokaPolya := '';
        For J := 0 to DLFilda-1 do begin
          StrokaPolya := StrokaPolya+char(FieldsString[kursor+J]);
        end;
        //Âåðíóòü äëèíó ñîäåðæèìîãî ïîëÿ
        SizFieldOtv := DLFilda;
      end;
    end;
    //Âåðíóòü ðåçàëò
    Result := StrokaPolya;
  end
  else begin
    //Ãðîìêî çàîðàòü ïðî îøèáêó...
    MessageDLG('Íåïðàâèëüíûé íîìåð ïîëÿ áàçû!',mtError,[mbOk],0);
    Result := 'ERROR!';
  end;
end;

Procedure TZapisBaziPz.ReWriteField(const FieldNum, sizSt : integer; St: ANSIString);
var
  I, J, kursor, DLFilda : integer;
  b1, b2, b3, b4 : byte;
  OldStroka : string;
  ChB : ChetireBaita;
begin
  //Ïðîöåäóðà çàïèñè íîâîãî çíà÷åíèÿ ïîëÿ â ñòðîêó ïîëåé, è ïåðåðàñ÷åò ÄË ïîëÿ.
  //Ðåàëüíî æå ïðîèñõîäèò ïåðåçàïèñü ñòðîêè ïîëåé ñ íîâûì çíà÷åíèåì êîíêðåòíîãî ïîëÿ.
  OldStroka := FieldsString;
  FieldsString := '';
  SizFieldOv := 0;
  kursor := 0;
  For I := 1 to FieldOv do begin
    kursor := kursor+1;
    FieldsString := FieldsString+OldStroka[kursor];
    SizFieldOv := SizFieldOv+1;
    kursor := kursor+1;
    if I <> FieldNum then begin
      //Íåèçìåíÿåìîå ïîëå
      FieldsString := FieldsString+OldStroka[kursor];
      SizFieldOv := SizFieldOv+1;
      //Êóðñîð ñòîèò òåïåðü íà íà÷àëå ÄË.
      if chetnoe(byte(OldStroka[kursor])) then begin
        DLFilda := GetDLSmall(byte(OldStroka[kursor]))-2;
      end
      else begin
        b1 := byte(OldStroka[kursor]);
        kursor := kursor+1;
        FieldsString := FieldsString+OldStroka[kursor];
        SizFieldOv := SizFieldOv+1;
        b2 := byte(OldStroka[kursor]);
        kursor := kursor+1;
        FieldsString := FieldsString+OldStroka[kursor];
        SizFieldOv := SizFieldOv+1;
        b3 := byte(OldStroka[kursor]);
        kursor := kursor+1;
        FieldsString := FieldsString+OldStroka[kursor];
        SizFieldOv := SizFieldOv+1;
        b4 := byte(OldStroka[kursor]);
        DLFilda := GetDlBig(b1,b2,b3,b4)-5;
      end;
      //Ïåðåïèñàòü ñîäåðæèìîå ïîëÿ...
      for J := 1 to DLFilda do begin
        kursor := kursor+1;
        FieldsString := FieldsString+OldStroka[kursor];
        SizFieldOv := SizFieldOv+1;
      end;
    end
    else begin
      //Èçìåíÿåìîå ïîëå.
      //Ïðîãíàòü êóðñîð ÷òåíèÿ ÷åðåç ïîëå íî íå ïåðåïèñûâàòü ïîëÿ
      //Êóðñîð ñòîèò òåïåðü íà íà÷àëå ÄË.
      if chetnoe(byte(OldStroka[kursor])) then begin
        DLFilda := GetDLSmall(byte(OldStroka[kursor]))-2;
      end
      else begin
        b1 := byte(OldStroka[kursor]);
        kursor := kursor+1;
        b2 := byte(OldStroka[kursor]);
        kursor := kursor+1;
        b3 := byte(OldStroka[kursor]);
        kursor := kursor+1;
        b4 := byte(OldStroka[kursor]);
        DLFilda := GetDlBig(b1,b2,b3,b4)-5;
      end;
      //Ïðîãíàòü ÷åðåç ñîäåðæèìîå ïîëÿ...
      for J := 1 to DLFilda do begin
        kursor := kursor+1;
      end;
      //À òåïåðü ñîáñíî çàïèñàòü ïîëå çàíîâî.
      //Ïèøó ÄË
      if sizST+2 < 130 then begin
        b1 := MakeDLSmall(sizST+2);
        FieldsString := FieldsString+char(b1);
        SizFieldOv := SizFieldOv+1;
      end
      else begin
        ChB := MakeDLBig(sizST+5);
        FieldsString := FieldsString+char(ChB[1]);
        SizFieldOv := SizFieldOv+1;
        FieldsString := FieldsString+char(ChB[2]);
        SizFieldOv := SizFieldOv+1;
        FieldsString := FieldsString+char(ChB[3]);
        SizFieldOv := SizFieldOv+1;
        FieldsString := FieldsString+char(ChB[4]);
        SizFieldOv := SizFieldOv+1;
      end;
      //Ïèøó ñîäåðæèìîå
      For J := 1 to sizST do begin
        FieldsString := FieldsString+st[J];
        SizFieldOv := SizFieldOv+1;
      end;
    end;
  end;
end;

Procedure TZapisBaziPz.CreateFields(const FieldNum : integer; NomPoley : StoIntegerov);
var
  I : integer;
begin
  //Ñîçäàíèå ñòðîêè ïîëåé (îáû÷íî åñëè íåò ñòðîêè çàïèñè).
  FieldsCreated := true;
  ZapisCreated := false;
  FieldOv := 0;
  Siz := 0;
  SizFieldOv := 0;
  FieldsString := '';
  ZapisString := '';
  for I := 1 to FieldNum do begin
    FieldsString := FieldsString+char(byte(NomPoley[I]));
    SizFieldOv := SizFieldOv+1;
    FieldsString := FieldsString+char(byte(0));
    SizFieldOv := SizFieldOv+1;
  end;
  FieldOv := FieldNum;
end;

Procedure VipravitFaili(DirPath : string);
var
  I : integer;
  FailEst : boolean;
  FNam, FNam2 : string;
begin
  //Ïðîöåäóðà ïðîâåðêè è ðåïàðàöèè èìåí ôàéëîâ (åñëè 2 èç ôàéëîâ áûë óäàëåí).
  //Ïåðâîå - äîéòè äî òî÷êè ðàçðûâà.
  I := 0;
  repeat
    I := I+1;
    FailEst := false;
    FNam := GenerateNumName(I,'')+'.zap';
    If FileExistsDiv(FNam,DirPath) = true then FailEst := true;
  until FailEst = false;
  //Âûïðàâëåíèå...
  repeat
    I := I+1;
    FailEst := false;
    FNam := GenerateNumName(I-1,'')+'.zap';
    FNam2 := GenerateNumName(I,'')+'.zap';
    if FileExistsDiv(FNam2,DirPath) = true then begin
      FailEst := true;
      RenameFile(DirPath+FNam2,DirPath+FNam);
    end;
  until FailEst = false;
end;

Function OtkusitPodPole(Point1 : PointToStr) : string;
var
  Otkusheno, DL : Integer;
begin
  //Ôóíêà äëÿ îòêóñûâàíèÿ îò ñëîæíîãî ïîëÿ ïåðâîãî ïîäïîëÿ.
  //Þçàåò ÁîøêÎòêóñàëêó èç MySys.pas

  //Ïðîâåðèòü òèï ÄË.
  if Chetnoe(byte(Point1^[2])) = true then begin
    //ÄË êîðîòêèé.
    DL := GetDlSmall(byte(Point1^[2]))-2;
    Otkusheno := 2;
  end
  else begin
    //ÄË äëèííûé
    DL := GetDlBig(byte(Point1^[2]),byte(Point1^[3]),byte(Point1^[4]),byte(Point1^[5]))-5;
    Otkusheno := 5;
  end;

  //À òåïåðü ïðîñòî ÎòÊóÑèÒü ÂñÅ íÅíÓæÍîÅ!!!!!
  OtkusitStrokeBashku(@Point1^,Otkusheno);
  //À ïîòîì ÂÛêóñèòü íóæíûé êóñîê...
  Result := OtkusitStrokeBashku(@Point1^,DL);

  //Íó âîò âðîäå âñå...
end;

Function AddPodPole(const Str, AddStr : string; zagol : integer): string;
var
  SizText : integer;
  ChBaita : ChetireBaita;
begin
  //Ôóíêà äëÿ äîáàâëåíèÿ ïîäïîëÿ â ñòðîêó ñëîæíîãî ïîëÿ.

  //Ñíà÷àëà ïðèëåïèòü çàãîëîâîê.

  Result := Str;
  Result := Result+char(byte(zagol));

  //Òåïåðü ïîëó÷èòü (è äîáàâèòü) ÄË.
  SizText := Length(AddStr);
  if SizText+2 < 130 then begin
    //Êîðîòêèé ÄË.
    Result := Result+char(MakeDLSmall(SizText+2));
  end
  else begin
    //Äëèííûé ÄË.
    ChBaita := MakeDLBig(SizText+5);