powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / IBExpert [игнор отключен] [закрыт для гостей] / Проблема с плагином Paste from delphi string
6 сообщений из 6, страница 1 из 1
Проблема с плагином Paste from delphi string
    #38763051
Alex Truhin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Очень часто плагин обрезает половину текста. Можно проверить на приведенном примере.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
'with' + #13#10 + 
'      -- Запрашиваем ВСЕ доступные в данный момент скидки' + #13#10 + 
'      ALL_DISC as (' + #13#10 + 
'        select DISC.ID, DPOS.ID POS_ID,  DISC.NAME, DISC.UNION_MODE,' + #13#10 + 
'               CPRESS.ID CHECKPRESS_ID, DPOS.CATEGORY_ID, DPOS.IS_CATEGORY_ID,' + #13#10 + 
'               DPOS.PERCENT' + #13#10 + 
'        from DISCOUNT DISC' + #13#10 + 
'          join DISCOUNT_POS DPOS on DPOS.PARENT_ID = DISC.ID' + #13#10 + 
'          join CHECKPRESS CPRESS on 1 = 1 -- CPRESS.ID = AD.CHPRESS_ID' + #13#10 + 
'          join CHKPRESSREG CPREG on CPREG.PARENT_ID = CPRESS.ID' + #13#10 + 
'        where DISC.STATUS > 0 and DPOS.STATUS > 0 and CPRESS.STATUS > 0 and CPREG.STATUS > 0' + #13#10 + 
'          and DISC.IS_ACTIVE = 1 and DISC.TYPE_DISCOUNT = 0' + #13#10 + 
'          and (DPOS.CASHREGISTER_ID is NULL or' + #13#10 + 
'              (DPOS.CASHREGISTER_ID = :CASHREGID and DPOS.IS_CASHREGISTER_ID = 1) or' + #13#10 + 
'              (DPOS.CASHREGISTER_ID <> :CASHREGID and DPOS.IS_CASHREGISTER_ID = 0)' + #13#10 + 
'              )' + #13#10 + 
'          and (DPOS.CHECKPRESS_ID is NULL or' + #13#10 + 
'              (DPOS.CHECKPRESS_ID = CPRESS.ID and DPOS.IS_CHECKPRESS_ID = 1) or' + #13#10 + 
'              (DPOS.CHECKPRESS_ID <> CPRESS.ID and DPOS.IS_CHECKPRESS_ID = 0))' + #13#10 + 
'          and CPREG.CASHREG_ID = :CASHREGID' + #13#10 + 
'      ),' + #13#10 + 

У меня из данного примера вставляет:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
with
      -- Запрашиваем ВСЕ доступные в данный момент скидки
      ALL_DISC as (
        select DISC.ID, DPOS.ID POS_ID,  DISC.NAME, DISC.UNION_MODE,
               CPRESS.ID CHECKPRESS_ID, DPOS.CATEGORY_ID, DPOS.IS_CATEGORY_ID,
               DPOS.PERCENT
        from DISCOUNT DISC
          join DISCOUNT_POS DPOS on DPOS.PARENT_ID = DISC.ID
          join CHECKPRESS CPRESS on 1 = 1 -- CPRESS.ID = AD.CHPRESS_I


PS. Вроде помнится данный плагин был в каких то примерах в исходниках, но не могу найти.
...
Рейтинг: 0 / 0
Проблема с плагином Paste from delphi string
    #38763285
IBExpert
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня нормально вставляет.
Исходники здесь: www.ibexpert.com/rus/DelphiCopyPaste.zip
...
Рейтинг: 0 / 0
Проблема с плагином Paste from delphi string
    #38763761
Alex Truhin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня CodeEditorAddon.dll от 27.11.2002 где скачать новее не знаю.
...
Рейтинг: 0 / 0
Проблема с плагином Paste from delphi string
    #38763813
Alex Truhin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Обновил IBExpert, попробовал с DelphiCopyPaste.zip - то же самое
...
Рейтинг: 0 / 0
Проблема с плагином Paste from delphi string
    #38763822
IBExpert
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну я ж тебе исходники дал. Плагин с тех пор и не менялся.
И у меня на твоем примере никаких проблем нет, да там и глючить-то нечему, вроде как...
...
Рейтинг: 0 / 0
Проблема с плагином Paste from delphi string
    #38769138
shiliaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет.
Подтверждаю проблему :)
Прогнал плагин под отладчиком, проблема в DequoteStr:
Код: pascal
1.
2.
3.
4.
//    Src := PChar(Result);  // указатель на Result, плохо
    Src := PChar(Result + ''); // Тут мы должны аллокировать новую строку
    Result := AnsiExtractQuotedStr(Src,'''');    
// Иначе AnsiExtractQuotedStr может воткнуть #0 в середину Result'а
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / IBExpert [игнор отключен] [закрыт для гостей] / Проблема с плагином Paste from delphi string
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]