• From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Topic: Вопрос по ShowMessage

Почему при таком коде:

s,z: string;

    begin
    s := SQLExecute('SELECT group_concat(contentDetails, char(13)) FROM details WHERE date(dateCompletion)=date(''now'') AND status=1');
    z := SQLExecute('SELECT group_concat(contentTask, char(13)) FROM tasks WHERE date(dateCompletion)=date(''now'') AND status=1');
    if (z <>'')  OR (s <>'') then
    begin
        ShowMessage( 'Сегодня закончился срок выполнения:' +#13#10 +#13#10 +'Задач:' +#13#10 +z +#13#10 +#13#10 +'Мероприятий:' +#13#10 +s );
    end;

появляется пустая строка перед последней записью?
И можно ли перед каждой записью значений z  и s добавить какой-нибудь символ, например '- '?

Post's attachments

Attachment icon 2015-07-04_113434.jpg 121.95 kb, 272 downloads since 2015-07-04 

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вопрос по ShowMessage

К сожалению не ясно, о какой пустой строке идет речь.


добавить символ в переменную текстового типа можно так:

s := '-' + s;
Dmitry.
  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Вопрос по ShowMessage

DriveSoft wrote:
s := '-' + s;

Ставит '-' только перед первой записью, а их несколько

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вопрос по ShowMessage

Я не могу понять, о каких нескольких записях идет речь, судя по коду, у вас одна запись в z и одна в s

Dmitry.
  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Вопрос по ShowMessage

DriveSoft wrote:

Я не могу понять, о каких нескольких записях идет речь, судя по коду, у вас одна запись в z и одна в s

Код работает без проблем и отбирает записи, принадлежащие к определённой дате. Каждая запись пишется с новой строки (рисунок прилагаю). Но всё равно визуально они сливаются.

P.S. На рисунке задач - 3, мероприятий - 6. Последнее, шестое, почему-то сїехало вниз (?)

Post's attachments

Attachment icon 2015-07-04_113434.jpg 121.95 kb, 277 downloads since 2015-07-04 

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вопрос по ShowMessage

kunar80 wrote:

Код работает без проблем и отбирает записи, принадлежащие к определённой дате. Каждая запись пишется с новой строки (рисунок прилагаю). Но всё равно визуально они сливаются.

В чем вопрос? )

kunar80 wrote:

P.S. На рисунке задач - 3, мероприятий - 6. Последнее, шестое, почему-то сїехало вниз (?)

Последнее съехало вниз, возможно потому что в самой записи есть перенос строки.



Пожалуйста, описывайте вопрос более ясно, у меня к сожалению нет представления о целях и сущности вашего проекта, который есть у вас.

Dmitry.

7 Reply by kunar80 (edited by kunar80 2015-07-04 14:55:46)

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Вопрос по ShowMessage

DriveSoft wrote:

описывайте вопрос более ясно

На рисунке красным нарисовал дефисы. Как их получить программно? Это всё разные записи таблицы, отобранные по дате.

Post's attachments

Attachment icon 2015-07-04_113434.jpg 122.16 kb, 294 downloads since 2015-07-04 

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вопрос по ShowMessage

попробуйте так

s,z: string;

    begin
    s := SQLExecute('SELECT group_concat('-' || contentDetails, char(13)) FROM details WHERE date(dateCompletion)=date(''now'') AND status=1');
    z := SQLExecute('SELECT group_concat('-' || contentTask, char(13)) FROM tasks WHERE date(dateCompletion)=date(''now'') AND status=1');
    if (z <>'')  OR (s <>'') then
    begin
        ShowMessage( 'Сегодня закончился срок выполнения:' +#13#10 +#13#10 +'Задач:' +#13#10 +z +#13#10 +#13#10 +'Мероприятий:' +#13#10 +s );
    end;
Dmitry.

9 Reply by kunar80 (edited by kunar80 2015-07-05 08:42:29)

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Вопрос по ShowMessage

Спасибо! Работает так, как хотелось. Пришлось подправить:

group_concat(''-'' ||

Рабочий скрипт такой:

s,z: string;

    begin
    s := SQLExecute('SELECT group_concat(''-'' || contentDetails, char(13)) FROM details WHERE date(dateCompletion)=date(''now'') AND status=1');
    z := SQLExecute('SELECT group_concat(''-'' || contentTask, char(13)) FROM tasks WHERE date(dateCompletion)=date(''now'') AND status=1');
    if (z <>'')  OR (s <>'') then
    begin
        ShowMessage( 'Сегодня закончился срок выполнения:' +#13#10 +#13#10 +'Задач:' +#13#10 +z +#13#10 +#13#10 +'Мероприятий:' +#13#10 +s );
    end;
Не боги горшки лепят!
  • Registered: 2015-04-04
  • Posts: 262

Re: Вопрос по ShowMessage

Если не секрет то выложите свой проект для примера

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Вопрос по ShowMessage

pha1984 wrote:

Если не секрет то выложите свой проект для примера

http://myvisualdatabase.com/forum/misc. … download=1

Не боги горшки лепят!