Вверх ↑
Ответов: 537
Рейтинг: 14
#1: 2018-04-08 17:33:13 ЛС | профиль | цитата
Может так, сделал IC

Add(MainForm,4448624,175,49)
{
Width=906
Height=472
}
Add(RichEdit,482586,238,49)
{
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,357,119)
{
Left=455
Top=5
Width=440
Height=400
ScrollBars=3
}
Add(Button,8644219,182,119)
{
Left=425
Top=415
link(onClick,13630832:go,[])
}
Add(Replace,14256248,301,119)
{
SubStr=" "
link(onReplace,1515988:doAdd,[])
}
Add(InlineCode,13630832,238,119)
{
@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(text,482586:Text,[])
link(CurText,14256248:doReplace,[])
}

карма: 4

0