Последние записи
- Windows Driver Framework — подпись драйвера
- Функция GetCurrentProcessToken (processthreadsapi.h)
- With … do и вызов функции. Как получить указатель на сам объект?
- TChromium обработка клика
- Delphi 7: замостить TImage маленьким изображением
- Определить, что кнопка зажата сейчас
- ATmega128 — При появлении положительного фронта на входе PD3 запустить таймер-счётчик 0
- Можно вставить в HTML элемент из XML?
- Не получается запустить компьютер, при старте показывает no codec initialized
- Громкость звука (Делфи)
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
1st
Янв
Собрать post/get и куки параметры в одну переменную
foreach ($_REQUEST as $k => $v) {
$v && $data[$k] = addslashes(strip_tags($v));
}
$_REQUEST — содержит get параметры и post. Вопрос в том, как добавить в данную переменную еще массив куков?
Чтобы все пользовательские данные были в одной переменной и были обработаны на наличие нежелательных символов в строке?
Вопрос еще в том, какая конструкция будет обрабатывать быстрее? То есть и быстрее и по времени менее затратно, так как подобную операцию необходимо проделывать каждый раз когда пользователь открывает страницу…
20th
Дек
Создание окна ввода пароля на чистом Ассемблере
Небольшая демка, которая создаёт «окно регистрации» с полем ввода пароля, и последующей его проверкой. Оригин пароль лежит в открытом виде, но это сейчас не важно.
15th
Дек
Удаление пустых абзацев в ячейках таблиц (MS Word)
Столкнулся со следующей задачей, которую не получается решить.
В документе Word 60 из страниц встречается много таблиц. Файл прилагаю.
Проблема в том, что в большинстве ячеек этих таблиц имеются пустые абзацы перед текстом и после него (т.е. в верху и внизу ячеек).
Надо удалить их все.
10th
Дек
Не создавать форму при определенном параметре
Нужно сделать программу:
Если просто запускается программа, без параметров — то запускается форма
Если же программа запускается с каким-то конкретным параметром — то тогда программа совершает вычисления без запуска формы, возвращает результат и закрывается
Как это сделать?
1st
Дек
Запуск сторонней программы с передачей строки и ожиданием ее завершения
Задача такая:
Программа А запускает программу B, передаёт в нее строку и переходит в режим ожидания
Программа В принимает строку, совершает обработку и передаёт ее обратно в А, после чего закрывается
Программа А «оживает» после закрытия программы В
15th
Ноя
Поэлементное сложение списков с вложенными словарями
Есть 2 списка всегда из 5 элементов — словарей, значения которых тоже словарь например
x = [{'2': {'1': 7}, '3':{'1':0, '5': 0}}, {}, {}, {}, {}]
y = [{'2': {'1': 1, '2': 5}}, {}, {}, {}, {}]
в итоге нужно сложить поэлементно два этих списка
Должно получиться
x + y = [{'2': {'1': 8, '2': 5}, '3':{'1':0, '5': 0}}, {}, {}, {}, {}]
начал писать запутался в циклах, просьба помочь
10th
Ноя
Найти все диски
Использую такую вот процедуру. Но не покидает ощущение, что есть более прямой метод получения списка дисков. Вопрос: существует?
Procedure Disks(ss:TStrings);
var
s1:string[2];
c:char;
begin
s1:='A:';
ss.Clear;
A.SetTextBuf(PChar_Computer);
For c:='A' to 'Z' do begin
s1[1]:=c;
If DirectoryExists(s1) then begin
ss.Add(s1);
End;
End;
end;
5th
Ноя
Игра Лабиринт (Console Edition)
Хочу представить вашему вниманию, мою «игрушку»!
Ну шучу конечно! Просто вдруг, кому то делать будет нечего!
Отвлечётся!
Вообщем суть проста!
Генерируется лабиринт, и вы должны его пройти!
Правила:
Вы управляете вот этим «юнитом» : &
Вам нужно сначало найти «ключ» : @
После чего дойти до «двери»: 0
Вот как-то так
Управление:
Вверх — w
Вних — s
Влево — a
Вправо -d
Esc — выход
Пробел — Генерация нового лабиринта!
Вообщем как генерируются лабиринты я не знаю!
Поэтому алгоритм придумал сам!
25th
Окт
Почему не работает функция CharToOem
Embarcadero 11 под Windows 10.
Нужно преобразовать строки ANSI в OEM.
В Delphi 7 под Windows XP всё прокатывало. Сей час же функция возвращает ошибку . Господа, не подскажете в чём засада?
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет excel Microsoft Office Excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)