vis_2.pngвходные точки doWork1,doWork2,doWork3,doWork4 и т.д.
выходные (естественно) onEvent1,onEvent2,onEvent3,onEvent4 и т.д.
верхние и нижние аналогично. Информативности ноль.
Будь моя воля, я бы эту панель давно убрал в "скрытые". (для пресловутой совместимости)
Есть такая-же EX у которой можно и точки понятно назвать и пояснения к ним выдать. Хотя "сомневаюсь я однако (с)",что будут писать пояснения.
У меня в IC информативности намного больше.
1. Комментарии в коде IC
2. Комментарии ко всем точкам.
Стал на точку и
vis_3.pngVis1=Визуализация доп.панели
Vis2=Визуализация таблицы
Text=Результат вычисления
Text2=Прогресс
Color=Цвет прогресса(Красный, Желтый, Зелёный)
Width=Длина
doClear=Чистка Memo
SQL=Запрос к БД
Text=Результат вычисления
Text2=Прогресс
Color=Цвет прогресса(Красный, Желтый, Зелёный)
Width=Длина
doClear=Чистка Memo
SQL=Запрос к БД
А вот так создаётся IC (для тех, кто боится IC, "как чёрт ладана")
#pas
Этапы создания IC.
1. Составление АЛГОРИТМА
------------------------
// расчет
//Чистим Memo
//Чистим таблицу
//Читаем Дату в формате dMyyy
//расчитываем числа Пифагора
//первое
//второе
//третье
//четвертое
//Формируем имена для запроса к БД
и т.д
==============================================================
2. реализация в коде.
--------------------
// расчет
procedure THiAsmClass.doCalck;
var L, i,j, p1,p2,p3,p4 : Integer;
Len : array[1..9] of integer;
begin
_hi_OnEvent(doClear); //Чистим Memo
For i:= 1 to 17 do // чистим таблицу
begin
id:=i;
_hi_OnEvent(Text,'');
_hi_onEvent(Text2, '');
end;
// Отображаем таблицу
_hi_onEvent(vis1,1);
_hi_onEvent(vis2,1);
//Читаем Дату в формате dMyyy
DateTime := toIntegerEvent(Data);
FD := Date2StrFmt('dMyyyy', DateTime);
//расчитываем числа Пифагора
p1 := 0;
for i := 1 to Length(FD) do
p1 := p1 + str2int(fd[i]); // Первое число
p2 := p1 div 10 + p1 mod 10; // Второе число
p3 := p1 - 2 * str2int(copy(FD,1,1)); // Третье число
p4 := p3 div 10 + p3 mod 10; // Четвертое число
FD := FD + '_' + int2str(p1) // Полное число строкой
+ ' ' + int2str(p2)
+ ' ' + int2str(p3)
+ ' ' + int2str(p4);
//Формируем имена для запроса к БД
For i := 1 to 9 do
и т.д.
Поиск
Друзья
Администрация