Никак не могу найти в VBA встроенную функцию, добавляющую элемент в конец динамического массива.
(аналог array_push() или Arr[] в PHP или push() в Perl)
также не получается найти встроенную функцию сортировки массивов (аналог sort() в PHP и Perl)

Допустим, я объявляю динамический массив. Его конечный размер заранее неизвестен.

Dim arr() As String
Redim arr(1)

затем, мне надо в цикле просмотреть все строки одной таблицы («Лист1»), на каждой итерации просмотреть колонку второй таблицы («Лист2») и, если интересующие вхождения будут найдены, добавить новые элементы из ячеек «Лист1» в конец массива arr(), а по выходу из цикла, отсортировать этот массив arr() по алфавиту.

Моя конструкция

arr(UBound(arr) + 1) = tb.Cells(j, "C").Value

не срабатывает, ругается, что «Subscript out of range»

Если не трудно, подскажите, как решаются такие задачи в VBA!

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

Идея следующая — есть таблица и связанная с ней форма. В форме combobox (данные берет из таблицы). Необходима фильтрация по мере того как вводишь в combobox текст, чтобы предлагались только те результаты, которые соответствуют вводу. В силу того что я только начинаю осваивать данный предмет (ACCESS), для меня эта задача без помощи, неподъемная. Нужен пример, ибо только описание решения не поможет…

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

кто подскажет хочу сделать танчик при помощи псевдографики
получается вроде не плохо но очень отличаются расстояния между символами горизонтальные и вертикальные.

получается как то так
а хочется
или

кто подскажет как рисовать такими квадратиками, (код и кодировку и как ее переключить)
и что бы размер по вертикали и горизонтали

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

Необходимо через GDI+ в делфи 7 получить из файла формата jpg файл формата bmp. Скачал архив с GDI+, распаковал и положил 6 файлов (DirectDraw.dcu, GDIPAPI.dcu, GDIPUTIL.dcu, GDIPOBJ.dcu, DirectX, Jedi) в каталог Lib, где стоит делфи. Потом когда я получил ошибку — скопировал эти же файлы и в проект (на всякий случай), но не помогло. Пишу код:

uses
 Windows, ... jpeg, pngimage, GifImage,
  GDIPAPI, GDIPOBJ, GDIPUTIL;

procedure TForm1.Button3Click(Sender: TObject);
var
  encoderClsid: TGUID;
  Image: TGPImage;
begin
Edit1.Text:=StringReplace(Edit1.Text,ExtractFileExt(Edit1.Text),'',[]);
 if ExtractFileExt(Edit1.Text)='.jpg' then
  Image := TGPImage.Create(Edit1.Text+'.jpg');
  GetEncoderClsid('image/bmp', encoderClsid);
  image.Save(Edit1.Text+'.bmp', encoderClsid, nil);
  image.Free;

  Image2.Picture.LoadFromFile(Edit1.Text+'.bmp');
end;

При запуске сначала появляется такое предупреждение
[Предупреждение] Unit1.pas(98): Variable ‘Image’ might not have been initialized

А затем вылазеет ошибка вот в таком окне:

—————————
Debugger Exception Notification
—————————
Проект Capcha.exe вызвал исключение класса EAccessViolation с сообщением ‘Access violation at address 7C80980F in module

‘kernel32.dll’. Write of address CED6E8D3′. Процесс остановлен. Используйте Шаг или Запуск для продолжения.
—————————
OK Help
—————————

Жму ОК, выскакивает окно:

Исходник не найден GDIPOBJ.pas
Путь к файлу: GDIPOBJ.pas

Да, действительно файла GDIPOBJ.pas нет ни в папке с проектом, ни в папке Lib где стоит делфи. В то время как GDIPOBJ.dcu есть в обоих папках. Сам не знаю что думать: то ли делфи не создал GDIPOBJ.pas, то ли этот файл должен был войти в состав скачиваемого GDI+.

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

Из спортивного интереса решил написать алгоритм для прецизионного поворота растрового изображения на произвольный угол относительно произвольной точки поворота. Но боюсь, что изобретаю велосипед…

Много видел сообщений о то, что такой алгоритм будет очень медленный и громоздкий, но самого алгоритма никто показать не может. Может здесь кто-нибудь встречал такой алгоритм?

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

Имеется:
1. База данных преподавателей и студентов в MS SQL Server 2005
2. В ней находится 5 таблиц: Факультеты, Группы, Преподаватели, Предметы и Основная.
3. Поля в первых 4 таблицах соответствуют их названиям (не считая целочисленные ключевые поля-идентификаторы). В них просто перечислены все группы, все преподаватели, все предметы и все факультеты
4. Последняя таблица состоит из 4 полей с теми же именами
Задача:
При введении данных в поля Основной таблицы необходимо обеспечить подстановку из таблиц Факультеты, Группы, Преподаватели и Предметы в соответствующие поля, т.е. чтобы не вводить полностью имя препода, который ведёт один из своих предметов у определённой группы на таком-то факультете, а обеспечить возможность выбора данных из динамически формирующегося списка при, скажем, установке курсора в нужное поле (это вообще было бы идеально), т.е. как в конструкторе — собрать Основную таблицу по деталям из четырёх других.
Поскольку связь в Основной таблице идёт многие ко многим, то, пожалуй, будет надобность создавать промежуточные таблицы
Вопрос:
Существуют ли способы, какие-либо select-запросы или ещё что-то, чтобы это можно было осуществить?

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

Извеняюсь если вопрос уже задавался но в гугле 3 страницы просмотрел там либо таймер либо MouseMove собственно вопрос в теме тоесть цель необходимо получить координаты курсора мыши относительно формы не используя таймера
А MouseMove не подходит так как у меня форма в основном на ней динамические объекты а цель получения координат мыши необходимо для отслежки в каких координатах нужно расположить динамические лейблы узнать этого нельзя так как имаджи на которых нужно разместить лэйблы размещаются динамически тоесть програмным путем темболее через массив
Вот скрин

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

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

Помогите разобраться с выводом графики в pdf. Английский не знаю. Очень трудно читать буржуйские мануалы, 3 день парюсь.

Самый важный вопрос:

Какая функция начинает вторую страницу pdf???

Менее важные:
Как допустим открыть pdf и не удаляя его, продолжить на нем рисовать??

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

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

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

Пытаюсь макросом выписать из таблицы строки по определённому признаку. в процедуру передаю параметр «U», по которому производится отбор. Вторая таблица изначально пустая. Не получается добавить строку и заполнить её данными. И ещё: Параметр «U» Не уникален.
Уникальная строка получается только в сочетании с другим параметром.
Как лучше организовать поиск? Или при первом нахождении просто проверить второй параметр? и сделать FindNext

Set rst = dbs.OpenRecordset("*****")
rst.FindFirst "ИНомер ='" & U & " '"

Set rstN = dbs.OpenRecordset("*******")
rstN.FindFirst "ИНомер ='" & U & " '"

 If rstN.NoMatch Then

 rstN.AddNew
  For R = 0 To 4 ' эти поля являются ключевыми
  rstN(R) = rst(R)
  Next R
  rstN(5) = 1
  rstN(6) = "30.11.2011"
  rstN(7) = "30:21:12542/lk:200"
  rstN.Update ' на этой строке ругается
  Else

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