Вверх ↑
Этот топик читают: Гость
Ответов: 6
Рейтинг: 0
#1: 2020-12-28 12:17:39 ЛС | профиль | цитата
В примере видно, что в ини файл записывается перед числом "1", три пробела, а вот читается из ини без них.
Как победить?


Add(MainForm,2953706,413,308)
{
Width=544
Height=275
}
Add(Edit,12492534,665,329)
{
Left=210
Top=85
Width=200
Hint="Таямер смены строки НЕ РЕКОМЕНДУЕТСЯ ставить значенее меньше 10 сек и больше 9999 сек !"
Text=" 1"
link(onChange,14453683:doEvent1,[])
}
Add(MultiElement,5344111,770,266)
{
}
BEGIN_SDK
Add(EditMulti,6174360,21,21)
{
EventCount=1
WorkCount=1
VarCount=1
Width=783
Height=389
link(doWork1,13934418:doEvent1,[(143,27)(143,223)])
link(Var1,5058092:GetData,[(27,347)(489,347)])
}
Add(ComputerInfo,8920223,343,105)
{
}
Add(StrCat,5665239,350,161)
{
Str2="Экрвн_покупателя_Таймер"
link(Str1,8920223:CompName,[])
}
Add(Hub,13934418,266,217)
{
link(onEvent1,5665239:doStrCat,[(315,223)(315,167)])
link(onEvent2,8102827:doData,[])
}
Add(DoData,8102827,350,224)
{
link(onEventData,8534663:doEvent1,[])
link(Data,5665239:Result,[])
}
Add(EventFromData,5058092,483,252)
{
}
Add(Hub,8534663,420,224)
{
link(onEvent1,6174360:onEvent1,[(593,230)(593,27)])
link(onEvent2,5058092:doData,[(458,237)(458,258)])
}
END_SDK
Add(Ini,491376,770,329)
{
FileName="seting.ini"
Section="seting"
Type=1
link(Key,5344111:Var1,[(790,313)(776,313)])
}
Add(Hub,14453683,728,329)
{
link(onEvent1,5344111:doWork1,[(760,335)(760,272)])
link(onEvent2,491376:doWrite,[])
}
Add(MultiElement,7609219,609,322)
{
}
BEGIN_SDK
Add(EditMulti,15446095,21,21)
{
EventCount=1
WorkCount=1
VarCount=1
Width=783
Height=389
link(doWork1,2755756:doEvent1,[(143,27)(143,223)])
link(Var1,9983250:GetData,[(27,347)(489,347)])
}
Add(ComputerInfo,5843068,343,105)
{
}
Add(StrCat,6501792,350,161)
{
Str2="Экрвн_покупателя_Таймер"
link(Str1,5843068:CompName,[])
}
Add(Hub,2755756,266,217)
{
link(onEvent1,6501792:doStrCat,[(315,223)(315,167)])
link(onEvent2,9599626:doData,[])
}
Add(DoData,9599626,350,224)
{
link(onEventData,11465664:doEvent1,[])
link(Data,6501792:Result,[])
}
Add(EventFromData,9983250,483,252)
{
}
Add(Hub,11465664,420,224)
{
link(onEvent1,15446095:onEvent1,[(593,230)(593,27)])
link(onEvent2,9983250:doData,[(458,237)(458,258)])
}
END_SDK
Add(Ini,8970041,595,385)
{
FileName="seting.ini"
Section="seting"
Type=1
link(onResult,11861219:doText,[])
link(Key,7609219:Var1,[])
}
Add(Hub,13165309,553,378)
{
OutCount=3
link(onEvent1,7609219:doWork1,[(588,384)(588,328)])
link(onEvent2,8970041:doRead,[])
}
Add(Button,10296675,490,378)
{
Left=130
Top=85
link(onClick,13165309:doEvent1,[])
}
Add(Edit,11861219,665,385)
{
Left=210
Top=110
Width=200
}


--- Добавлено в 2020-12-28 12:51:23

Удалось так победить


Add(MainForm,3372200,168,154)
{
Width=544
Height=275
link(onCreate,3323058:doEvent1,[(254,174)(254,223)])
}
Add(Edit,16653781,476,175)
{
Left=210
Top=85
Width=200
Hint="Таямер смены строки НЕ РЕКОМЕНДУЕТСЯ ставить значенее меньше 10 сек и больше 9999 сек !"
Text="1"
link(onChange,3385823:doReplace,[])
}
Add(MultiElement,16715370,637,112)
{
}
BEGIN_SDK
Add(EditMulti,2634900,21,21)
{
EventCount=1
WorkCount=1
VarCount=1
Width=783
Height=389
link(doWork1,13262747:doEvent1,[(143,27)(143,223)])
link(Var1,11115384:GetData,[(27,347)(489,347)])
}
Add(ComputerInfo,8053536,343,105)
{
}
Add(StrCat,6735188,350,161)
{
Str2="Экрвн_покупателя_Таймер"
link(Str1,8053536:CompName,[])
}
Add(Hub,13262747,266,217)
{
link(onEvent1,6735188:doStrCat,[(315,223)(315,167)])
link(onEvent2,2383695:doData,[])
}
Add(DoData,2383695,350,224)
{
link(onEventData,16551035:doEvent1,[])
link(Data,6735188:Result,[])
}
Add(EventFromData,11115384,483,252)
{
}
Add(Hub,16551035,420,224)
{
link(onEvent1,2634900:onEvent1,[(593,230)(593,27)])
link(onEvent2,11115384:doData,[(458,237)(458,258)])
}
END_SDK
Add(Ini,124559,637,175)
{
FileName="seting.ini"
Section="seting"
Type=1
link(Key,16715370:Var1,[(657,159)(643,159)])
}
Add(Hub,5501445,595,175)
{
link(onEvent1,16715370:doWork1,[(627,181)(627,118)])
link(onEvent2,124559:doWrite,[])
}
Add(MultiElement,5302456,364,161)
{
}
BEGIN_SDK
Add(EditMulti,15041074,21,21)
{
EventCount=1
WorkCount=1
VarCount=1
Width=783
Height=389
link(doWork1,8133106:doEvent1,[(143,27)(143,223)])
link(Var1,7600212:GetData,[(27,347)(489,347)])
}
Add(ComputerInfo,16500003,343,105)
{
}
Add(StrCat,12629245,350,161)
{
Str2="Экрвн_покупателя_Таймер"
link(Str1,16500003:CompName,[])
}
Add(Hub,8133106,266,217)
{
link(onEvent1,12629245:doStrCat,[(315,223)(315,167)])
link(onEvent2,14905151:doData,[])
}
Add(DoData,14905151,350,224)
{
link(onEventData,6704801:doEvent1,[])
link(Data,12629245:Result,[])
}
Add(EventFromData,7600212,483,252)
{
}
Add(Hub,6704801,420,224)
{
link(onEvent1,15041074:onEvent1,[(593,230)(593,27)])
link(onEvent2,7600212:doData,[(458,237)(458,258)])
}
END_SDK
Add(Ini,16112281,350,224)
{
FileName="seting.ini"
Section="seting"
Type=1
link(onResult,3930157:doReplace,[])
link(Key,5302456:Var1,[])
}
Add(Hub,3323058,308,217)
{
InCount=2
OutCount=3
link(onEvent1,5302456:doWork1,[(343,223)(343,167)])
link(onEvent2,16112281:doRead,[])
}
Add(Button,4824708,203,224)
{
Left=130
Top=85
link(onClick,3323058:doEvent2,[])
}
Add(Edit,2409538,497,231)
{
Left=210
Top=110
Width=200
}
Add(Replace,3930157,399,224)
{
SubStr="""
DestStr=" "
link(onReplace,13467835:doEvent1,[])
}
Add(Replace,3385823,532,175)
{
SubStr=" "
DestStr="""
link(onReplace,5501445:doEvent1,[])
}
Add(Hub,13467835,441,224)
{
link(onEvent1,16653781:doText,[(465,230)(465,181)])
link(onEvent2,2409538:doText,[])
}


Редактировалось 1 раз(а), последний 2020-12-28 12:51:23
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 1942
Рейтинг: 627
#2: 2020-12-28 15:19:25 ЛС | профиль | цитата
Psaho, достаточно прочитать информацию по ini файлу в интернете.
Описание формата ini-файлов писал(а):
Пробелы и символы табуляции, стоящие до открывающей и после закрывающей квадратных скобок, игнорируются.

Так же вы не правильно используете элемент EventFromData(Генерирует событие при обращении к данным), в место него нужно использовать Memory(Запоминает данные из потока).
Но в вашей схеме можно обойтись без этих элементов
Add(MainForm,2953706,252,210)
{
}
Add(ComputerInfo,5843068,245,273)
{
}
Add(StrCat,6501792,252,329)
{
Str2="Экрвн_покупателя_Таймер"
link(onStrCat,8970041:doRead,[])
link(Str1,5843068:CompName,[])
}
Add(Ini,8970041,294,329)
{
FileName="seting.ini"
Section="seting"
Type=1
link(onResult,11861219:doText,[])
}
Add(Button,10296675,203,329)
{
Left=130
Top=85
link(onClick,6501792:doStrCat,[])
}
Add(Edit,11861219,343,329)
{
Left=210
Top=110
Width=200
}
Add(Edit,12492534,203,462)
{
Left=210
Top=85
Width=200
Hint="Таямер смены строки НЕ РЕКОМЕНДУЕТСЯ ставить значенее меньше 10 сек и больше 9999 сек !"
Text=" 1"
link(onChange,14652450:doStrCat,[])
}
Add(Ini,491376,301,455)
{
FileName="seting.ini"
Section="seting"
Type=1
}
Add(ComputerInfo,12598370,245,413)
{
}
Add(StrCat,14652450,252,462)
{
Str2="Экрвн_покупателя_Таймер"
link(onStrCat,491376:doWrite,[])
link(Str1,12598370:CompName,[])
}
Прочтите и посмотрите примеры в справке (нажать F1). Как минимум HiAsm\Оболочка\Основы (в самом низу Циркуляция данных).

Редактировалось 3 раз(а), последний 2020-12-28 15:21:07
карма: 9

0
Ответов: 100
Рейтинг: 16
#3: 2020-12-28 18:08:17 ЛС | профиль | цитата
Psaho, EventFromData применяется так.

Add(MainForm,12204489,483,56)
{
Height=136
}
Add(ComputerInfo,5843068,616,42)
{
}
Add(StrCat,6501792,623,105)
{
Str2="_Экрвн_покупателя_Таймер"
link(onStrCat,13586974:doData,[(662,111)(662,97)(571,97)(571,111)])
link(Str1,5843068:CompName,[])
}
Add(Ini,8970041,567,175)
{
FileName="seting.ini"
Section="seting"
Type=1
link(onResult,258035:doReplace,[])
link(Key,13586974:GetData,[])
}
Add(Button,10296675,455,175)
{
Left=5
Top=15
link(onClick,8970041:doRead,[])
}
Add(Edit,11861219,693,175)
{
Left=85
Top=40
Width=200
}
Add(Edit,12492534,455,224)
{
Left=85
Top=15
Width=200
Hint="Таямер смены строки НЕ РЕКОМЕНДУЕТСЯ ставить значенее меньше 10 сек и больше 9999 сек !"
Text=" 1"
ClearAfterEnter=1
link(onChange,12406493:doReplace,[])
}
Add(EventFromData,13586974,581,105)
{
link(onEvent,6501792:doStrCat,[])
}
Add(Replace,12406493,504,224)
{
SubStr=" "
DestStr="#"
link(onReplace,8970041:doWrite,[(543,230)(543,188)])
}
Add(Replace,258035,637,175)
{
SubStr="#"
DestStr=" "
link(onReplace,11861219:doText,[])
}

карма: 4

0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)