Найдено 408 результатов

bormant
19.03.2025 16:42:23
Форум: Lazarus
Тема: lazarus ide / console in/out font
Ответы: 6
Просмотры: 5843

Re: lazarus ide / console in/out font

кидайте идеи как/где найти эти настройки (для себя бы я вбил-бы принудительно имя шрифта, если по другому ни как)


$ git clone --depth 1 --branch lazarus_3_8 https://gitlab.com/freepascal.org/lazarus/lazarus.git

$ grep -r 'Raw Output' lazarus/
lazarus/ide/packages/idedebugger/pseudoterminaldlg ...
bormant
25.01.2024 19:28:09
Форум: Общее
Тема: Вопрос про цикл for
Ответы: 54
Просмотры: 66629

Re: Вопрос про цикл for

Зачем бы для поиска в массиве нужен был for do?

i:=0; while (i<n) and not IsMatch(v[i]) do Inc(i);
if i<n then
WriteLn('Found at ',i)
else
WriteLn('Not found');

Вариант с for был выше:

k:=-1;
for i:=0 to n-1 do if IsMatch(v[i]) then begin
k:=i; Break;
end;
if k>=0 then
WriteLn('Found at ...
bormant
05.01.2024 01:01:48
Форум: Потрепаться
Тема: Умер Никлаус Вирт
Ответы: 10
Просмотры: 15115

Re: Умер Никлаус Вирт

Светлая память, покойся с миром.
bormant
07.11.2023 17:29:41
Форум: Разработки на нашем сайте
Тема: tta кодек на Паскале
Ответы: 9
Просмотры: 2093115

Re: tta кодек на Паскале

На тестовом файле 2,9 секунды с 8 и 3.0 секунды со всеми семёрками.
Могу попросить описание методики тестирования, максимально подробное с целью воспроизведения? Можно приватно на bormant (at) mail dot ru.
Отдельно прошу указать, на чем получены Ваши результаты тестирования.

Заранее прошу ...
bormant
07.11.2023 13:48:30
Форум: Разработки на нашем сайте
Тема: tta кодек на Паскале
Ответы: 9
Просмотры: 2093115

Re: tta кодек на Паскале

Alexander писал(а):1. В Tfltst у массивов qm и dx максимальное значение индекса 8. Если я ставлю необходимое 7 -- работает, но медленнее.
А так тоже медленнее?

Код: Выделить всё

Tfltst = record
   qm,
   dx,
   dl: array [0..7] of Longint;
   error: Longint;
end;
bormant
28.05.2023 04:39:02
Форум: Free Pascal Compiler
Тема: И снова строки и кодировки в виндовсе
Ответы: 24
Просмотры: 25857

Re: И снова строки и кодировки в виндовсе

https://www.freepascal.org/docs-html/current/ref/refsu9.html[quote]
To declare a variable as a string, use the following type specification:
... : type string ( unsigned integer )
... : type AnsiString ( unsigned integer )

If there is a codepage specifier, (using round brackets) it indicates an ...
bormant
23.11.2020 19:17:29
Форум: Потрепаться
Тема: goto - с любимыми не расставайтесь, или break не тащит
Ответы: 218
Просмотры: 170786

Re: goto - с любимыми не расставайтесь, или break не тащит

Твой пупырёк на любых данных работает за O(N^2).
Так он тут на любых данных выполняет лишние сравнения, внутренний цикл всегда до Length(v)-2, несмотря на то, что с каждым шагом внешнего цикла все более длинный хвост не нуждается в повторных сравнениях (в этом внутреннем цикле элементы "тонут ...
bormant
30.10.2020 12:34:17
Форум: Общее
Тема: Free Pascal(Turbo Vision) Создание закладок
Ответы: 9
Просмотры: 28942

Re: Free Pascal(Turbo Vision) Создание закладок

Перспективнее, на мой взгляд, пропатчить FV аналогичным образом.
Использование FV предполагает активное создание объектов-наследников. Как с этим будет в обёртка, поди знай. Но ежели кто займётся биндингом, тоже было бы интересно посмотреть, чем дело закончится.
bormant
18.10.2020 21:00:12
Форум: Переводы
Тема: Перевод Free Pascal User’s Guide
Ответы: 8
Просмотры: 23154

Re: Перевод Free Pascal User’s Guide

Вполне сгодится.
bormant
18.10.2020 19:24:13
Форум: Переводы
Тема: Перевод Free Pascal User’s Guide
Ответы: 8
Просмотры: 23154

Re: Перевод Free Pascal User’s Guide

Для форумного сообщения замечаний многовато...
Перевод существует только в виде .pdf?
bormant
23.09.2020 16:53:12
Форум: Обучение Free Pascal
Тема: Книга "Краткая история языка Паскаль и его создателей"
Ответы: 12
Просмотры: 24509

Re: Книга "Краткая история языка Паскаль и его создателей"

А кстати, на исходники, упоминаемые в книге, где можно посмотреть?
bormant
19.09.2020 16:04:58
Форум: Обучение Free Pascal
Тема: Книга "Краткая история языка Паскаль и его создателей"
Ответы: 12
Просмотры: 24509

Re: Книга "Краткая история языка Паскаль и его создателей"

Замеченные при чтении ошибки слать куда и в каком виде?
bormant
07.07.2020 14:00:29
Форум: Общее
Тема: Free Pascal(Turbo Vision) Создание закладок
Ответы: 9
Просмотры: 28942

Re: Free Pascal(Turbo Vision) Создание закладок

imaginarypilot писал(а):Организовать панель "Закладки",как в Delphi

Речь про панель с вкладками? В исходниках FP есть диалоговые окна с вкладками, можете полюбопытствовать.
Или вкладкам нужны какие-то свои иные назначение и поведение?
bormant
07.07.2020 10:23:24
Форум: Free Pascal Compiler
Тема: передача параметра в функцию : array of string
Ответы: 46
Просмотры: 39759

Re: передача параметра в функцию : array of string

тяжело, наверное, таким линуксом пользоваться? :о)
Обращаю внимание, Вам выше уже про SETUID намекнули, жаль мимо пролетело...
Намекну еще разок:

ls -l $(which mount)
-rwsr-xr-x 1 root&#58;root &#46;&#46;&#46; /bin/mount

Обратите внимание на права владельца "rw s ", почитайте, что означает "s ...