Поиск в StringGrid'е

[funny.weirdo]

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

Хотя судя по всему в 0 строке у вас заголовок. Тогда цикл лучше начинать не с 0, а с 1 для заполнения суммы сгруппированной по городам.

Да, дело было в этом, проглядел
Спасибо большое

procedure TForm1.Button2Click(Sender: TObject);
var city: array of String;
count: array of Integer;
f,i,j: Integer;
begin
 // Сначала надо посчитать суммы домов сгруппированные по именам городов
SetLength(city, 0);
SetLength(count, 0);
with StringGrid1 do
for i := 1 to RowCount-1 do
begin
f := low(city)- 1; // Поиск совпадения с именем города в массиве
for j := f+1 to high(city) do
if lowercase(Cells[1, i]) = city[j] then
begin f := j; // Совпадение найдено, изменяем флаг
inc(count[j], strtoint(Cells[3, i])); // Учет количества в соответствующем городе
break; // Конец поиска
end;
if f < low(city) then
begin // Флаг показывает, что совпадения не было, тогда добавляем новый город в массивы
f := Length(city);
SetLength(city, f + 1); // Расширяем массив имен
SetLength(count, f + 1); // Расширяем массив счетчиков
f := high(city);
city[f] := lowercase(Cells[1, i]); // Добавление имени города в массив
count[f] := strtoint(Cells[3, i]); // Добавление количества домов в массив
end;
end;
j := low(city);
f := count[j]; // Поиск минимального элемента в массиве
for i := j + 1 to high(city) do
if f > count[i] then
begin
j := i;
f := count[i];
end;
Edit4.Text := city[j]; // Наименование города
Edit5.Text := inttostr(count[j]); // Минимально количество домов
end;

[macomics]

Я не успел исправить предыдущий пост до того как вы это напечатали. Прочитайте его еще раз.

[mr.stranger]

Сообщение от funny.weirdo

А как найти город с минимальным числом домов? Пытаюсь писать и выходит откровенный бред

Прошу прощения, но зачем вам город?

Сообщение от funny.weirdo

Для кнопки реализовать поиск по таблице StringGrid1 [город][улица][число домов]
улиц с самым маленьким и самым большим числом домов в КАЖДОМ городе

Здесь вы пишете, что вам нужны улицы в каждом городе, а не города

[funny.weirdo]

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

Я не успел исправить предыдущий пост до того как вы это напечатали. Прочитайте его еще раз.

Увидел, спасибо

[macomics]

Тогда еще проще. Даже массив count не понадобится. Но я думаю используя этот пример он сможет найти min и max по таблице.
При нахождении нового города надо в StringGrid2 добавлять 2 строки с min и max. Тогда при нахождении улицы с меньшим числом домов можно обновить FixedRows + 2 * i строку, а при большем числе домов - FixedRows + 2 * i + 1 строку.

[funny.weirdo]

Сообщение от mr.stranger

Здесь вы пишете, что вам нужны улицы в каждом городе, а не города

0_о
Точно
Но, этот код - тоже задание, просто другое, так что все было не зря)
Правда эта проблема остается открытой

Сообщение от mr.stranger

нужны улицы в каждом городе, а не города

[mr.stranger]

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

min и max по таблице

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

[funny.weirdo]

mr.stranger, Да

[mr.stranger]

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

Даже массив count не понадобится.

Простите, но почему не понадобится, в здании же написано, что надо найти улицы с max и min количеством домов?

[mr.stranger]

Мне не совсем понятно, как в таком случае будет выглядеть код