nesco писал(а): Я же не сам это писал, это -- результат собственной SQLite конвертации
Две рядом стоящие строчки ( именно рядом стоящие):
а как отличаются "собственной SQLite конвертации"
А вообще, по хорошему, контрольную сумму посчитать перед db_to_sql лишнее ?
И я бы мог заменить только отличающиеся контрольной суммой и иметь список измененных компонентов и т.д. и т.п.
------------ Дoбавленo в 20.53:
Совпадения есть, но редко
Add(MainForm,2953706,126,175) { Width=698 Height=510 } Add(ChildGroupBox,13446297,126,126) { link(onEvent1,14488523:doQuery,[]) } BEGIN_SDK Add(EditMulti,13346047,21,21) { EventCount=1 VarCount=1 Width=538 Height=312 link(Var1,8598513:dbHandle,[(27,270)(384,270)]) } Add(GroupBox,12673051,35,105) { Left=10 Top=5 Width=668 Caption="Path to Elements.db" } Add(Button,11958215,329,175) { @Color=16766164 Left=530 Top=20 Width=60 Height=21 Font=[Tahoma,9,1,0,204] TabOrder=-1 Caption="Open" link(onClick,8598513:doOpen,[]) } Add(Edit,11123252,378,133) { Left=80 Top=20 Width=445 Color=15793151 Font=[Tahoma,8,0,0,204] Text="Elements\Delphi\Elements.db" link(onChange,117125:doWrite,[(416,139)(416,76)(261,76)(261,97)]) } Add(Button,10284059,147,252) { @Color=16766164 Left=595 Top=20 Width=60 Height=21 Font=[Tahoma,9,1,0,204] TabOrder=-1 Caption="Close" link(onClick,11969734:doWork2,[]) } Add(SQLite_DB,8598513,378,175) { link(onOpen,13346047:onEvent1,[(484,181)(484,27)]) link(onError,6373040:doWork,[]) link(FileName,11123252:Text,[]) } Add(Registry,117125,273,84) { HKey=1 Key="software\hiasm_prog" Value="dbname" link(onRead,11123252:doText2,[(342,90)(342,146)]) } Add(DropFile,16683987,273,133) { link(onDropFile,14004071:doWork2,[]) } Add(HubEx,14004071,315,133) { link(onEvent,11123252:doText,[]) } Add(Button,14099037,147,168) { @Color=16766164 Left=5 Top=20 Width=65 Height=21 Font=[Tahoma,9,1,0,204] TabOrder=-1 Caption="Browse" link(onClick,14393362:doEvent1,[]) } Add(ODialog,2567534,273,175) { Filter="SQLite files|*.db|New Format|*.db3|All|*.*" FileName="" link(onExecute,14004071:doWork3,[(319,181)]) } Add(Hub,15325790,322,252) { @Color=9342719 OutCount=3 link(onEvent2,8598513:doClose,[(367,265)(367,188)]) } Add(LineBreakEx,6373040,420,182) { @Color=16748287 Caption="Err" } Add(Hub,14393362,210,168) { @Color=9342719 link(onEvent1,11969734:doWork1,[(235,174)]) link(onEvent2,2567534:doExecute,[]) } Add(HubEx,11969734,231,252) { link(onEvent,15325790:doEvent1,[]) } END_SDK Add(StringTable,15840211,532,119) { Left=10 Top=70 Width=670 Height=395 Columns=#8:Name=150|23:Hash in Elements.db=250|13:Hash Fact=250| Grid=0 Point(Strings) } Add(SQLite_Query,14488523,175,126) { SQL="SELECT name,hash from elements where substr(name,1,1)<>'*'" link(onQuery,16182981:doStr,[]) } Add(MT_String,16182981,224,126) { link(onResult,11238193:doValue,[]) } Add(MultiStrPart,12911472,322,126) { link(onSplit,8318242:doString,[]) } Add(FormatStr,8318242,371,126) { DataCount=1 Mask="elements\delphi\code\hi%1.pas" link(onFString,14830115:doFileHashsum,[]) link(Str1,12911472:Part1,[(377,114)(364,114)(364,168)(328,168)]) } Add(Hashsum,14830115,420,119) { link(onResult,5134326:doStrCatDlm,[]) } Add(Memory,11238193,273,126) { link(onData,12911472:doSplit,[]) } Add(StrCatDelim,5134326,476,119) { Delimiter=";" link(onStrCatDlm,15840211:doAdd,[]) link(Str1,11238193:Value,[(482,107)(466,107)(466,177)(279,177)]) }
т.е. качаем примерно 10 кб лишнего и никому не нужного (надеюсь - пока ненужного) груза
|