Спасибо огромное.
Нашел указанные вами файлы Passport.
Взял эти файлы из архива от 28.03.2014.
И вуаля - появились мои временные канальчики и общее число каналов стало 146 вместо 144.
Свершилось, я слепил таймер. :)
Что значит слово, упавшее на благодатную почву. Ваши слова про "…все дело в формате TDateTime…" застряли в голове. И вот неожиданно в голове всплыл вопрос к самому себе: "ну и замечательно, что все дело в формате, а стоит ли с ним бороться?". И, воспользовавшись принципом айкидо, поставил себе на службу работу этого формата, получилось вот что:
{
if(AsFirstRun) WriteValue("time4",DateTimeToStr(Now()));
string data, dd;
int poz;
data=DateTimeToStr(Now()-StrToDateTime(ReadValue("time4")));
poz=Pos(" ",data);
dd=Copy(data,0,poz);
if (dd == "30.12.1899 ") data=" "+Copy(data,poz,8);
else if (dd == "31.12.1899 ") data="1 день "+Copy(data,poz,8);
else if (dd == "01.01.1900 ") data="2 дня "+Copy(data,poz,8);
else if (dd == "02.01.1900 ") data="3 дня "+Copy(data,poz,8);
else if (dd == "03.01.1900 ") data="4 дня "+Copy(data,poz,8);
WriteValue("time4v",data);
}
Для запуска этого скрипта необходимо иметь:
1) канал time4, тип "строковый"
2) канал time4v, тип "строковый", со скриптом, приведенным выше
3) форма с двумя элементами "панель", прикрепленные к указанным каналам
4) можно добавить элемент "строковый задатчик", прикрепленный к каналу time4 (для задания начального значения таймера в формате "01.04.2014 10:10:35").
{
TDateTime Dt, Dt1, D;
String Str;
// первая дата
Dt = now;
// вторая дата (для пример + 3 дня)
Dt1 = Dt + 3;
// получим кол - во дней и время
D = Dt1 - Dt;
//отформатируем результат - целая часть это у нас дни, ну а время остается как и было
Str = IntToStr(Trunc(D)) + " дн. " + TimeToStr(D);
}
var
List: TStringList;
Str: string;
begin
// создали
List := TStringList.Create;
try
// загрузили (файл должен существовать)
List.LoadFromFile('C:\test.txt');
// добавить
List.Add('line1');
// получить/переписать значение если надо
Str := List[0];
// сохранить
List.SavetoFile('C:\test.txt');
finally
List.Free;
end;
end.
Ок. Понятно. Как накидаю пример пришлю потестить
Можно сделать, только "руками".
Файлы:
Passport.bak - резервная копия конфигурации на момент последнего сохранения
Passport.slp - актуальный файл конфигурации
SortItem.sls - вспомогательный файл конфигурации
папки:
Forms - мнемосхемы
InternalTag - скрипты для вирт. каналов + вспомогательный файл конфигурации
UserSetting - настройки разных модулей