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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.02.2008, 21:24
Аватар для ya_
ya_ ya_ вне форума
Прохожий
 
Регистрация: 28.02.2008
Сообщения: 2
Репутация: 10
По умолчанию StringGrid: проверка на заполненность

задача в том, чтобы удалить все пустые строки (наличие отдельных пустых ячеек исключено, пустой может быть только вся строка), т.е. сместить строки так, чтобы таблица была заполнена. свой код выкладывать не буду, хотелось бы узнать, как это видите вы. заранее спасибо.
Ответить с цитированием
  #2  
Старый 29.02.2008, 11:15
Phedor Phedor вне форума
Начинающий
 
Регистрация: 28.02.2008
Сообщения: 118
Репутация: 21
По умолчанию

Именно StringGrid? ну так при заполнении проверяй и если пусто, то не добавляй в grid.
Ответить с цитированием
  #3  
Старый 29.02.2008, 12:39
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var i, j: Integer;
begin
  i:= 0;
  while i <= StringGrid1.RowCount - 1 do
  begin
    if Trim(StringGrid1.Rows[i].Text) = '' then
    begin
      for j:= i to StringGrid1.RowCount - 1 do
        StringGrid1.Rows[j]:= StringGrid1.Rows[j+1];
      StringGrid1.RowCount:= StringGrid1.RowCount - 1;
    end
    else
      Inc(i);
  end;
end;
Точно, когда переходил от for к while, забыл, что границы включаются (или i<RowCount)

Последний раз редактировалось AlexSku, 29.02.2008 в 16:58.
Ответить с цитированием
  #4  
Старый 29.02.2008, 16:32
Аватар для ya_
ya_ ya_ вне форума
Прохожий
 
Регистрация: 28.02.2008
Сообщения: 2
Репутация: 10
По умолчанию

О.о спасибо большое... он ругался правда на последнюю пустую строку, но знак равно вот тут
Цитата:
Сообщение от AlexSku
Код:
  while i < StringGrid1.RowCount - 1 do
все поставил на свои места...!! спасибо отдельное за оперативность
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter