FreePascal.ru

Здравствуйте. В проекте используются несколько модулей в кодировке cp1251, т.к. созданы были в D7 и также там используются. А lazarus используется для 64 битной версии программы. В этих модулях обработка информации получаемой с помощью JwaWinCrypt(в основном просто отобрание информации из ...

Здравствуйте. Подскажите пожалуйста как установить этот компонент. Скачал с Github, распаковал в lazaruscomponentsrichmemo-master. Открыл richmemopackage.lpk . Нажал компиляция. После успешной компиляции, жму "Использовать". Пункт установить недоступен. Lazarus 2.0.12 x64

Добавлено спустя 41 ...

Здравствуйте! Подскажите пожалуйста какой аналог функции GetLastError в linux? в каком модуле FPC она?

заранее неизвестно какие там будут буквы.. не перебирать же алфавит

http://chsdet.sourceforge.net/ неправильно определяет если в тексте кириллица. С http://wiki.freepascal.org/UTF8_Tools. пока неразобрался
FindInvalidUTF8Character подойдёт.
мне нужно прочитать конфигурационный текстовый файл, и если он в кодировке cp1251 то преобразовать текст в UTF8

Здравствуйте! Подскажите как определить, что текстовый файл в кодировке UTF8 или cp1251, если в нём нет BOM?
может есть функции в free-паскале ?

а под 64 бит работает твой плагин?

в Double Commander64 плагин работает без ошибок.

пример простейшего плагина для листера

library txtplg;

{$mode objfpc}{$H+}

uses
Classes, unMain,SysUtils,FORMS, Interfaces,windows
{ you can add units after this };
const
PARSE_FUNCTION = 'EXT="TXT"|EXT="PAS"|EXT="LFM"';
SUPPORT_EXT = '.TXT';
SUPPORT_EXT2 = '.PAS';
SUPPORT_EXT3 ...

Доброго всем. Вопрос в переполнении стека при вызове рекурсивной процедуры.
код такой:

var d :Tstrings; var i:integer; //глобальные переменные
function intToBin(Value: Longint; Digits:integer): string;
var i:integer;
begin
result:='';
if digits<=0 then exit;
for i ...

тоже самое. ubuntu 14.04 +lxde, в лазарусе в редакторе исходного кода не работает ctrl+v, ctrl+c, ctrl+x

append добавляет новую строку, add дописывает текст в последнюю строку.

kmemo очень медленно работает. у меня в проекте в kmemo вставляются данные около 120 строк текста. по времени это около 3 сек. а если еще применять стили к различным частям текста, то еще больше времени займет. в richmemo в течении секунды это делается. но есть проблема с richmemo.
так вставляется ...

поделюсь своим "открытием": есть проект (показывает данные из сертификата ЭП/запроса/СОС) там в нём было много AnsiToUTF8 т.к. данные извлекались с помощью cryptapi. было все ок на версии laz1.4.
поставил Lazarus 1.6 c FreePascal 3.0.0. получил геморрой - половина данных нормально выводилась ...

обе функции дают тот же результат что и тот код что я написал.
по описанию там текст UTF8string
pbData=0C 2B 22 D0 9A D1 80 D0 B8 D0 BF D1 82 D0 BE D0 9F D1 80 D0 BE 20 43 53 50 22 20 28 D0 B2 D0 B5 D1 80 D1 81 D0 B8 D1 8F 20 33 2E 36 29
s := UTF8String(PChar(pbData));
получается s=T+"КриптоПро ...