В sql еще есть команда UNIQUE тоже задает свойства по умолчанию
Задание значения по умолчанию
В области навигации щелкните правой кнопкой мыши таблицу, которую вы хотите изменить, и выберите команду Конструктор.
Выберите поле, которое требуется изменить.
На вкладке Общие введите значение в поле свойства Значение по умолчанию.
Значение, которое можно ввести, зависит от типа данных, заданного для поля. Например, в поле "Дата/время" можно ввести =Date() для вставки текущей даты.
Задание значения по умолчанию для элемента управления
Обычно значение по умолчанию задается для элемента управления только в том случае, если он не привязан к полю таблицы или же связан с данными из другой таблицы.
Задание строки по умолчанию для списка или поля со списком
По умолчанию в списках и полях со списком отображаются два типа списков: списки значений и списки подстановки. Список значений — это жестко заданный список элементов, который хранится в свойстве Источник строк списка или поля со списком. С другой стороны, список подстановки берет данные из поля подстановки (поля, которое использует запрос для получения данных из другой таблицы), а затем загружает их в поле со списком.
Для списков значений и списков подстановки можно указать, какой элемент должен отображаться по умолчанию, но процедуры для каждого типа списка различаются. Ниже описано, как задать значения по умолчанию для списка значений и списка подстановки.
Задание значения по умолчанию для списка значений
В области навигации щелкните правой кнопкой мыши форму, которую вы хотите изменить, и выберите команду Конструктор.
Щелкните правой кнопкой мыши список или текстовое поле и выберите пункт Свойства или нажмите клавишу F4.
Убедитесь, что свойство Источник строк содержит список значений. Элементы списка значений заключено в двойные кавычки и через точку с запятой. Например, вы видите список следующим образом: " "хорошая «;» Ярмарки»;» Низкое"".
Если свойство Источник строк содержит запрос (строку текста, которая начинается с SELECT), перейдите к следующей последовательности шагов.
В поле свойства Значение по умолчанию введите следующее:
[control_name]. ItemData (n)
В этом случае элемент_управления — это имя списка или поля со списком, а n — это номер элемента списка, который нужно выводить по умолчанию. Если вы не знаете имя элемента управления, просмотрите значение свойства Имя в верхней части страницы свойств.
Предположим, например, что у вас есть поле со списком Владелец и вы хотите по умолчанию использовать его третье значение. В поле свойства Значение по умолчанию введите следующее:
[Владелец].ItemData(2)
Нужно ввести 2 вместо 3, так как нумерация ItemData начинается с нуля, а не с единицы.
Сохраните изменения и переключитесь в режим формы. Выбранное значение по умолчанию будет выводиться в списке или поле со списком при добавлении записи в базу данных.
В sql еще есть команда UNIQUE тоже задает свойства по умолчанию
Задание значения по умолчанию
В области навигации щелкните правой кнопкой мыши таблицу, которую вы хотите изменить, и выберите команду Конструктор.
Выберите поле, которое требуется изменить.
На вкладке Общие введите значение в поле свойства Значение по умолчанию.
Значение, которое можно ввести, зависит от типа данных, заданного для поля. Например, в поле "Дата/время" можно ввести =Date() для вставки текущей даты.
Задание значения по умолчанию для элемента управления
Обычно значение по умолчанию задается для элемента управления только в том случае, если он не привязан к полю таблицы или же связан с данными из другой таблицы.
Задание строки по умолчанию для списка или поля со списком
По умолчанию в списках и полях со списком отображаются два типа списков: списки значений и списки подстановки. Список значений — это жестко заданный список элементов, который хранится в свойстве Источник строк списка или поля со списком. С другой стороны, список подстановки берет данные из поля подстановки (поля, которое использует запрос для получения данных из другой таблицы), а затем загружает их в поле со списком.
Для списков значений и списков подстановки можно указать, какой элемент должен отображаться по умолчанию, но процедуры для каждого типа списка различаются. Ниже описано, как задать значения по умолчанию для списка значений и списка подстановки.
Задание значения по умолчанию для списка значений
В области навигации щелкните правой кнопкой мыши форму, которую вы хотите изменить, и выберите команду Конструктор.
Щелкните правой кнопкой мыши список или текстовое поле и выберите пункт Свойства или нажмите клавишу F4.
Убедитесь, что свойство Источник строк содержит список значений. Элементы списка значений заключено в двойные кавычки и через точку с запятой. Например, вы видите список следующим образом: " "хорошая «;» Ярмарки»;» Низкое"".
Если свойство Источник строк содержит запрос (строку текста, которая начинается с SELECT), перейдите к следующей последовательности шагов.
В поле свойства Значение по умолчанию введите следующее:
[control_name]. ItemData (n)
В этом случае элемент_управления — это имя списка или поля со списком, а n — это номер элемента списка, который нужно выводить по умолчанию. Если вы не знаете имя элемента управления, просмотрите значение свойства Имя в верхней части страницы свойств.
Предположим, например, что у вас есть поле со списком Владелец и вы хотите по умолчанию использовать его третье значение. В поле свойства Значение по умолчанию введите следующее:
[Владелец].ItemData(2)
Нужно ввести 2 вместо 3, так как нумерация ItemData начинается с нуля, а не с единицы.
Сохраните изменения и переключитесь в режим формы. Выбранное значение по умолчанию будет выводиться в списке или поле со списком при добавлении записи в базу данных.
function Conv(s: string): string;
begin
var d := s.ToCharArray;
var (i, found) := (d.High, False);
while i >= 1 do
if d[i] > d[i - 1] then
begin
found := True;
break
end
else i -= 1;
if found then
begin
s := s[:i];
var c := d[i - 1];
d := d[i - 1:];
d.Sort;
var j := d.IndexOf(c) + 1;
s += (d[j] + d?[:j] + d?[j + 1:]).JoinIntoString
end
else s := '-';
Result := s
end;
begin
var ms := Arr('1890', '83849', '126631', '146531', '32749972');
foreach var s in ms do
Conv(s).Println
end.
19088389413126615134632772499