Памяти Бориса Ельцина's Friends
 
 [Most Recent Entries] [Calendar View] [Friends View]

Below are the most recent 25 friends' journal entries.

    [ << Previous 25 ]
    Monday, November 28th, 2022
    paperdaemon
         		5:14p
    3-Я АНТИВОЕННАЯ КОНФЕРЕНЦИЯ В ВИЛЬНЮСЕ: «ВАРВАРИЗАЦИЯ РОССИИ. НА ПОРОГЕ НОВОГО СРЕДНЕВЕКОВЬЯ»


    Участвую в дискуссии в рамках 3-ей Антивоенной конференции ФСР в Вильнюсе:

    «ВАРВАРИЗАЦИЯ РОССИИ. НА ПОРОГЕ НОВОГО СРЕДНЕВЕКОВЬЯ»

    Спикеры: АЛЕКСАНДР МОРОЗОВ — эксперт iSANS, сотрудник Карлова университета в Праге; ВИКТОР ЕРОФЕЕВ — писатель, литературовед; ИГОРЬ ЯКОВЕНКО — социолог и публицист; АЛИНА ВИТУХНОВСКАЯ (онлайн) — писатель, политик; СЕРГЕЙ ДАВИДИС — правозащитник, ПЦ «Мемориал». Модератор: ДАНИИЛ КОНСТАНТИНОВ — политэмигрант, бывший политзаключенный

    Начало в 9:30, 1 декабря.

    Отмечайтесь в мероприятии в Facebook, чтобы не пропустить важных анонсов.
    Программа конференции: https://www.forumfreerussia.org/archives/forum-awciii/programma-iii-antivoennoj-konferenczii

    Прямая трансляция будет доступна по ссылкам:

    День первый, 30 ноября: https://youtu.be/hHkSKPDg7xs
    День второй, 1 декабря: https://youtu.be/9s-89pq0T0U
    ______________
    Подписывайтесь на мой телеграм-канал: https://t.me/alinavit2024
    Подписывайтесь на мой youtube-канал: https://bit.ly/vituhnovskaa

    Алина Витухновская
    paperdaemon
         		1:59p
    АЛИНА ВИТУХНОВСКАЯ О ПОЛИТИЧЕСКОЙ НАЦИИ

    https://www.youtube.com/watch?v=pWO7oB_BTSU

    Реквизиты для поддержки канала:
    Сбербанк 5228 6007 2195 9734
    ВТБ 5368 2900 8411 7946

    Также вы можете поддержать нас криптовалютой:
    BTC: bc1q20fyp6j87k8wtn3x543ksx0lfecpc6gxyccns9
    ETH: 0x285FF2B6909dBCfFc56A700cfE70a4C65644e2F1
    ______________
    Подписывайтесь на мой телеграм-канал: https://t.me/alinavit2024
    Подписывайтесь на мой youtube-канал: https://bit.ly/vituhnovskaa

    Алина Витухновская
    hex_laden
         		2:31p
    Lazarus. Поддержка Unicode в консоли Windows.
    Продолжаем бодаться с русским языком в консоли (копия).

    Ну не может же быть так, что виндовая консоль и Unicode (UTF-8) не поддерживает, подумал я. У меня и функции, которые, собственно, в программе нужны, UTF8 требуют, и с русским языком, если исходник не в UTF-8 работают криво, и в документации по Lazarus написано, что он поддерживает вывод на консоль в UTF-8, и в документации по винде написано, что она тоже нежно любит UTF-8, хотя может и в OEM(которая CP866).

    Хинт оказался небольшим, неочевидным, и вообще был обнаружен чисто случайно, кодировку исходника надо поменять на на CP866, как я делал по ссылке выше, а на UTF-8 с BOM!

    И нигде в документации (не в виндовой, не в Лазарувской) об этом не сказано, ну или закопано в такие бездны Варпа, что не докопался.

    До (исходник в UTF-8):



    После (исходник в UTF-8 с BOM):



    program Project1;

begin
  WrileLn('Какая-то фигня с русскими буквами');
  WrileLn('А, уже не фигня');
  Readln();
end.


    Это репост с сайта http://tolik-punkoff.com
    Оригинал: https://tolik-punkoff.com/2022/11/28/lazarus-podderzhka-unicode-v-konsoli-windows/
    paperdaemon
         		1:10a
    ВАСНЕЦОВЫЕ ЛИЦА ЧУДОВИЩ
    "Я осталась без одного из двух мужчин" — говорит училка с гусиными, сделанными в косметологическом сельпо губами. "Без старшего", потом гусиные губы с насекомым наслаждением выдыхают — "Но младший остался".

    Впечатление, что она сдирает конфетные фантики липкой рукой и заглатывает конфеты. Некроледенцы. Они говорят о других (мужчинах) как о мебели, предметах или домашних животных. Рожают их, провожают на гибель, потом хоронят, смотрят как "объект" перемещается в землицу, в небытие. Но что же они смакуют? Откуда этот хищный улиточный эротизм и наслаждение на васнецовых лицах чудовищ?
    ______________
    Подписывайтесь на мой телеграм-канал: https://t.me/alinavit2024
    Подписывайтесь на мой youtube-канал: https://bit.ly/vituhnovskaa

    Алина Витухновская
    Sunday, November 27th, 2022
    paperdaemon
         		10:18a
    выгрузить из памяти все процессы chrome
    taskkill /F /IM "chrome.exe" /T


    https://www.youtube.com/watch?v=I730L493DsE
    hex_laden
         		12:04a
    Lazarus, встроенный парсер командной строки.
    Преамбула


    В Lazarus есть довольно неплохой парсер командной строки, который (почти) работает из коробки.

    Для его использования нужно создать приложение на базе класса TCustomApplication, который обладает таким функционалом. Готовый шаблон проекта имеется в комплекте. Проект --> Создать проект... и в появившемся окне выбрать тип проекта Консольное приложение:



    Можно ввести параметры для генерации кода:



    Основной код приложения размещается в процедуре DoRun, например, в procedure TMyApplication.DoRun;

    Решил расширить пример с поиском файла по маске (копия), заодно поэкспериментировать с парсером командной строки.

    Параметры будут такие:

    Использование: smallfinder.exe <аргументы>
    -h - эта помощь
    -m <маска> - маска файла для поиска. Обязательный параметр
    -d <директория> - Начальняя директория, если параметр не указан, используется текущая.
    -s - включить в поиск подкаталоги

    Анализ параметров командной строки


    Примечание: весь код в процедуре TSmallfinder.DoRun.

    Почему-то способ проверки из документации, случая, когда параметров нет вообще, у меня сработал криво, так что пришлось вспоминать более старый:

    // check if no parameters - способ из документации нихуя не сработал
    if ParamCount=0 then begin
	WriteHelp;
	Terminate;
	Exit;
end;


    Но далее все вроде бы пошло как надо, единственное, что параметры регистрозависимые (т.е. -d и -D программа воспринимает как разные параметры), пока не стал с этим разбираться, может после, если сильно надо будет. Длинные имена параметров не использовал, только короткие.

    Вывод помощи:

    //help
if HasOption('h', '') then begin
	WriteHelp;
	Terminate;
	Exit;
end;


    Процедуру WriteHelp можно создать при создании нового проекта, а потом только запомнить, примерно так:

    procedure TSmallfinder.WriteHelp;
begin
  writeln('Usage: ',ExtractFileName(ExeName), ' <arguments>');
  WriteLn('-h - this help');
  WriteLn('-m <mask> - file mask for search. Parameter must be!');
  WriteLn('-d <directory> - start directory. If not, use current dir.');
  WriteLn('-s - include subdirs');
end;


    Маска файла:

    //mask
if HasOption('m','') then begin
	Mask:=GetOptionValue('m','');
	if Mask = '' then begin
		WriteHelp;
		Terminate;
		Exit;
	end;
end;


    Стартовый каталог:

    //start directory
StartDir:=GetOptionValue('d','');
if StartDir='' then begin
	StartDir:=GetCurrentDir();
end;


    Искать в подкаталогах:

    //Include subdirs
IncludeSubdirs:=HasOption('s','');


    Ну и сам процесс поиска, до кучи:

    WriteLn('Start directory: ',StartDir);
lstFiles := TStringList.Create;
FindAllFiles(lstFiles, StartDir, Mask, IncludeSubdirs);
i:=0;
while i < lstFiles.Count do begin
	WriteLn(lstFiles[i]);
	inc(i);
end;
lstFiles.Free();


    Естественно, все нужные переменные перечисляем в секции var процедуры TSmallfinder.DoRun

    var
   Mask, StartDir:string;
   IncludeSubdirs:boolean;
   i:LongInt;
   lstFiles:TStringList;


    Примеры работы


    smallfinder.exe -m *.exe -d C:\Windows



    smallfinder.exe -m *.exe -d C:\Windows -s



    smallfinder.exe -m *.exe



    Ссылки


    Мануал по обработке параметров командной строки
    Пример целиком на GitHub

    Это репост с сайта http://tolik-punkoff.com
    Оригинал: https://tolik-punkoff.com/2022/11/27/lazarus-vstroennyj-parser-komandnoj-stroki/
    Saturday, November 26th, 2022
    paperdaemon
         		9:14p
    ГЛОБАЛЬНАЯ ОТВЕТСТВЕННОСТЬ
    Возможно то, что мы называем режимом, уже перестало существовать. Как и то, что до этого мы называли государством.

    То, что уместно относительно спецформирований типа ЧВК - а именно отключение им логистики и финобеспечения, ровно также уместно по отношению ко всей системе. Поэтому вопросы к Западу все же остаются.

    В эпоху глобального управления за ситуацию несет ответственность тот, у кого больше ресурса. Юридическую ответственность, безусловно, несут инициаторы и исполнители агрессии. А фактическую, в том числе, те, кто ее допустил.

    P.S. То, что не имеет структуры, не может распасться. Рашизм — это не политическое течение, не государственное образование, это шизоидный студень. "Режим" не может распасться потому, что его нет. Отключайте финансирование!
    ______________
    Подписывайтесь на мой телеграм-канал: https://t.me/alinavit2024
    Подписывайтесь на мой youtube-канал: https://bit.ly/vituhnovskaa

    Алина Витухновская
    paperdaemon
         		7:29p
    КАК РЕЛИГИОЗНОЕ СОЗНАНИЕ ВРЕДИТ ПОЛИТИЧЕСКОМУ ПРОЦЕССУ
    Alina_black.jpg

    СОВЕТСКАЯ КУЛЬТУРА КАК ЗАГОВОР БЕЗДАРНОСТЕЙ. ПОЧЕМУ В РОССИИ В КАЖДОМ ПОЛИТИКЕ ВИДЯТ НОВОГО ХРИСТА
    СПЕЦИАЛЬНО ДЛЯ "НОВЫХ ИЗВЕСТИЙ"

    К сожалению, в авторитарном обществе всегда есть латентный запрос на репрессии. Это нечто глубоко подавленное, скрываемое, почти непристойное. И есть он не только в искусстве, но и в актуальной политике. То здесь, то там мелькают реплики ЛОМов и политологов о том, как политики «растут под гнетом репрессий». Умиление, восхищение, восторг.

    Это клиническая репрессивная проговорка, издержки русского репрессивного менталитета в принципе. Который не помышляет даже об изначальной политической субъектности, а полагает ее производным внешних сил, грубого давления.

    Политик, «сложившийся» под гнетом обстоятельств — это, прежде всего, надломленная личность. Ходячая травма, декларацией которой станет лишь рефлексия и месть. Именно поэтому, начиная с Ленина, мстившего за брата, Россия и находится в бесконечном кровавом сансарном колесе. Конечно, есть исключения, но они лишь подтверждают правило.

    Вы хотите видеть в каждом политдеятеле нового Христа. Но это религиозный концепт и находясь внутри него, вы не только не выйдете из старых заблуждений, но и укрепитесь в новых.

    Читать полностью — https://newizv.ru/comment/alina-vituhnovskaya-2/25-11-2022/kak-religioznoe-soznanie-vredit-politicheskomu-protsessu
    ______________
    Подписывайтесь на мой телеграм-канал: https://t.me/alinavit2024
    Подписывайтесь на мой youtube-канал: https://bit.ly/vituhnovskaa

    Алина Витухновская
    elesin
         		3:19p
    Вера в бога – наркотик народа
    Вера в бога – наркотик народа,
    Пропаганда – и вовсе бухло.
    Наш Берлин 45-го года
    Не бомбили еще, повезло.

    Боевых комаров камарилья
    Налетела на спящий Мадрид.
    Перебиты, поломаны крылья,
    И звезда со звездой говорит.

    Не спасти триумфальные арки,
    Не сберечь довоенный уют.
    Если будет стрельба в зоопарке,
    Обезьянки от страха умрут.
    elesin
         		9:15a
    Каждый день и каждый час
    Каждый день и каждый час
    Нам то холодно, то душно.
    Бог испытывает нас
    Потому что богу скучно.

    Богу скучно, не беда,
    Вот и мы не унываем.
    Богу весело, когда
    Мы друг друга убиваем.

    Что ж ты маленьким не сдох,
    Говорим кому попало.
    Бог не фраер и не лох,
    А принцесса морвокзала.

    Сникли каменные львы,
    Улетели птичьи стаи.
    От России до Москвы
    Отменили все трамваи.
    hex_laden
         		3:45a
    Lazarus: Транслит строки (в консоли)
    1. Понадобятся модули regexpr и fgl:

    uses regexpr, fgl;

    regexpr нужен для небольшой оптимизации, a fgl - для создания аналога словаря (Dictionary).

    2. Создаем тип для будущего словаря:

    type
  TDictTrans=class(specialize TFPGMap<string, string>);


    Документация по TFPGMap

    3. Сделаем функцию для транслитерации, с одним параметром, входной строкой с русскими буквами:

    function Translit(Str:string):string;
    //тут будет код
    end;

    4. Заводим внутренние переменные функции:

    var Regex:TRegExpr;
    Dict:TDictTrans;
    Ch,oStr,oTrans:string;
    I:LongInt;

    Regex - экземпляр класса для работы с регулярным выражением.
    Dict - словарь для транслитерации.
    Ch - транслитерируемый символ
    oStr - выходная строка
    oTrans - сюда будем возвращать результат транслита отдельного символа.
    I - счетчик цикла, в котором будем анализировать строку.

    Небольшая оптимизация


    Создаем новое регулярное выражение для кириллицы (и пробела) и проверяем входную строку на наличие русских букв. Если их нет - возвращаем исходную строку и выходим из функции:

    Regex:=TRegExpr.Create;
Regex.Expression:='[А-Я]|[а-я]|\s';
if not Regex.Exec(Str) then begin
   exit(Str);
end;


    5. Заполняем словарь (транслит взят из старого армейского учебника времен СССР, можете сделать свой):

    Dict:=TDictTrans.Create;
    Dict.Add(' ','_');
    Dict.Add('А','A'); Dict.Add('а','a');
    ...
    Dict.Add('Я','JA'); Dict.Add('я','ja');

    Словарь целиком на PasteBin

    6. Инициализируем переменные, используемые в цикле:

    Ch:=''; oStr:='';

    7. Заводим цикл for, нумерация символов в строке идет с 1, длина строки получается функцией Length(Str):

    for I:=1 to Length(Str) do begin
    ...
    end;

    8. В цикле получаем символ из строки:

    Ch:=Copy(Str,I,1);

    9. Пробуем получить данные из словаря по ключу, которым является русская буква. Если это удалось, присоединяем результат транслита к выходной строке, если нет - это не русская буква, присоединяем исходный символ к выходной строке:

    if Dict.TryGetData(Ch, oTrans) then begin
	oStr:=oStr+oTrans; //russkaya bukva - transliteriruem
end
else begin
	oStr:=oStr+Ch; //nerusskaya bukva, ostavlaem v pokoe
end;


    10. Освобождаем память словаря после цикла:

    Dict.Free;

    11. Возвращаем результат работы функции:

    exit(oStr);

    Функция целиком на PasteBin

    12. Код основной программы:
    var
    strInput, strOutput:string;
...
begin
  Write('Input string:'); ReadLn(strInput);
  strOutput:=Translit(strInput);
  WriteLn(strOutput);
  WriteLn('Press Enter...'); ReadLn();
end.


    Для совместимости с русским языком в консоли необходимо добавить директивы компилятора, иначе словарь будет работать неправильно:

    program translit;
    {$mode objfpc} {H+}
    {$codepage CP866}
    ...

    $mode objfpc
    H+ - чтоб строки по умолчанию не были ShortString'ами
    $codepage CP866 - установка кодовой страницы.

    Документация по работе со строками

    Проверка




    Исходник примера на GitHub

    Это репост с сайта http://tolik-punkoff.com
    Оригинал: https://tolik-punkoff.com/2022/11/26/lazarus-translit-stroki-v-konsoli/
    Friday, November 25th, 2022
    hex_laden
         		11:55p
    Lazarus, поддержка русских букв в консоли (Windows 7)
    Из коробки русские буквы в консоли поддерживаются через жопу:



    Это потому что Lazarus по умолчанию создает файл в UTF8, а консоль Windows 7 поддерживает CP 866 (кодировку DOS/OEM), достаточно перекодировать файл:

    1. Щелкаем по пустому месту в исходнике в редакторе.

    2. Выбираем Параметры файла --> Кодировка



    3. В выпадающем списке выбираем CP866:



    4. В появившемся окне нажимаем кнопку Изменить файл:



    5. ФАНФАРЫ!



    Источник
    Тестовый пример на GitHub

    Это репост с сайта http://tolik-punkoff.com
    Оригинал: https://tolik-punkoff.com/2022/11/25/lazarus-podderzhka-russkih-bukv-v-konsoli-windows-7/
    hex_laden
         		8:39p
    Lazarus, регулярные выражения.
    Из коробки доступен мощный класс TRegExpr, вполне себе работает с регулярками. Сожрал даже C#-овскую, без изменения синтаксиса вообще. Пример регулярки для обнаружения русских букв:

    program regexptest;
uses regexpr;
var  Regex:TRegExpr;

begin
     Regex:=TRegExpr.Create;
     Regex.Expression:='[а-я]|\s';
     Writeln(Regex.Exec('АБВГ'));
     Writeln(Regex.Exec('ABCD'));
     ReadLn();
end.




    Документация
    Пример на Киберфоруме

    Этот пример на GitHub

    UPD: Более лучшая регулярка для поиска кириллицы (и пробела).

    [А-Я]|[а-я]|\s

    Первая ([а-я]|\s) нормально работает, если формат файла исходника UTF-8, и текст в UTF-8, а вот с консолью в Win7 она работает только на строчных буквах, на заглавных не работает. А консоль требует CP866.

    О других косяках кириллицы в консоли - в следующих выпусках нашего журнала.

    Это репост с сайта http://tolik-punkoff.com
    Оригинал: https://tolik-punkoff.com/2022/11/25/lazarus-regulyarnye-vyrazheniya/
    paperdaemon
         		4:53p
    АЛИНА ВИТУХНОВСКАЯ ОБ УБИВАЮЩЕЙ РОДИНЕ-МАТЕРИ

    https://www.youtube.com/watch?v=IAiBjDK_VBE
    ______________
    Подписывайтесь на мой телеграм-канал: https://t.me/alinavit2024
    Подписывайтесь на мой youtube-канал: https://bit.ly/vituhnovskaa

    Алина Витухновская
    paperdaemon
         		4:07p
    КРОВАВЫЕ БРИЛЛИАНТЫ ЛИТВИНОВОЙ
    Пока Бузова подъедает оливье, Литвинова рекламирует бриллианты отечественного бренда, для "дорогих россиян" к новому году. Куда пойдут деньги — всем понятно. Мутная лавочка из тех, что стоят к каждом ТЦ.

    Обращала ни них внимание с того момента, как Ренату записали чуть ли не в оппозицию. Как так, подумала я. Ведь бизнес у нее в России. Да и о близких связях с Сурковым никто не забывал. Но в голову не приходило об этом писать. Во-первых, Литвинова — не политик. Во-вторых, хозяин-барин. Верней, раб-раб. Ну нравится публике "заблуждаться", пусть заблуждается.

    Сегодня я вспомнила о ней исключительно на контрасте. Около тысячи лайков собрал пост о том, что некая писательница презентовала свою книгу "не в тот день". В тот день были обстрелы. День, действительно, крайне неудачный. Но публикация могла быть запланированной, автоматической. Влияет ли писательница как-то на политпроцесс? Да никак. Просто другим необходимо, чтобы все вели себя как им хочется. Это тот же советский морализм, только окаймленный трагедией.

    Так что важно? Нападают на досягаемых, на уязвимых. На звезд и ВИПов — фактически никогда. Собчак и Литвинову не трогают. Остальных (социально близких) — искусали. Это отражение авторитарной иерархии, вертикали путинизма.

    Собственно, такие вещи являются доносами, либеральными доносами, чего никто не хочет замечать по причине витиеватой литературной формы и концентрированного морализма.
    ______________
    Подписывайтесь на мой телеграм-канал: https://t.me/alinavit2024
    Подписывайтесь на мой youtube-канал: https://bit.ly/vituhnovskaa

    Алина Витухновская
    elesin
         		3:11p
    Такие сволочи встречаются
    Такие сволочи встречаются,
    Что можно выпить литра два.
    У нас фонарики качаются,
    И не кончается Москва.

    Там чей-то стан, шелками схваченный,
    В тумане движется, дрожа.
    А тут вам штраф за неоплаченный
    Провоз и вывоз багажа

    Вручают тягостно и горестно
    Среди алькова гаражей.
    И мне за вас немного совестно,
    Россия – родина бомжей.
    hex_laden
         		1:34p
    Lazarus, список каталогов с подкаталогами
    Плохо, что по маске не умеет каталоги искать. А в остальном все просто.



    program alldirs;
uses Classes, SysUtils, FileUtil;
var
   lstDirs:TStringList;
   i: Integer;
begin
     lstDirs := TStringList.Create;
     FindAllDirectories(lstDirs,'C:\Windows',true);
     i:=0;
     while i < lstDirs.Count do begin
       WriteLn(lstDirs[i]);
       inc(i);
     end;
     WriteLn ('Found: ',lstDirs.Count);
     WriteLn ('Press Enter');
     lstDirs.Free();
     ReadLn();
end.


    Ссылка на GitHub

    Это репост с сайта http://tolik-punkoff.com
    Оригинал: https://tolik-punkoff.com/2022/11/25/lazarus-spisok-katalogov-s-podkatalogami/
    elesin
         		10:01a
    Корсика, вперед!
    Просыпаюсь в 2 часа утра. По телевизору футбол. Играют загадочные команды «Уру» и «Кор». Я таких команд не знаю. «Вымпел» (Королев) знаю, а «Уру» (видимо, Уфа) и «Кор» (очевидно, Корфаген) – не знаю. А потом обнаружил на столе 07 водки «Беленькая». Сразу, как писал актер В. Высоцкий, прояснилось на доске. Чемпионат мира же! По футболу! «Кор» – тут все понятно. Сокращение от слова «Корсика». Стал болеть за Корсику. Корсика, вперед! Причем, кто именно из них корсиканцы – видно сразу. Корсиканцы похожи на бурятов. Бурятов я люблю. И всегда подозревал, что буряты и корсиканцы – один народ. Но с кем наши буряты-корсиканцы бьются, не покладая ног? Что за «Уру»? Видимо, государство Урарту. Просто правильно его писать, оказывается, не Урарту, а Урурту. При счете 124:0 в чью-то пользу уснул, конечно. Уж больно игра интересная. Все как у знаменитого писателя Дмитрия Данилова, цитирую по памяти: «Передача, передача, потеря. Передача, передача, потеря». Так вот уснул. Посыпаюсь в 3 часа утра. А по телевизору футбол! Играют, правда, теперь уже «БРА» и «СРБ». Ну, тут все и вовсе проще простого. Болгарская рабочая армия и Социалистическая республика Болгария. Игра двух Болгарий была еще более фееричной, и я стал выкладывать свастику из четырех игральных карт (сериал «Война Фойла», 5-й сезон, 2-я серия).
    Тут «Беленькая» и кончилась.
    Корсика, вперед!
    Thursday, November 24th, 2022
    paperdaemon
         		9:39p
    АД — ЭТО ВЫ
    Чем страшней ситуация в Украине, тем больше чувствительных россиян презентуют и кажется, лелеют свое душевное страдание. Упиваются им. Личное дело каждого, конечно. Но встает вопрос об уместности подобных высказываний.

    Я всегда видела физические и социальные (так!) страдания — важней и сильней душевных. Ну опять-таки личное дело каждого. Проблема в том, что большинство зачем-то вечно желает быть хорошими, выглядеть хорошими. Но миру нет сейчас дела до вашей хорошести. Тогда зачем вы это делаете? Вопрос, впрочем риторический.

    Бессубъектность — это и чувствование через других. Бессубъектник питается из концепта "общечеловек". Но общечеловека не существует. Другие — другие. А ад — это вы.
    ______________
    Подписывайтесь на мой телеграм-канал: https://t.me/alinavit2024
    Подписывайтесь на мой youtube-канал: https://bit.ly/vituhnovskaa

    Алина Витухновская
    hex_laden
         		9:58p
    Поигрался с Freepascal/Lazarus
    Больше по служебной необходимости, и воле случая, чем по собственному желанию.
    Инет отсутствовал, компы нормальные все заболели, а утилиту писать надо. Ще було, на том и писали.

    Поиск файла


    Наконец-то нормальный поиск файла, где маска файла работает как надо (как в DOS) и не принимает, например, расширение *.htm и *.html за одно и то же. C# мне не удалось этому очевидному решению научить, конечно, можно потом по выборке прогнать регулярное выражение, но оно тоже плохо срабатывает, упускает некоторые случаи, например, если имя файла начинается с расширения (т.е. на файл .html оно не сработает):

    В Lazarus все работает из коробки:



    program testfind;
uses Classes, SysUtils, FileUtil;
var
   lstFiles:TStringList;
   i: Integer;
begin
     lstFiles := TStringList.Create;
     FindAllFiles(lstFiles, 'C:\Temp\Test', '*.htm', true);
     i:=0;
     while i < lstFiles.Count do begin
       WriteLn(lstFiles[i]);
       inc(i);
     end;
     WriteLn ('Found: ',lstFiles.Count);
     WriteLn ('Press Enter');
     ReadLn();
     lstFiles.Free();
end.


    Пример и каталог с тестовыми файлами на GitHub

    UPD: Ссылка на мануал

    Это репост с сайта http://tolik-punkoff.com
    Оригинал: https://tolik-punkoff.com/2022/11/24/poigralsya-s-freepascal-lazarus/
    paperooster
         		7:31p
    ИРОНИЯ ПИЗДЫ
    На самом деле я обожаю и смотрю каждый год фильм "Ирония судьбы". Любовь, забавные приключения главных героев, интеллигентный юмор, временами добротная ебля (за кадром, конечно же). Умели же снимать хорошее кино в СССР! Но Алиночка сказала мне хаять все советское, иначе она так и не даст понюхать своей пизды. Вот я и стараюсь.
    paperdaemon
         		6:24p
    ПАПА УМЕР, ДЕД МОРОЗ
    Вместо того, что было бы хоть как-то адекватно моменту, а именно отечественного некротриллера "Папа умер, дед мороз", дорогим-россиянам предлагают ремикс на "Иронию судьбы" с участием Бузовой и Киркорова.

    "Ирония судьбы" - фильм про идиотов и для идиотов. Впечатление, что советский кинематограф - нечто вроде пособия по жизни для умственно-отсталых, вечная "школа для дураков", где прогрессом является деградация и ее манифестация.

    Без концентрированной пошлости и бездарности массовой советской культуры рашизм бы не состоялся. Это триумф идиотов, пьяненьких инфантилов с водочкой под оливье.
    ______________
    Подписывайтесь на мой телеграм-канал: https://t.me/alinavit2024
    Подписывайтесь на мой youtube-канал: https://bit.ly/vituhnovskaa

    Алина Витухновская
    elesin
         		10:40a
    Какую-то серую жижу
    Какую-то серую жижу
    Подсунули, вот она, снедь.
    И здесь ничего я не вижу,
    А там не хочу и глядеть.

    Не вижу кавказские горы,
    И Африка мне не видна.
    Мой город, мой город, мой город,
    Мой город, чужая страна.

    А мы ничего не просили,
    Ну разве что к водке арбуз.
    Россия, Россия, Россия,
    Россия, Советский Союз.

    А вы утоляете голод
    Духовный. Какого рожна?
    Мой город, мой город, мой город,
    Мой город, чужая страна.

    Пустые карманы, но с фигой,
    Зато седина в бороде.
    Анапу я путаю с Ригой,
    А больше и не был нигде

    Почти что. И кошка с укором
    Тоскливо сидит у окна.
    Мой город, мой город, мой город,
    Мой город, чужая страна.
    Wednesday, November 23rd, 2022
    elesin
         		7:09p
    Первую мировую еще можно называть войной?
    Конница. Распахнутые двери
    И кривые морды площадей.
    И невосполнимые потери.
    Восемь миллионов лошадей.

    Им не говорили: «или - или».
    Ради обезумевших людей
    Головы прекрасные сложили
    Восемь миллионов лошадей.

    Конница, кому какое дело
    До ослов, ученых и блядей.
    Солнце опечаленное село.
    Восемь миллионов лошадей.

    Конница. Какие там окопы?
    Конница. Напился и балдей.
    На полях России и Европы
    Восемь миллионов лошадей.

    …Где родился, там не пригодился,
    Будет здесь курорт и будет пляж.
    Застрелил коня и застрелился,
    Потому что Крым уже не наш.
    paperdaemon
         		10:22a
    ЕДИНИЦА


    Здесь босховский гербарий, Христианские гробы. Рожденные рабами Не ждут иной судьбы. Здесь невозможно чудо, Где бренность ноября, И беспощадны будут И Ева и змея, И та в мехах Венера, Прекраснейшее зло. И маленькая Вера, И маленькая Ло. Литвиновой манерной Приснилась Ро-ди-на. И матерью и смертью Явилася она. Никто сей вызов скверный Не примет. Русь страшна. Народец суеверный. Гражданская война. Предавшая Европа Дипломатичный кич. Давайте глянем в пропасть! Там воздух все же чист. Там сумасшедший Ницше, Что спустит вам канат. Чтоб вы могли свалится В метафизичный ад. Ваш евразийский демон, Ваш варварский закон. Вы собственных пределов На страже испокон. Вы шли с врагом сразиться. Но превратились в тлю. Вы армия безлицых, Стремящихся к нулю. Пускай ничто ничтожит. Но пусть не повторится И сотая возможность Кошмарной Единицы. Как леденцы предсмертны Небытия глазницы. Их высосал из мести Убийца Единицы. Изысканный убийца Не смог, увы, убить. Он склизкою улиткой Там, где камыш, лежит. Болотистый стал голем Чудовищный тростник. В болоте русской боли Заглатывает крик. Как русская тотальность — Таинственная ересь. Она и изначальность, И вера, и безверье. Экзистенциальный холод. Отрубленные руки. В них злой синицы хохот. В них русская наука...
    ______________
    Подписывайтесь на мой телеграм-канал: https://t.me/alinavit2024
    Подписывайтесь на мой youtube-канал: https://bit.ly/vituhnovskaa

    Алина Витухновская

    [ << Previous 25 ]
About LJ.Rossia.org