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

Пробовал ли кто-нибудь превратить свой проект в полноценное отдельное приложение? Вышеупомянутый ехе-файл, как оказалось, таковым не является и требует наличия файлов проекта для работоспособности. Хотелось бы создать единый целостный ехе'шник своей программы, независимый от файлов проекта, для использования на других компьютерах.
У кого-нибудь есть на примете программа для этого?

Как сохранить изображение в базе данных, чтобы не нужно было хранить само изображение отдельно? Или в самом ехе-файле сохранить не удастся?

Прилагаю ссылку на заготовку проекта с кодом, вдруг кто-нибудь сможет подсказать, что нужно подкорректировать - https://disk.yandex.ru/d/7_-XAU40LpVOGw

Здравствуйте!
Понадобилось взаимодействовать с вордом, нашел страничку с кодом - https://delphisources.ru/pages/faq/base … _strs.html
Перенес все как там указано в свой скрипт. Но возникла проблемка: MVD выделяет "uses ComObj;" как "undeclared identifier". Выше неё строк нету.
Никогда не сталкивался с необходимостью использовать ComObj и редактурой ворда через дельфи вообще. Что я упустил?

Команда uses подключает модули (файлы с расширением .pas) в проект.
Про то, как это работает в MVD можно прочитать тут: https://k245.ru/mvdb/navodim-poryadok.html

В примере, который вы пытаетесь портировать,  используется модуль для Delphi. То есть копировать строку uses в свой проект нельзя. Удалите эту строку

Form1_Combobox1_OnCh(Sender)

k245, благодарю!

procedure Form1_Combobox1_OnChange(Sender:TObject);
begin 
  Form1_Combobox1_OnCh(Sender);
end;

procedure Form1_Combobox1_OnCh(Sender:TObject);
begin 
  ShowMessage(''+TComponent(Sender).Name);
end;

procedure Form1_Combobox1_OnChange(Sender:TObject);
begin ShowMessage(''+TComponent(Sender).Name);
end;

А так уже нет:

procedure Form1_Combobox1_OnChange(Sender:TObject);
begin Form1_Combobox1_OnCh;
end;

procedure Form1_Combobox1_OnCh;
begin ShowMessage(''+TComponent(Sender).Name);
end;

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

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

var
  tmpNamePattern = 'MyName';
  tmpIndexMin = 0;
  tmpIndexMax = 7;
  tmpName: string;
  tmpIndex: string;

...
if  (AddSpell.Components[i] is TdbComboBox) then
begin
  tmpName := TdbComboBox(AddSpell.Components[i]).Name;
  tmpIndex := tmpName;
  delete(tmpIndex,1,Length(tmpNamePattern));
  tmpName := copy(tmpName,1,Length(tmpNamePattern));
  if ValidInt(tmpIndex) and 
     (StrToInt(tmpIndex) >= tmpIndexMin) and 
     (StrToInt(tmpIndex) <= tmpIndexMax) and 
     (LowerCase(tmpName) = LowerCase(tmpNamePattern)) then
...

    a:=0;
    n:=0;
    for i:=0 to Form1.ComponentCount-1 do begin
        if (Form1.Components[i] is TdbComboBox) then
            a:=a+1;
            for e:=1 to a do begin
                if (Form1.Components[i].Name='MyName'+IntToStr(e)) then
                    //нужны только значимые пункты
                    if ((TdbComboBox(Form1.Components[i]).ItemIndex<>0) and (TdbComboBox(Form1.Components[i]).ItemIndex<>-1)) then
                        n:=n+1;
            end;
    end;
    showmessage('Comboboxes names containing the string "MyName" = ' + IntToStr(n));
    n:=0;
    a:=0;

Может, кто-то подскажет еще кое-что.
1) Как сымитировать скриптом действие кнопки "Сохранить запись"? Т.е. указать компоненты, участвующие в сохранении, и таблицу БД для сохранения. Мне нужно сохранять значения комбобоксов и текстовых полей в саму БД, не в файл. И можно ли таким скриптом дополнить уже настроенную кнопку (не будет ли конфликта программной кнопки и скрипта)?
2) Как "закрепить" компоненты на форме (скроллбоксе), вставленные динамически (скриптом), чтобы при новом открытии программы они оставались на своих местах? Просто есть базовая форма с определенным набором компонентов, но иногда нужно вставлять новые прямо по ходу работы и затем сохранять их значения.

Привет,  Derek. Спасибо за ответ, но у меня это не работает как нужно...
Похоже, sparrow прав - Components[1] - совсем не 'MyName1'. У меня больше 180 компонентов на форме, и комбобоксы идут вразнобой после i=65))
Может, в моем случае нужно перебирать компоненты по типам, а не по номеру. Но я не знаю как.
С уважением, Vyvern.

Upd. By the way, if change 'myname' to anything else, the function does not work.

Components[i] и 'MyName'+IntToStr(i) не совпадает

т.е. Components[1]- совсем не 'MyName1'
Проверяйте так, как советует Дерек. Только приводите все к одному регистру.

Hi Derek

Components[i] and 'MyName'+IntToStr(i) do not match.

i.e. Components[1] is not 'MyName1' at all.
Check as Derek advises. Just convert everything to the same case.