Вверх ↑
Этот топик читают: Гость
Ответов: 14
Рейтинг: 1
#1: 2012-07-06 20:35:19 ЛС | профиль | цитата
И как сделать чтоб при выключении данные сохранялись.
карма: 1

0
Ответов: 1173
Рейтинг: 49
#2: 2012-07-06 20:40:14 ЛС | профиль | цитата
Пример из FAQ'а:

Add(Registry,2244805,133,154)
{
HKey=2
Key="SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Value="Prog"
link(Data,16271739:AppFileName,[])
}
Add(Application,16271739,133,98)
{
}
Add(Button,5841931,70,161)
{
Left=125
Top=195
link(onClick,2244805:doWrite,[])
}
Правда, я не совсем уверен насчёт необходимости заключения пути к файлу в кавычки.
caubro писал(а):
как сделать чтоб при выключении данные сохранялись.
Данные -- они, знаете ли, разные бывают.
карма: 0

0
файлы: 1code_28411.txt [293B] [74]
Ответов: 14
Рейтинг: 1
#3: 2012-07-06 20:48:45 ЛС | профиль | цитата
Ну цифренные в label которые цифры
карма: 1

0
Ответов: 1376
Рейтинг: 198
#4: 2012-07-06 20:53:31 ЛС | профиль | цитата
caubro писал(а):
как сделать чтоб при выключении данные сохранялись.
%HiAsm%ElementsdelphiExampleFilesGVarSave.sha и пример к GVarContainer
карма: 1

0
Ответов: 1173
Рейтинг: 49
#5: 2012-07-06 21:04:23 ЛС | профиль | цитата
caubro писал(а):
цифренные в label которые цифры
Да по-разному можно. Вот, foksov предоставил один вариант, можно сделать и самостоятельно; например, формировать строку вида "значение раз;значение два-с;значение три-с" и сохранять её куда-нибудь: в реестр или в файл.
карма: 0

0
Ответов: 14
Рейтинг: 1
#6: 2012-07-07 08:36:47 ЛС | профиль | цитата
Add(Math,12233323,217,245)
{
OpType=1
Op1=1000
Op2=1
link(onResult,15398758:doEvent2,[(328,251)(328,125)])
link(Op1,12849229:Value,[(223,233)(349,233)(349,275)(475,275)])
link(Op2,8589287:Caption,[(230,226)(272,226)])
}
Add(Label,5830551,217,161)
{
Left=175
Top=135
Width=74
Height=36
Color=0
Font=[MS Sans Serif,22,0,-16777211,1]
Caption="10800"
ColorHover=-16777211
}
Add(Timer,4844842,112,245)
{
AutoStop=9000
Point(doAutoStop)
link(onTimer,6854339:doEvent1,[])
}
Add(Label,8589287,266,175)
{
Left=465
Top=95
Width=0
Height=5
Color=0
Caption="1"
}
Add(If_else,15092155,217,294)
{
Type=1
Op2=String(1)
link(onTrue,13434400:doEvent1,[])
link(Op1,12233323:Result,[])
}
Add(Message,2650887,315,294)
{
Message="1"
Caption="1"
}
Add(Hub,6854339,175,245)
{
OutCount=3
link(onEvent1,12233323:doOperation,[])
link(onEvent2,15092155:doCompare,[(203,258)(203,300)])
link(onEvent3,12849229:doValue,[(329,265)(329,237)])
}
Add(Hub,13434400,266,294)
{
OutCount=3
link(onEvent1,2650887:doMessage,[])
link(onEvent2,4844842:doStop,[(292,307)(292,283)(100,283)(100,258)])
link(onEvent3,4349082:doClose,[(292,314)(292,388)(240,388)(240,468)])
}
Add(MainForm,4349082,266,441)
{
Left=20
Top=105
Width=271
Height=93
Point(Close)
link(onCreate,9013019:doLoad,[(356,461)(356,475)])
link(Close,11056260:GetData,[])
}
Add(GVarContainer,9013019,413,469)
{
Section="Vars"
FilleName="test.ini"
VarList=#4:var1|
link(onLoad,10311888:doData,[])
}
Add(EventFromData,11056260,266,350)
{
link(onEvent,9013019:doSave,[(355,356)(355,482)])
}
Add(GlobalVar,602156,532,329)
{
Name="var1"
}
Add(DoData,10311888,532,469)
{
link(onEventData,15398758:doEvent1,[(576,475)(576,451)(401,451)(401,118)])
link(Data,602156:Var,[])
}
Add(Memory,12849229,469,231)
{
Point(Data)
link(onData,602156:doValue,[(517,237)(517,335)])
link(Data,5830551:Caption,[(475,212)(223,212)])
}
Add(Hub,15398758,301,112)
{
InCount=2
OutCount=1
link(onEvent1,5830551:doText,[(446,118)(446,156)(205,156)(205,167)])
}


почему не работает?
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2012-07-07 08:43:41 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2025-01-17 15:25:54
карма: 0

0
Ответов: 14
Рейтинг: 1
#8: 2012-07-07 08:46:11 ЛС | профиль | цитата
Тут дело в том что обратный отсчет сбился почему то.
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2012-07-07 09:03:27 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2025-01-17 15:25:54
карма: 0

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