Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.04.2009, 18:08   #1
Ратмир
Пользователь
 
Регистрация: 01.04.2009
Сообщений: 14
Плохо Матрица в StringGrid

Помогите пожалуйста Удалить все столбцы в которых первый элемент больше последнего
Ратмир вне форума Ответить с цитированием
Старый 04.04.2009, 20:21   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j : integer;
begin
i:=StringGrid1.ColCount-1;
while i>=0 do
 begin
 if StrToInt(StringGrid1.Cells[i,0])>StrToInt(StringGrid1.Cells[i,StringGrid1.RowCount-1]) then
  begin
  for j:=i to StringGrid1.ColCount do
   StringGrid1.Cols[i] := StringGrid1.Cols[i+1];
  StringGrid1.ColCount := StringGrid1.ColCount - 1;
  end;
 dec(i);
 end;
end;
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Матрица BlonDino4Ka Паскаль, Turbo Pascal, PascalABC.NET 3 07.01.2009 00:04
Матрица с использованием StringGrid Artruman Общие вопросы Delphi 2 18.12.2008 21:21
Матрица 11111 Помощь студентам 3 31.10.2007 18:20
матрица евгения, Помощь студентам 3 04.06.2007 20:31