Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
А, и ещё момент: данный проект будет скидываться клиентам как "демонстрация возможностей". С картинками и анимациями - понятно, это необходимость, но у меня встаёт вопрос с БД - её можно как-то к проекту прикрепить, чтобы не было надобности разворачивать БД у того, кому скинут и устанавливать коннект с БД?Коннект с базой должен быть установлен стандартными средствами, а все дополнительные таблицы в базу можно добавить так: написать текстовый файл, содержащий все SQL-запросы для добавления данных в базу, и при старте проекта скриптом загружать содержимое этого файла и отправлять в RunSQL.
DROP TABLE IF EXISTS my_added_table;
CREATE TABLE my_added_table (
/* тут все столбцы, как надо */
);
INSERT INTO my_added_table VALUES ( /*строка 1*/);
INSERT INTO my_added_table VALUES ( /*строка 2*/);
// сколько надо строк
INSERT INTO my_added_table VALUES ( /*строка N*/);
В скриптах нет возможности динамически добавлять/удалять строки таблицы.Но можно извратиться при помощи базы данных и SQL-запроса: сначала в БД создаем табличку с теми строками, которые надо впихнуть в таблицу, а затем, когда этот запрос отработает, делаем запрос из таблицы Simple-Scada... Потом можно в базе таблицу удалить.
{ упрощенная реализация форматированного вывода
fmt содержит подстановки:
% - очередной аргумент (string, integer, boolean, single, double, extended)
%% - процент
формат вывода чисел по умолчанию (как в системе)
если в массиве аргументов не хватает или больше, чем надо, ничего не происходит
если в массиве неподдерживаемый аргумент, выводится знак вопроса
использование:
S := format('% % + % = %',['Результат', 1, 2, 1+2]);
S = 'Результат 1 + 2 = 3';
}
function format(const fmt : string; args : array of const) : string;
var
position : integer;
argpos : integer;
Ch : string;
V : Variant;
S : string;
VR : TVarRec;
TS : string;
type TPS = ^string;
begin
Result := '';
position := 0;
argpos := 0;
while position <= length(fmt) do begin
inc(position);
Ch := fmt[position];
if Ch <> '%' then begin
// все, кроме %, копируется на выход
Result := Result + Ch;
continue;
end;
if position < length(fmt) then // добавлено 12.01.25: этой проверки не было, возможно, проблема с SQL была тут
Ch := fmt[position+1];
if Ch = '%' then begin
// задвоенный % - это просто %
Result := Result + '%';
inc(position);
continue;
end else if argpos < length(args) then begin
// поочередный вывод аргумента
VR := args[argpos];
inc(argpos);
// в зависимости от типа аргумента
case VR.VType of
vtInteger : S := IntToStr(VR.VInteger);
vtBoolean : if VR.VBoolean then S := 'true' else S := 'false';
vtChar : S := VR.VChar;
vtExtended : S := FloatToStr(VR.VExtended^);
17 {!string!} : S := TPS(@args[argpos-1])^;
else // неизвестно что
S := '?';
end;
Result := Result + S;
end;
end;
end; Round() Возвращает число X округленное до ближайшего целогоНу, тогда есть Trunc()