Столкнулся со следующей задачей, которую не получается решить.
В документе Word 60 из страниц встречается много таблиц. Файл прилагаю.
Проблема в том, что в большинстве ячеек этих таблиц имеются пустые абзацы перед текстом и после него (т.е. в верху и внизу ячеек).
Надо удалить их все.

(читать всё…)

Нужно сделать программу:

Если просто запускается программа, без параметров — то запускается форма

Если же программа запускается с каким-то конкретным параметром — то тогда программа совершает вычисления без запуска формы, возвращает результат и закрывается

Как это сделать?

(читать всё…)

Задача такая:

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

Программа А «оживает» после закрытия программы В

(читать всё…)

Задача — перемещать строки в TStrings.

(читать всё…)

Есть 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}}, {}, {}, {}, {}]

начал писать запутался в циклах, просьба помочь

(читать всё…)

Использую такую вот процедуру. Но не покидает ощущение, что есть более прямой метод получения списка дисков. Вопрос: существует?

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;

(читать всё…)

Хочу представить вашему вниманию, мою «игрушку»!
Ну шучу конечно! Просто вдруг, кому то делать будет нечего!
Отвлечётся!
Вообщем суть проста!
Генерируется лабиринт, и вы должны его пройти!
Правила:
Вы управляете вот этим «юнитом» : &
Вам нужно сначало найти «ключ» : @
После чего дойти до «двери»: 0
Вот как-то так
Управление:
Вверх — w
Вних — s
Влево — a
Вправо -d
Esc — выход
Пробел — Генерация нового лабиринта!

Вообщем как генерируются лабиринты я не знаю!
Поэтому алгоритм придумал сам!

(читать всё…)

Embarcadero 11 под Windows 10.
Нужно преобразовать строки ANSI в OEM.

В Delphi 7 под Windows XP всё прокатывало. Сей час же функция возвращает ошибку . Господа, не подскажете в чём засада?

(читать всё…)

Ищу техническое решение, чтобы делать приложение для андроид, чтобы это же приложение можно было запускать в браузере с минимальными изменениями.
Я так понимаю под андроид пишут на Java.
Вопрос.
Можно ли потом приложение написанное для андроид на Java с минимальными изменениями запустить на персональном компьютере в браузере?
Чтобы пользователям не нужно было ничего ставить себе на компьютер и они без проблем бы пользовались этим приложением на сайте через браузер Хром.
(читать всё…)

использую код:

import docx
doc = docx.Document('example.docx')
# изменяем размер шрифта для всех параграфов
for paragraph in doc.paragraphs:
    paragraph.size = 18

# изменяем цвет шрифта для всех параграфов
for paragraph in doc.paragraphs:
    paragraph.color = 'BLACK'
doc.save('restyled.docx') # сохранение результата

ошибок нет и файл пересохраняется, но результата нет, почему? как исправить?

(читать всё…)