Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.02.2010, 11:01
Sfera Sfera вне форума
Прохожий
 
Регистрация: 08.04.2009
Сообщения: 1
Репутация: 10
Стрелка Срочна нужна помощь

Всем привет! Народ подскажите как в Stringgrid в столбце можно найти максимальный элемент.
то есть есть Stringgrid например 3 на 3, заполнен числами... как сделать так чтоб в столбце числа, шли по убыванию... то есть от большего к меньшему.
просто проблема у меня такая, что я не могу понять как правильно обратиться к ячейке в Stringgrid, и как потом это вывести в этот же Stringgrid который у меня есть...
Ответить с цитированием
  #2  
Старый 19.02.2010, 11:33
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Цитата:
проблема у меня такая, что я не могу понять как правильно обратиться к ячейке в Stringgrid
Код:
StringGrid1.Cells[Col,Row]
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #3  
Старый 19.02.2010, 12:24
Аватар для NIch
NIch NIch вне форума
Продвинутый
 
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию

Цитата:
...как в Stringgrid в столбце можно найти максимальный элемент...как сделать так чтоб в столбце числа, шли по убыванию
StringGrid это обычный 2-мерный массив с размерами CollCount и RowCount
Чтобы найти максимальный элемент и сделать по убыванию нужно провести обычную сортировку пузырьком
Код:
 
var
 t : word;//временная переменная
begin
with StringGrid1 do
 for j:=0 to CollCount-2 do 
  for i:=0 to CollCount-j-2 do 
   if StrToInt(SG.Cells[i, 0]) < StrToInt(Cells[i+1, 0]) then
   begin
    t := StrToInt(SG.Cells[i, 0]);
    StrToInt(SG.Cells[i, 0]) := StrToInt(SG.Cells[i+1, 0]);
    StrToInt(SG.Cells[i+1, 0]) := t;
   end;
end;
PS Здесь сортируется первый столбец...
__________________
В начале был Бит, потом Байт и только потом появилось Слово...

Последний раз редактировалось NIch, 19.02.2010 в 12:28.
Ответить с цитированием
  #4  
Старый 20.02.2010, 12:37
zoidberg2009 zoidberg2009 вне форума
Прохожий
 
Регистрация: 20.02.2010
Сообщения: 1
Репутация: 9
По умолчанию Товарищи и просто Добрые Люди нужна помощь

Другу задали вопросы к курсовой, а он попросил меня поискать ответы в Паутине...Зашел на Ваш сайт и увидел, что в нем очень много Добрых Людей...Помогите пожалуйста

Задача 1. Программирование с использованием массивов
Изучить свойства и методы компонента TStringGrid и научиться использовать его для хранения табличных данных, научиться создавать приложения, обрабатывающие массивы.

Вот рисунок
http://www.filehoster.ru/files/eq3781

Задача 2. Программирование с использованием средств для отображения графической информации
Изучите возможности построения графиков с помощью компонента отображения графической информации класса TChart.

Вот рисунок
http://www.filehoster.ru/files/eq3784

Всем спасибо за внимание
Артем

Последний раз редактировалось zoidberg2009, 22.02.2010 в 15:58.
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:04.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025