Не компилируется скрипт

[mepexa]

Код: (delphi)

var
 aQuery: string;
begin
  aQuery :=  'SELECT `summa_kgu` FROM `energia` where timestamp like '2018-03-19 13:00%' ;
  RunSQL(aQuery, nil, 1);
end.

останавливается после 2018

[Simple-Scada]

Здравствуйте.

Дело в том, что одинарные кавычки используются компилятором для строковых значений. Если нужно использовать одинарные кавычки внутри строки, то нужно их дублировать, например:

Код: (delphi)

var
  aQuery: string;
begin
  aQuery := 'SELECT `summa_kgu` FROM `energia` where timestamp like ''2018-03-19 13:00%''' ;
  RunSQL(aQuery, nil, 1);
end.

Второй вариант: использовать специальную функцию QuotedStr (добавляет одинарные кавычки по краям строки):

Код: (delphi)

var
  aQuery: string;
begin
  aQuery := 'SELECT `summa_kgu` FROM `energia` where timestamp like ' + QuotedStr('2018-03-19 13:00%');
  RunSQL(aQuery, nil, 1);
end.