Dim strFind As String
Dim strFind2 As String
    
        strFind = Nz(Me.Поле14.Text, "")
        strFind2 = Nz(Me.ПолеСоСписком5.Text, "")
        If strFind <> "" Then
        
            Forms![Форма1]![Форма2].Form.Filter = " strFind2 Like '*" & strFind & "*'"
            Forms![Форма1]![Форма2].Form.FilterOn = True
            
        Else
        
            Forms![Форма1]![Форма2].Form.FilterOn = False
            Me.Поле14.SetFocus
            
        End If

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

Функция должна возвращать сумму элементов с первого по предпоследний, в качестве последнего параметра передается FLT_MAX.

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

Ввести строку из произвольных ASCII-символов при помощи цикла и 01h и выполнить с ней преобразования
<F2> – изменение порядка следования символов исходной строки на обратный
<F7> — по возрастанию (пузырьком)

Пытался сделать пузыриком и инверсный вывод строки
При инверсном выводе цифры выводит не все, а при сочетании букв и цифр выводит различные символы и знаки.
TASM

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

Как можно проиграть один видео файл формата MP4 без использования WMP?!
Нужен пример.

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

Есть ли у кого-то графический ListBox на подобии UserListBox либо же адаптированный под XE7. Данный компонент устанавливается без проблем, но когда бросаешь на форму куча не достающих *.dcu. Либо же как добавить изображение от и больше 32*32 в стандартный ListBox.

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

Нужен макрос для создания/отправки HTML-писем прямо из Outlook. В макросе должен быть прописан путь к файлу HTML, а не прописывать/переписывать в коде все теги. Просто сослаться на HTML-файл на диске.

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

Разобрался сегодня как же все таки присвоить картинки созданным итемам в TreeView. Теперь мне нужно вот что.

Где-то в программе создается корневой узел так:

var
 Node: TTreeNode;
begin
    Node:=tv1.Items.Add(Nil,sLabel3.Caption);
    Node.SelectedIndex:=0;
    Node.ImageIndex:=0;
    tv1.FullExpand;
end;

все нормально создается и картинка какая надо присваивается. Далее, в программе создаются в ранее созданном корневом узле подузлы так:

var
 Node: TTreeNode;
begin
 Node:=tv1.Items.AddChild(tv1.Items.Item[0],'Новый' +
                                      IntToStr(tv1.Items.Count + 1));
 Node.SelectedIndex:=tv1.Items.Count + 1;
 Node.ImageIndex:=1;
 tv1.FullExpand;
end;

тоже все ништяк создается и присваивается.

Теперь мне нужно вот что: присвоить созданным подузлам номер итема, что в дальнейшем, в самом дереве, я мог обращаться к ним для, например, удаления выбранного узла или дальнейших действий с этим индексом итема.

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

Нужно чтение определенный строки из txt файла и добавление ее в Memo.

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

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

Нужно как-то сгенерировать все возможные варианты. То есть у меня есть два списка букв от a до z (4 символа) и цифры от 0001 до 9999 и теперь надо получить все возможные комбинации.

Допустим
АА0001BB
….
AA9999BB
И так до конца. Потом следующие значение
AACC
AA0001CC
….
AA9999CC

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

Есть форма с чекбоксами :

<ul>
<li><input type="checkbox" id="ch2_1" name="foors[]" value="1" />
<label for="ch2_1">1 этаж</label></li>
<li><input type="checkbox" id="ch2_2" name="foors[]" value="2" />
<label for="ch2_2">2 этажа</label></li>
<li><input type="checkbox" id="ch2_3" name="foors[]" value="3" />
<label for="ch2_3">3 этажа</label></li>
<li><input type="checkbox" id="ch2_4" name="foors[]" value="4" />
<label for="ch2_4">4 и больше</label></li>
</ul>

И форма отправляет массив с параметрами для обработки.

Мне надо сделать так, чтобы если выбран 4 чекбокс, тогда должно вывести все что больше 4. Как можно это реализовать?

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