Search options (Page 163 of 400)

Если используете кнопку с действием "Поиск", то к сожалению секунды при поиске учитываются. Чтобы избежать этого, придется реализовать поиск используя SQL запрос.

stas.kodpi
Пожалуйста формулируйте конкретные вопросы, вы опять написали ТЗ, которое предлагаете мне выполнить?

Это делается с помощью кнопки с действием Поиск. Добавил вывод в грид в вашем проекте.

Обратите внимание у компонента ComboBox1 заполнено свойство Increm.Search, в котором выбрана кнопка с действием Поиск, которая автоматически нажимается когда вы изменяете выбор в ComboBox1. Эту кнопку в принципе можете скрыть.

1000 строк.

Когда сменю, пока не знаю, синтаксис не изменится.

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

С свойстве "ParentComboBox"  компонента ComboBox2 выберите компонент ComboBox1

Hello.

Please attach your project and describe steps to reproduce the error.

Thanks.

По кнопке import2 у меня возникают ошибки при импорте, т.к. нет экранизации символов ' и нужно использовать символ ' вместо ", должно быть так

                 //3 sFIO
               if arrStr[2]<>'' then sFIO := ''''+ReplaceStr(arrStr[2], '''', '''''')+'''' else sFIO := 'NULL';

               //4 sSEX
               if arrStr[3]<>'' then sSEX := ''''+ReplaceStr(arrStr[3], '''', '''''')+'''' else sSEX := 'NULL';

               //5 sLat
               if arrStr[4]<>'' then sLat := ''''+ReplaceStr(arrStr[4], '''', '''''')+'''' else sLat := 'NULL';

скрипт импорта от кнопки "import" у меня работает, в присланной вами БД также присутствуют записи, в которых содержится например буква ж

Можно

procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.TableGrid1.Columns[0].Visible := Form1.CheckBox1.Checked;
    Form1.TableGrid1.Columns[1].Visible := Form1.CheckBox2.Checked;
    Form1.TableGrid1.Columns[2].Visible := Form1.CheckBox3.Checked;
    Form1.TableGrid1.Columns[3].Visible := Form1.CheckBox4.Checked;

end;

procedure Form1_Button5_OnAfterClick (Sender: string);
begin
    Form1.TableGrid1.Columns[0].Visible := True;
    Form1.TableGrid1.Columns[1].Visible := True;
    Form1.TableGrid1.Columns[2].Visible := True;
    Form1.TableGrid1.Columns[3].Visible := True;
end;

вы говорите все еще чтобы скрыть колонки при экспорте в Excel? Или уже хотите скрывать колонки в гриде?

bemorhona-qt

(case when strftime('%m-%d', 'now') < strftime('%m-%d', dates) then -1 else 0 end)

здесь содержится условие, от которого зависит результат данного выражения.

если текущий месяц и день меньше чем месяц и день в поле dates, тогда выражение будет -1, иначе 0

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

AD1408
Unfortunately I can't help you with these questions, to solve all these issues would require too much time. Usually I can only help with specific questions.