Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

           Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
           И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - https://clck.ru/fCqwP

Ответ
 
Опции темы Поиск в этой теме
Старый 29.05.2022, 23:17   #21
macomics
Форумчанин
 
Регистрация: 17.04.2022
Сообщений: 461
По умолчанию

Код:
var
  f, i, j, t: Integer;  
  city, comp, street: String;
begin
  with StringGrid1 do for i := FixedRows to RowCount -1 do begin
      f := -1; city := Cells[1, i]; comp := lowercase(city); // Сохраним значения текущейстроки в StringGrid1
      t := strtoint(Cells[3, i]); street := Cells[2, i];
      with StringGrid2 do for j := FixedRows to RowCount - 1 step 2 do
        if lowercase(Cells[1, j]) = comp then begin
          f := j;
          break;
        end; // Совпадение найдено, изменяем флаг
      with StringGrid2 do if f < 0 then begin // Добавляем новый город
        InsertRowWithValues(RowCount, [inttostr(RowCount), city, street, inttostr(t)]); // Будет минимальное значение
        InsertRowWithValues(RowCount, [inttostr(RowCount), city, street, inttostr(t)]); // Будет максимальное значение
      end else begin
        if strtoint(Cells[3, j]) > t then begin
          Cells[2, j] := street;
          Cells[3, j] := inttostr(t);
        end;// Обновляем минимум
        if strtoint(Cells[3, j + 1]) < t then begin
          Cells[2, j + 1] := street;
          Cells[3, j + 1] := inttostr(t);
        end;// Обновляем максимум
      end;
    end;
end;
Вот так должно сработать. В браузере исправил - могут быть опечатки.

Последний раз редактировалось macomics; 30.05.2022 в 01:20.
macomics на форуме Ответить с цитированием
Ответ

           Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
           Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск в StringGrid Retiree Компоненты Delphi 1 27.04.2012 09:52
Поиск по БД в StringGrid Anny_Apple БД в Delphi 12 27.05.2011 00:14
Поиск в StringGrid program123 Общие вопросы Delphi 6 13.09.2010 09:45
Поиск в StringGrid program123 Помощь студентам 5 11.04.2009 19:10
Поиск по StringGrid'у monushka Помощь студентам 3 09.02.2008 20:03