Нахождение максимального элемента в DBGrid

@DenProx · Регистрация: 09.10.2009

Студворк — интернет-сервис помощи студентам

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

я делаю так,.... но так не работает:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var max, i: integer;
begin
max:=0;
For i:=0 to Table1.FieldCount-1 do
if Table1Id.Value > max then max:=Table1Id.Value;
max:=max+1;
Table1.Append;
Table1Id.Value:=max;
Table1Name.Value:=Edit1.Text;
Table1.Post;
end;

@DenProx · 15.12.2009, 14:36 **[ТС]**

Lord_Voodoo, ни чего не работает ....

@Lord_Voodoo · 15.12.2009, 14:39

DenProx, в предыдущем посте я написал, как делать не надо

@DenProx · 15.12.2009, 17:53 **[ТС]**

Все сделал!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Button1Click(Sender: TObject);
var   max: integer;
      i: integer;
begin
 
if ADOTable1.RecordCount = 0 then
 Begin
   ADOTable1.Insert;
    ADOTable1.Fields.Fields[0].AsInteger := 1;
    ADOTable1['Name']:=Edit1.Text;
   ADOTable1.Post;
 end else
 max := ADOTable1.Fields.Fields[0].AsInteger;
ADOTable1.First;
 for i:=1 to ADOTable1.RecordCount do
  Begin
     if max < ADOTable1.Fields.Fields[0].AsInteger then
        max := ADOTable1.Fields.Fields[0].AsInteger;
  ADOTable1.Next;
  end;
 
  ADOTable1.Insert;
    ADOTable1.Fields.Fields[0].AsInteger := max + 1;
    ADOTable1['Name']:=Edit1.Text;
  ADOTable1.Post;
end;

или через запрос:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 with DMBase.adoquery1 do begin
     Close;
     SQL.Clear;
      SQL.Add('Select max(Table1.id) ' +
             'FROM Table1;');
     Open;
    ID := Fields.Fields[0].AsInteger + 1;
     Close;
     SQL.Clear;
     SQL.add(format ( 'INSERT INTO TABLE1  ' +
                    '   ( id, Name ) VALUES (%s,%s) ;',[IntToStr(ID),Name]));
     ExecSQL;
 
end;

Новые блоги и статьи Все статьи Все блоги /
В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .
rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	15.12.2009, 14:36 [ТС]
	Lord_Voodoo, ни чего не работает .... 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	15.12.2009, 14:39
	DenProx, в предыдущем посте я написал, как делать не надо 0