string literal contains an unescaped line break при вызове UniSession.ErrorMessage

[x11]

Я так подразумеваю, что ошибка из-за e.Message

 

try
      q.Execute;
      if tr.Active then tr.Commit;
      qGroups.Close;
      qGroups.Open;
    except
      on e:exception do
      begin
        if tr.Active then tr.Rollback;

		UniSession.ErrorMessage(constErrDelGroup + ': ' + qGroupsNAME.Value + ', error text:' + e.Message);
        

      end;// on
    end;//try-except

По идее, процедура ErrorMessage() должна "проглотить" и обработать любой текст.

т.е. вот такой текст она не переваривает
 

Quote

 

Dynamic SQL ErrorSQL error code = -104

Token unknown - line 1, column 13

GROUP

 

 

[Sherzod]

Попробуйте...

procedure TMainForm.UniButton2Click(Sender: TObject);
var
  errStr: string;
begin
  errStr := 'Dynamic SQL ErrorSQL error code = -104'#13#10+
  'Token unknown - line 1, column 13'#13#10+
  'GROUP';
  errStr := StringReplace(errStr, #13#10, '<br>', [rfReplaceAll]);
  UniSession.ErrorMessage(errStr);
end;

 

[x11]

само собой, что теперь заменяю #13#10

только надо заменять отдельно #13 и отдельно #10, на всякий случай, я боюсь, что если приложение будет запущено из-под Линукса, то там будет только один какой-то символ, либо #13, либо #10, сейчас точно не возьмусь сказать

[Sherzod]

Я открою запрос.

[Farshad Mohajeri]

ErrorMessage method is for internal use only.

You can use UniSession.Alert() method instead.

[x11]

Then, perhaps, this method needs to be hidden?

[Farshad Mohajeri]

Just now, x11 said:

Then, perhaps, this method needs to be hidden?

Correct.