Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Выборка данных в StringGrid и их отображение


Автор: Vovanich222 8.12.2009, 11:28
Имеется StringGrid с 8-ю колонками(Организация,Оказанные услуги и тд) и N-строк.
Проблема. Как мне организовать следующее:
  1)Сделать выборку строк(полностью Row, не Cell) из StringGrid_1 по введенной в Edit строке
  2)Отобразить найденные строки в StringGrid_2

Что-то вроде:

Код

Procedure Viborka(StrGrd1, StrGrd2 : TStringGrid; TargetColumn : integer);
var
    Row : integer;
begin
    for Row:=0 to StrGrd1.RowCount - 1 do
    begin  
        If StrGrd1.Cells[Row,TargetColumn] = Edit.Text then
        begin
            StrGrd2.AddRow[StrGr1.Row];
        end; 
    end;
end;




M
THandle		Модератор: используйте подсветку кода!

Автор: amsoft 8.12.2009, 11:50
а что мешает в цикле пробежаться по всем колонкам и перекопировать строку по одной ячейке?

Автор: ~FoX~ 8.12.2009, 11:52
Вообще то задача на BD+SQL, но если очень надо то примерно так
Код

procedure Viborka(StrGrd1, StrGrd2 : TStringGrid; TargetColumn : integer);
var
  Row, col : integer;

begin
    for Row:=0 to StrGrd1.RowCount - 1 do
    begin
        If StrGrd1.Cells[Row,TargetColumn] = Edit.Text then begin
            StrGrd2.RowCount := StrGrd2.RowCount+1;
            for col := 0 to StrGrd2.ColCount - 1 do
               StrGrd2.Cells[StrGrd2.RowCount-1, col] := StrGrd1.Cells[Row, Col];

        end;
    end;
end;

Автор: Akella 8.12.2009, 12:45
Цитата(amsoft @  8.12.2009,  11:50 Найти цитируемый пост)
а что мешает в цикле пробежаться по всем колонкам и перекопировать строку по одной ячейке? 


Цитата(Vovanich222 @  8.12.2009,  11:28 Найти цитируемый пост)
Сделать выборку


Цитата(Vovanich222 @  8.12.2009,  11:28 Найти цитируемый пост)
по введенной в Edit строке

используя условие smile

Автор: Vovanich222 8.12.2009, 12:47
Огромное спасибо вам всем за оказанную помощь!!! Даже не думал что так быстро откликнутся на просьбу. Очень приятно! 
PS : Хороший сайт и пользователи.

Автор: Akella 8.12.2009, 13:11
Да, здесь даже иногда готовые коды дают  smile , под настроение.

Всегда рады. Если атмосфера форума понравилась, оставайтесь smile 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)