Tad писал(а): Может добавишь ещё один режим ? Нах он нужен Add(MainForm,9732129,294,231) { Width=588 Height=314 } Add(FilePartElm,9787656,462,182) { Mode=0 link(onPart,16392858:doText,[]) } Add(FilePartElm,16275548,462,231) { link(onPart,14085738:doText,[]) } Add(FilePartElm,14461528,462,273) { Mode=2 link(onPart,632736:doText,[]) } Add(FilePartElm,12336870,462,322) { Mode=3 link(onPart,10456162:doText,[]) } Add(FilePartElm,8952542,462,364) { Mode=4 link(onPart,10171826:doText,[]) } Add(FilePartElm,12419260,462,413) { Mode=5 link(onPart,7637970:doText,[]) } Add(ODialog,6524965,294,182) { link(onExecute,1622222:doText,[]) } Add(Hub,11011993,406,182) { OutCount=8 link(onEvent1,9787656:doPart,[]) link(onEvent2,16275548:doPart,[(452,195)(452,237)]) link(onEvent3,14461528:doPart,[(452,202)(452,279)]) link(onEvent4,12336870:doPart,[(452,209)(452,328)]) link(onEvent5,8952542:doPart,[(452,216)(452,370)]) link(onEvent6,12419260:doPart,[(452,223)(452,419)]) link(onEvent7,2503241:doPart6,[(441,230)(441,461)]) link(onEvent8,2738068:doSplit,[(431,237)(431,538)]) } Add(Edit,1622222,350,182) { Left=90 Top=15 Width=450 Font=[MS Sans Serif,10,1,0,1] link(onChange,11011993:doEvent1,[]) } Add(Edit,16392858,532,182) { Left=91 Top=75 Width=451 Font=[MS Sans Serif,10,1,0,1] } Add(Edit,14085738,532,231) { Left=91 Top=100 Width=451 Font=[MS Sans Serif,10,1,0,1] } Add(Edit,632736,532,273) { Left=91 Top=125 Width=451 Font=[MS Sans Serif,10,1,0,1] } Add(Edit,10456162,532,322) { Left=91 Top=150 Width=451 Font=[MS Sans Serif,10,1,0,1] } Add(Edit,10171826,532,364) { Left=91 Top=175 Width=451 Font=[MS Sans Serif,10,1,0,1] } Add(Edit,7637970,532,413) { Left=91 Top=200 Width=451 Font=[MS Sans Serif,10,1,0,1] } Add(Button,803944,231,182) { Left=25 Top=15 link(onClick,6524965:doExecute,[]) } Add(Edit,3034112,532,455) { Left=91 Top=225 Width=451 Font=[MS Sans Serif,10,1,255,1] } Add(InlineCode,2503241,462,455) { @Hint=#41:Полный путь с именем файла без расширения| WorkPoints=#7:doPart6| EventPoints=#6:onPart| DataPoints=#8:FileName| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|19: FPart: string;|9: public|30: FileName, onPart:THI_Event;|50: Procedure doPart6(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|16:uses hiStr_Enum;|0:|63:Procedure THiAsmClass.doPart6; //Path + filename без расширения|5:begin|44: FPart := ReadString(_Data, FileName, '');|27: if FPart = '' then exit;|22: rparse(FPart, '.');|42: _hi_CreateEvent(_Data, @onPart, FPart);|5:end; |1:{|66:procedure THIFilePartElm._work_doPart6; // Path + file name WOExt|5:begin|50: FPart := ReadString(_Data, _data_FileName, '');|27: if FPart = '' then exit;|22: rparse(FPart, '.');|49: _hi_CreateEvent(_Data, @_event_onPart, FPart);|4:end;|1:}|0:|0:|4:end.| link(onPart,3034112:doText,[]) AddHint(-74,44,191,26,@Hint) } Add(Edit,8759850,532,532) { Left=91 Top=250 Width=451 Font=[MS Sans Serif,10,1,255,1] } Add(MultiStrPart,2738068,462,532) { Char="." Count=1 Direct=1 link(onSplit,8759850:doText,[]) }
И чего это забыло в пакете WEB
|