Максимальный элемент каждой строки Stringgrid

@Kinego · Регистрация: 15.01.2016

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

Смотрите, есть Stringgrid1 который состоит из элементов 4*4. Нужно найти максимальный элемент каждой строки и занести его в одномерный массив(его я хочу вывести в Edit4). Но моим методом в Edit4 выводится лишь максимальный элемент первой строки.

Delphi
1
2
3
4
5
6
7
8
max:=0;
edit4.Clear;
for j:=0 to n do
for i:=0 to n do
begin
if strtoint(StringGrid1.cells[j,0])>max then max:=strtoint(StringGrid1.cells[j,0]);
end;
edit4.Text:=edit4.Text+' '+inttostr(max);

Добавлено через 3 часа 46 минут
Появился еще такой вариант. Частично работает. В Edit4 заносятся 4 числа. Но почему-то иногда это происходит с ошибкой. К примеру, оно находит максимальный элемент 1,2 строки, а 3 или 4 строки не правильный. При чем вообще такой, какого в строке нет.

Delphi
1
2
3
4
5
6
7
8
edit4.Clear;
for i:=0 to n do
begin
max:=strtoint(Stringgrid1.Cells[i,0]);
for j:=0 to n do
if strtoint(StringGrid1.cells[j,i])>max then
max:=strtoint(StringGrid1.cells[j,i]);
edit4.Text:=edit4.Text+' '+inttostr(max); end;

@ROS88 · 03.05.2017, 19:39

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
max:=0;
edit4.Clear;
for i:=0 to n do
  begin
    for j:=0 to n do
       begin
          max := 999;
          if strtoint(StringGrid1.cells[j,i])>max then 
            max:=strtoint(StringGrid1.cells[j,i]);
        end;
    edit4.Text:=edit4.Text+' '+inttostr(max);
  end;

@Kinego · 03.05.2017, 19:54 **[ТС]**

ROS88, Если брать конкретно Ваш пример, то все 4 значения будут 999.

@ROS88 · 03.05.2017, 19:55

Сообщение от Kinego

Если брать конкретно Ваш пример, то все 4 значения будут 999

Извини: max := -999;

@Kinego · 03.05.2017, 20:04 **[ТС]**

ROS88, да я вот тоже пробовал менять это 999. Как и в случае с -999, почему выводятся последние элементы каждой строки. Доказательство прикрепил в картинке. Ну и выделил нужную информацию желтым цветом

@ROS88 · 03.05.2017, 20:11

Delphi
1
2
3
4
5
6
7
8
9
edit4.Clear;
for i:=0 to n do
  begin
  max := -999;
    for j:=0 to n do
      if strtoint(StringGrid1.cells[j,i])>max then
        max:=strtoint(StringGrid1.cells[j,i]);
    edit4.Text:=edit4.Text+' '+inttostr(max);
  end;

@D1973 · 04.05.2017, 13:53

А откуда взялось это сакральное число: -999? А если у меня как положительные, так и отрицательные 4-х, 5-ти и т.д - значные числа? Почему не сделать правильно:

Delphi
1
Max := Low(integer);

В случае поиска минимума:

Delphi
1
Min := High(integer);

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Kinego 0 / 0 / 0 Регистрация: 15.01.2016 Сообщений: 42
	03.05.2017, 19:54 [ТС]
	ROS88, Если брать конкретно Ваш пример, то все 4 значения будут 999. 0

@Kinego 0 / 0 / 0 Регистрация: 15.01.2016 Сообщений: 42
	03.05.2017, 20:04 [ТС]
	ROS88, да я вот тоже пробовал менять это 999. Как и в случае с -999, почему выводятся последние элементы каждой строки. Доказательство прикрепил в картинке. Ну и выделил нужную информацию желтым цветом Миниатюры 0

Максимальный элемент каждой строки Stringgrid

Решение