FreePascal.ru

Установил Ubuntu 18.04 и HTTPS в Synapse (версия из транка, брал давным давно) перестал работать. libssl-dev установлено.
В 16.04 всё работало. Проблему решил прописыванием старой версии библиотек в ssl_openssl_lib.pas:

{$ELSE OS2}
DLLSSLName: string = 'libssl.so.1.0.0 ...

А не, эта же программа P2 на файле со строкой 2 мегабайта, выдает кучу 9999.

Добавлено спустя 11 минут 4 секунды:
Всё, разобрался, в файле дампа, строки и вправду были по 9999, просто текстовый редактор мне показывал, что строка 1. Спасибо, тёзка!

Vadim , блин, и вправду, скомпилировал FPC, показывает 12001. Что-то с настройками в Lazarus... Сам в шоке, копаюсь.

Добавлено спустя 3 минуты 40 секунд:
Вот моя программка, для разбития длинных строк из дампа MySQL на серваке, чтобы импортировать их у себя на компе в другую версию. Показывает ...

Пишу консольное приложение на Lazarus 1.0.8, FPC 2.6.2, ОS Ubuntu x64.

Считываю длинные строки из файла. Длина очень длинных строк всегда равна 9999 символов. И Length и UTF8Length. Пробовал из TSTringList.LoadFromStream - то же самое.

Копаю и не могу понять в чём проблема. Кстати, например, Trim ...

однооконный режим посмотрите, вдруг понравится:
http://www.freepascal.ru/forum/viewtopic.php?f=5&t=9182
(мне понравилось)

Спасибо, но однооконный не нравится...

Добавлено спустя 9 часов 48 минут 57 секунд:
В общем пока не сворачиваю вообще и включил опцию Сервис-Параметры-Окружение-Окно ...

Здравствуйте! Не нашел в поиске, так что спрашиваю так:

Сворачивание главного окна (с панелями компонентов которое) нормально работает - Lazarus сворачивает все окна. А вот при нажатии на кнопку приложения в таскбаре разворачивается только одно главное окно, остальные (редактор и пр.) нужно ...

NTFS писал(а):В голову приходит рабочий work-around. Использовать [SUM(1)] вместо [COUNT([field])]

По Lazreport ничего сказать не могу - никогда с ним не работал.

Спасибо за вариант.

Бьюсь как рыба об лёд - в отчетах [SUM([field])] работает, а [COUNT([field])] нет. За что меня Господь наказал, люди?

У винды ограничения на длину параметра командной строки... Разрешено лишь 255 символов. В лоб задачу не решить.

Видимо...

В общем, пока сделал через .url файлы, всё работает:

WriteURLFile(URL, 'tmp.url');
ShellExecute(0, 'open', 'explorer', 'tmp.url', nil, SW_SHOWNORMAL);


procedure ...

- программно найти окошко ввода урла и вставить текст туда + имитировать нажатие ентера.-программно создать ярлык и передать его в качестве параметра браузеру..в общем извращаться надо..

Геморрой...

Мне кажется, что проблема на вашей стороне. В частности, могут использоваться ShortString ...

Задача:
Открыть длинный URL из программы (win32)
Проблема:
Длинные URL обрезаются в браузере (Опера, Хром и т.д.) примерно по границе 255 байтов. Короткие открываются без проблем.
Пробовал:
ShellExecute(0, PChar('open'), PChar('explorer'), PChar(s), nil, 0);

HProc:=TProcess.Create(nil ...

Наверняка фильтр стоит в OnKeyPress, чтобы только числа и арифметику вводить, а про VK_BACKSPACE забыли.

Нет, обработчик уже убрал. В других dbgrid то же самое, backspace не работает. До установки 1.0 всё везде работало.

а заодно тогда и лазарь, если чет не получается.

Во-во.

Кстати: а ...

По логике вещей, OnSetText должен вызываться один раз -- в конце, когда пользователь переходит на другое поле, либо фиксирует запись,

Да, так и есть в самом конце редактирования OnSetTextВызывается, 1 раз.

А Вы пытаетесь каждое значение (символ) проганять в процедуре, или Вам нужно при нажатии ...

Vadimus
Попробуйте запяту поменять на точку.

Увы, это не поможет.

На самом деле намного правильней перекрыть событие OnSetText у поля (TCurrencyField или TFloatField) и вычислять там.

Вот оно! Спасибо!!! Затык преодолён!

Добавлено спустя 33 минуты 55 секунд:
На самом деле намного ...

Дано: Обычный DBGrid.
Задача: В определенном (денежном) столбце при редактировании текста, при вводе '=' производить вычисление введного выражения.
Пример: пользователь вводит "10,5+39,50=", программа перехватывает ввод, производит калькуляцию, и заменяет текст на "50,00".
Проблема: не могу найти ...