да я из Львовской обл. такое ощущение что попал на форум Русского языка . Kazbek17 почему то выбивает Runtime error 216 (
------------ Дoбавленo в 23.20:
Kazbek17 сделал .. Запустил ваша версия программы проще и удобнее но она оставляет например Esc или же там ф1 ф2 ф3 не убирает если такие были нажаты и они не убраться после форматирования в нормальный вид для чтения.. как можно сделать отсеивание? а то даже пробел пишет space хотя должно было сделать замену на простой отступ.. кажется мне что все элементы RepLace из старой версии программы ставить в Вашу На данном этапе пока ето конечная версия хоть и без "уборки" мусора Make(delphi)
ver(4.04 build 185)
Add(MainForm,12966647,28,287)
{
Width=340
Height=513
Color=-16777194
WinStyle=2
Caption="Дешифратор"
BorderStyle=3
}
Add(ListBox,5018169,294,280)
{
Left=5
Top=75
Width=125
Height=360
Font=[MS Sans Serif,8,1,255,1]
Point(doSelect)
Point(Index)
Point(String)
link(FileName,6442687:Caption,[])
}
Add(SDialog,14075694,392,147)
{
Filter="Text Files|.txt"
StartDir="C:\"
FileName="Finish"
link(onExecute,13026810:doWork2,[])
}
Add(ODialog,13060307,161,231)
{
Filter="Text Files|*.txt"
StartDir="C:\"
FileName=""
link(onExecute,8023905:doEvent1,[])
}
Add(DropFile,8334153,161,266)
{
link(onDropFile,8023905:doEvent2,[(206,272)(206,244)])
}
Add(Hub,8023905,217,231)
{
InCount=2
OutCount=3
link(onEvent1,6442687:doText,[])
link(onEvent2,5018169:doLoad,[(246,244)(246,314)])
link(onEvent3,1656217:doEnum,[(240,251)(240,356)])
}
Add(Memo,7433420,812,196)
{
Left=135
Top=75
Width=195
Height=360
Font=[MS Sans Serif,8,1,16711680,1]
ScrollBars=2
}
Add(Menu,7527490,21,70)
{
Menu=#4:Файл|1:(|8:Відкрити|8:Зберегти|1:-|21:Очистити вхідний файл|18:Очистити результат|1:-|5:Автор|1:)|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
Point(onSelectNum)
link(onSelectNum,879307:doValue,[])
}
Add(Button,10803865,616,322)
{
Left=5
Width=245
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Очистить и сделать пробелы"
link(onClick,15897651:doEvent1,[])
}
Add(Hub,10850186,189,98)
{
link(onEvent1,4093816:doData,[])
link(onEvent2,2401635:doData,[])
}
Add(Button,6490688,140,98)
{
Left=5
Top=25
Width=245
Height=25
Caption="Сохранить результат в txt"
link(onClick,10850186:doEvent1,[])
}
Add(Button,6100396,161,189)
{
Left=5
Top=50
Width=125
Height=25
Caption="Очистить данные"
link(onClick,3003356:doWork2,[(221,195)(221,202)])
}
Add(Button,11730504,392,196)
{
Left=135
Top=50
Width=115
Height=25
Caption="Очистить результат"
link(onClick,859260:doWork3,[(466,202)(466,225)(507,225)])
}
Add(StrList,10001673,539,245)
{
Strings=#3:Esc|2:F1|2:F2|2:F3|2:F4|2:F5|2:F6|2:F7|2:F8|2:F9|3:F10|3:F11|3:F12|11:Scroll Lock|6:Insert|5:Pause|1:`|1:0|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|1:-|1:=|9:Backspace|4:Home|3:End|8:Num Lock|5:Num /|5:Num *|5:Num -|3:Tab|1:Q|1:W|1:E|1:R|1:T|1:Y|1:U|1:I|1:O|1:P|1:[|1:]|1:\|6:Delete|7:Page Up|5:Num 7|5:Num 8|5:Num 9|5:Num +|9:Caps Lock|1:A|1:S|1:D|1:F|1:G|1:H|1:J|1:K|1:L|1:;|1:'|5:Enter|9:Page Down|5:Num 4|5:Num 5|5:Num 6|5:Shift|1:Z|1:X|1:C|1:V|1:B|1:N|1:M|1:<|1:>|1:?|5:Shift|8:Arrow Up|5:Num 1|5:Num 2|5:Num 3|9:Num Enter|4:Ctrl|3:Win|3:Alt|5:Space|3:Alt|5:Ankap|4:Ctrl|10:Arrow Left|10:Arrow Down|11:Arrow Right|5:Num 0|5:Num .|
Point(doGetString)
Point(onGetString)
link(onGetString,14302421:doEvent1,[(587,258)(587,286)])
}
Add(Message,7722486,161,308)
{
Message="Все вопросы на bigggi@mail.ru"
Caption="Hello"
Icon=4
}
Add(IndexToChanel,11356079,77,133)
{
Count=8
Point(Index)
link(onEvent2,13060307:doExecute,[(142,146)(142,237)])
link(onEvent3,14075694:doExecute,[])
link(onEvent4,3003356:doWork1,[(252,160)])
link(onEvent5,859260:doWork1,[(507,167)])
link(onEvent8,7722486:doMessage,[(135,188)(135,314)])
link(Index,879307:Value,[])
}
Add(Memory,879307,77,77)
{
link(onData,11356079:doEvent,[(120,83)(120,117)(65,117)(65,139)])
}
Add(Label,6442687,301,231)
{
Left=8
Top=441
Width=36
Height=17
Font=[MS Sans Serif,8,1,255,1]
Caption="Путь:"
ColorHover=255
}
Add(ArrayEnum,1656217,308,350)
{
link(onItem,1656242:doGetIndex,[(376,356)(376,328)])
link(onEndEnum,5133674:doWork3,[(349,363)(349,388)(252,388)])
link(Array,5018169:Array,[])
}
Add(StrList,1656242,434,280)
{
Strings=#2:27|3:112|3:113|3:114|3:115|3:116|3:117|3:118|3:119|3:120|3:121|3:122|3:123|3:145|2:45|2:19|3:192|2:48|2:49|2:50|2:51|2:52|2:53|2:54|2:55|2:56|2:57|3:189|3:187|1:8|2:36|2:35|3:144|3:111|3:106|3:109|1:9|2:81|2:87|2:69|2:82|2:84|2:89|2:85|2:73|2:79|2:80|3:219|3:221|3:220|2:46|2:33|3:103|3:104|3:105|3:107|2:20|2:65|2:83|2:68|2:70|2:71|2:72|2:74|2:75|2:76|3:186|3:222|2:13|2:34|3:100|3:101|3:102|2:16|2:90|2:88|2:67|2:86|2:66|2:78|2:77|3:188|3:190|3:191|2:16|2:38|2:97|2:98|2:99|2:13|2:17|2:91|2:18|2:32|2:18|2:93|2:17|2:37|2:40|2:39|2:96|3:110|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,8150389:doEvent,[])
}
Add(HubEx,5133674,248,294)
{
link(onEvent,5018169:doClear,[(274,300)(274,293)])
}
Add(StrCat,481863,812,287)
{
link(onStrCat,7433420:doText,[(850,293)(850,255)(787,255)(787,223)])
link(Str1,5589117:Var2,[])
}
Add(StrCat,6464866,728,266)
{
Str2=" "
link(onStrCat,481863:doStrCat,[(786,272)(786,293)])
}
Add(StrList,10530138,812,336)
{
}
Add(DoData,4093816,266,98)
{
Data=String(Розшифровка стандартний вигляд.txt)
link(onEventData,1178058:doWork1,[(368,104)])
}
Add(DoData,2401635,224,105)
{
Data=String(Розшифрований файл на UA.txt)
link(onEventData,1178058:doWork2,[(310,111)(310,118)])
}
Add(HubEx,13026810,525,147)
{
link(onEvent,7433420:doSave,[(671,153)(671,237)])
}
Add(HubEx,1178058,364,112)
{
Angle=1
link(onEvent,13026810:doWork1,[(368,132)(529,132)])
}
Add(StrCase,53833,763,301)
{
link(onModify,10530138:doAdd,[(803,307)(803,342)])
link(Str,5589117:Var1,[(769,268)])
}
Add(GetDataEx,5589117,812,263)
{
link(Data,7433420:Text,[])
}
Add(Hub,15897651,679,322)
{
OutCount=4
link(onEvent1,53833:doModify,[(728,328)(728,307)])
link(onEvent2,273956:doWork3,[(705,335)(705,277)(662,277)])
link(onEvent3,12897859:doReplace,[(753,342)(753,405)])
link(onEvent4,10530138:doClear,[])
}
Add(Replace,12897859,812,399)
{
link(onReplace,7433420:doAdd,[(856,405)(856,303)(800,303)(800,202)])
link(Str,10530138:Text,[])
}
Add(HubEx,273956,658,210)
{
link(onEvent,7433420:doClear,[(692,216)(692,209)])
}
Add(HubEx,859260,503,210)
{
link(onEvent,273956:doWork2,[])
}
Add(HubEx,3003356,248,196)
{
Angle=1
link(onEvent,5133674:doWork1,[])
}
Add(IndexToChanel,8150389,483,287)
{
Count=8
Point(Index)
link(onEvent1,10001673:doGetString,[])
link(onEvent2,6215366:doGetString,[(523,300)(523,363)])
link(Index,6875787:State,[])
}
Add(StrList,6215366,539,315)
{
Strings=#3:Esc|2:F1|2:F2|2:F3|2:F4|2:F5|2:F6|2:F7|2:F8|2:F9|3:F10|3:F11|3:F12|11:Scroll Lock|6:Insert|5:Pause|1:`|1:0|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|1:-|1:=|9:Backspace|4:Home|3:End|8:Num Lock|5:Num /|5:Num *|5:Num -|3:Tab|1:Й|1:Ц|1:У|1:К|1:Е|1:Н|1:Г|1:Ш|1:Щ|1:З|1:Х|1:Ї|1:\|6:Delete|7:Page Up|5:Num 7|5:Num 8|5:Num 9|5:Num +|9:Caps Lock|1:Ф|1:І|1:В|1:А|1:П|1:Р|1:О|1:Л|1:Д|1:Ж|1:Є|5:Enter|9:Page Down|5:Num 4|5:Num 5|5:Num 6|5:Shift|1:Я|1:Ч|1:С|1:М|1:И|1:Т|1:Ь|1:Б|1:Ю|1:.|5:Shift|8:Arrow Up|5:Num 1|5:Num 2|5:Num 3|9:Num Enter|4:Ctrl|3:Win|3:Alt|5:Space|3:Alt|5:Ankap|4:Ctrl|10:Arrow Left|10:Arrow Down|11:Arrow Right|5:Num 0|5:Num .|
Point(doGetString)
Point(onGetString)
link(onGetString,14302421:doEvent3,[(587,328)(587,300)])
}
Add(Hub,14302421,602,280)
{
InCount=3
link(onEvent1,6464866:doStrCat,[(679,286)(679,272)])
}
Add(Switch,6875787,483,231)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(State)
}
Add(Button,8737654,398,251)
{
Left=250
Width=80
Height=75
Font=[MS Sans Serif,16,1,0,1]
Caption="EN"
Point(doCaption)
link(onClick,5950310:doEvent1,[])
}
Add(Switch,14243762,349,251)
{
DataOn=String(UA)
DataOff=String(EN)
link(onSwitch,8737654:doCaption,[])
}
Add(Hub,5950310,447,251)
{
link(onEvent1,14243762:doSwitch,[(473,257)(473,245)(337,245)(337,257)])
link(onEvent2,6875787:doSwitch,[(472,264)(472,237)])
}
Add(StyleXP,4304455,77,203)
{
}
|
полный пипец. Еле разобрался что к чему, да еще и украинский выучил 
. Bigggi Посмотри как сделано в моей схеме, я ее немного подправил. 
Поиск
Друзья
Администрация