Тег pascal

poopoo

Additionally, If a unit name is longer than 8 characters, the compiler will first look for a unit name with this length, and then it will truncate the name to 8 characters and look for it again. For compatibility reasons, this is also true on platforms that support long file names.

Якісь пиздаваті правила.

poopoo

У Free Pascal якась херня з Unicode про особливості роботи з яким є довгенька стаття https://wiki.freepascal.org...e_Support_in_Lazarus

What happens when I use $codepage utf8?

FPC has very limited UTF-8 support. In fact, FPC only supports storing literals as either "default" encoded 8-bit strings or widestrings. So any non default codepage is converted to widestring, even if it is the system codepage. For example most Linux/Mac/BSD use UTF-8 as system codepage. Passing -Fcutf8 to the compiler will store the string literal as widestring.

At run time the widestring literal is converted. When you assign the literal to an AnsiString the widestring literal is converted using the widestringmanager to the system encoding. The default widestringmanager under Unix simply converts the widechars to chars, destroying any non ASCII character. You must use a widestringmanager like the unit cwstring to get correct conversion. Unit LazUTF8 does that.

poopoo

Вставновив Free Pascal. Пробую записати дані в XML–файлик за допомогою модулів laz2_XMLCfg і XMLCfg. Результат:

An unhandled exception occurred at $00417F2A:
EAccessViolation: Access violation
$00417F2A

poopoo

Sorry! This site is experiencing technical difficulties.Try waiting a few minutes and reloading.(Cannot access the database: Too many connections (localhost))

0 /srv/www/lazaruswiki/includes/libs/rdbms/loadbalancer/LoadBalancer.php(1140): Wikimedia\Rdbms\Database->reportConnectionError('Too many connec...')

1 /srv/www/lazaruswiki/includes/libs/rdbms/loadbalancer/LoadBalancer.php(750): Wikimedia\Rdbms\LoadBalancer->reportConnectionError()

2 /srv/www/lazaruswiki/includes/GlobalFunctions.php(2813): Wikimedia\Rdbms\LoadBalancer->getConnection(0, Array, false)

3 /srv/www/lazaruswiki/extensions/bad-behavior/bad-behavior-mediawiki.php(79): wfGetDB(-2)

4 /srv/www/lazaruswiki/extensions/bad-behavior/bad-behavior-mediawiki.php(142): bb2_db_query('CREATE TABLE IF...')

5 /srv/www/lazaruswiki/extensions/bad-behavior/bad-behavior-mediawiki.php(168): bb2_install()

6 /srv/www/lazaruswiki/includes/Setup.php(948): bb2_mediawiki_entry()

7 /srv/www/lazaruswiki/includes/WebStart.php(88): require_once('/srv/www/lazaru...')

8 /srv/www/lazaruswiki/index.php(39): require('/srv/www/lazaru...')

9 {main}

https://wiki.freepascal.org/Using_INI_Files/ru

Linda-chan

Кстати, а что там нынче с Паскалем? Язык умер? Больше не актуален? Никто на нём не пишет? Или где-то там скрывается бурлящее комьюнити, которое постоянно рождает новые программы?

112

СЯУ что лазарус ещё блядь жив
как так-то?

bitfield

TFW делаешь замену s/PChar/PAnsiChar/, s/String/AnsiString/ в 2014 году.
inb4: innosetup

m4n71k0r

Всё-таки я считаю, что Андерса Хейлсберга следовало бы убить 34 года назад, ибо понаворотил хуйни.

Astynax

Ткнулся в lazarus понастальгировать, накидал форму за минуту (скилл то не пропьешь!). Форма - с TTreeView. Но в ноду дерева, как оказалось, положить ничего кроме нетипизированного pointer-а нельзя. А подсунуть своего потомка для создания нод в дерево нельзя (хотя в FPC даже дженерики есть) - нужно наследовать и контейнер и собственно дерево - десяток методов перекрывать только для правки сигнатуры, это не считая сборки нового контрола в пакет, чтобы IDE подцепила в design-time. Где ограниченный полиморфизм, а!? Грущу...

Добавить пост

Вы можете выбрать до 10 файлов общим размером не более 10 МБ.
Для форматирования текста используется Markdown.