FreePascal.ru

GetTickCount64() считает не миллисекунды, а тики, которые могут отличаться от миллисекунд на разных системах.
Данная функция использовалась в самом начале тестов и была использована исключительно для проверки примера из документа по "превосходству" PascalABC.NET
Далее для тестов использовался ...

Ну так, может быть дело в том, что "быстрый" вариант программы использует CPU на его максимальной частоте, а на остальных частота так и остается на среднерабочей?

Быть может и так, кто эти современные процессоры знает...
Сделал срез производительности процессоров Intel , с установленной Windows ...

Большое Всем спасибо, за уделённое мне время.
Единственное, что удалось понять из всего этого дела, что это некий частный случай!
Почему пришел к такому выводу:
Как написал SSerge:
ваш код дал 639..642 на той же машине и компиляторе
Так же запустил сегодня на другом железе: OS: Windows 7 x86, FPC ...

Судя по всему, это заслуга оптимизатора, который во втором случае понимает для чего нужна переменная/ные и просто использует другую, более быструю оптимизацию. Неявные преобразования типов могут как улучшить код, так и сильно просадить время. Тем более, что используется тип cardinal,
Этот ...

MysticCoder писал(а):да, оно и есть.

Но нюанс в том что если не использовать отдельную функцию, результат другой... И не понятно почему...

Лишних вызовов нет, потому что смотришь MyWriteln, посмотри Writeln.
Я правильно понял, что callq , это и есть вызов некой лишней fpc_get_output?

вообще если уж время замерять под виндой, то почему бы не пользоваться функцией NtQueryPerfomanceCounter совместно с NtQueryPerfomanceFrequency?
все ...

и протесть еще раз. если поставишь бряк на Writeln(Milliseconds), нажмешь Ctrl-Alt-D, то увидишь, что перед тем как вызвать Milliseconds вызывается еще какая то функция от Writeln. Она то видимо и тормозит.
Признаться честно я хоть по образованию и программист, но как то в жизни не сложилось ...

Result:=638..646
32-х битный линукс, Free Pascal Compiler version 3.1.1 [2017/08/13] for i386
Windows 7 x64, FPC version 3.0.2 [2017/02/27] for x86_x64-win64-win32/win64
С Вашим кодом результат примерно тот же 565..580
А вот если сделать так:
var cur_t,ml,StartTime:TDateTime;
begin ...

Кста, если хочется ада, угара и трэша, сравнивайте их на работе строковых операций, особенно касающихся извлечения отдельных символов, их перестановки и т.д. Если ABC использует строковые библиотеки .NET, у него есть все шансы выиграть в РАЗЫ.
У меня в общем то и нет иллюзий по поводу ...

SSerge писал(а):они там в "документе" если и сравнивают с fpc, то с версией примерно 0.9

В документе указано FPC 3.0, а там как на самом деле, кто его знает... У меня стоит FPC 3.0.2

SSerge писал(а):не под отладчиком ли?

Отладкой не пользовался, вообще ни чего не делал, режим компиляции Default

Доброго времени суток, уважаемые форумчане, любители FreePascal и Lazarus.
Помогите пожалуйста понять причину следующего "явления", самому увы в силу уровня знаний, понять не удаётся
Начну из далека: Решился я таки посмотреть что за зверь такой этот PascalABC.NET (Далее PABC ) открыл я значит ...

memo1.Parent := (Sender as TPageControl).ActivePage;
Спасибо, я уже разобрался забыл отписаться...

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

тогда какой смысл скрывать страницы вкладок, когда можно прямо там организовать memo поле в котором будет возможность редактировать параметры запроса
и кнопочку "выполнить запрос" и т.п., наверное будет универсальней. тогда и панели не нужны, а просто полноценная работа с pagecontrol ...

посмотрите, добавил в ваш пример работу с PageControl, может и пригодиться.
Огромное спасибо за пример, не знаю почему я уперся в этот TabControl , надо было изначально разбираться с PageControl'ом и не парить ни кому мозги, возможно "смутило" само наличие различных страниц или то что с типом ...

поскольку нужны только вкладки (без страниц)
а может посмотреть в сторону RadioGroup c параметром расположения clVerticalThenHorizontal обычных кнопок TButton ?
вся эта группа ведет себя примерно как вкладки при добавлении новой кнопки, возможно придется контролировать ширину и т.п.
Большое ...