Add(MainForm,4448624,175,119)
{
Width=906
Height=472
}
Add(RichEdit,482586,238,119)
{
Left=15
Top=5
Width=425
Height=400
FileName="C:\\123.txt"
Strings=#6: |15: А 2211784 2|17: б/Л 2211784 2|15: А 2211784 2|15: А 2211784 2|15: А 2211784 2|15: А 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|15: А 2211784 2|15: А 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|15: Б 2211784 6|17: б/л 2211784 2|15: В 2211784 4|15: В 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|15: А 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|15: А 2211784 2|17: б/л 2211784 2|15: А 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|17: б/л 2211784 2|15: В 2211784 2|15: А 2211784 2|15: А 2211784 2|0:|
ScrollBars=3
}
Add(RichEdit,1515988,371,189)
{
Left=455
Top=5
Width=440
Height=400
ScrollBars=3
}
Add(Button,8644219,119,189)
{
Left=425
Top=415
link(onClick,13630832:go,[])
}
Add(Replace,14256248,301,189)
{
SubStr=" "
link(onReplace,15001422:doEvent1,[])
}
Add(InlineCode,13630832,238,189)
{
@Hint=#45:Замена любых неотображаемых знаков на пробелы|
WorkPoints=#2:go|
EventPoints=#7:CurText|
DataPoints=#4:text|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|18: text:THI_Event;|21: CurText:THI_Event;|3: |44: procedure go(var Data:TData; index:word);|3: |5: end;|0:|14:implementation|0:|25:procedure THiAsmClass.go;|3:var|11: S:String;|17: i, Len:Integer;|5:begin|28: S :=(ToStringEvent(text));|18: Len :=Length(S);|27: for i :=1 to Len do begin|35: if S[i] < #32 then S[i] := ' ';|6: end;|23:_hi_OnEvent(CurText,S);|4:end;|4:end.|
link(CurText,14256248:doReplace,[])
link(text,2982600:Var2,[])
}
Add(InlineCode,15015104,231,245)
{
@Hint=#17:Удалить табуляцию|
WorkPoints=#2:go|
EventPoints=#7:CurText|
DataPoints=#4:text|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|18: text:THI_Event;|21: CurText:THI_Event;|3: |44: procedure go(var Data:TData; index:word);|3: |5: end;|0:|14:implementation|0:|25:procedure THiAsmClass.go;|3:var|11: S:String;|17: i, Len:Integer;|5:begin|28: S :=(ToStringEvent(text));|18: Len :=Length(S);|27: for i :=1 to Len do begin|34: if S[i] = #9 then S[i] := ' ';|6: end;|23:_hi_OnEvent(CurText,S);|4:end;|4:end.|
link(CurText,15001422:doEvent2,[(303,251)(303,202)])
link(text,13584766:Var2,[])
}
Add(Hub,15001422,343,189)
{
InCount=3
link(onEvent1,1515988:doClear,[(364,195)(364,202)])
link(onEvent2,1515988:doAdd,[(364,202)(364,195)])
}
Add(GetDataEx,2982600,238,168)
{
link(Data,482586:Text,[])
}
Add(Button,10329520,119,245)
{
Left=505
Top=415
link(onClick,15015104:go,[])
}
Add(Button,2932786,119,301)
{
Left=585
Top=415
link(onClick,4046998:doReplace,[])
}
Add(Replace,4046998,224,301)
{
SubStr="\9"
link(onReplace,15001422:doEvent3,[(300,307)(300,209)])
link(Str,13584766:Var1,[(230,222)])
}
Add(GetDataEx,13584766,231,217)
{
link(Data,2982600:Var1,[(237,173)])
}
Ответов: 537
Рейтинг: 14
|
|||
IC делал давно, заменяет все непечатные символы на пробелы. В вашей схеме 1 Replace лишний
|
|||
карма: 4 |
|
Редактировалось 1 раз(а), последний 2018-04-09 12:01:27