VPF::Выборка данных в StringGrid и их отображение

Vovanich222

Дата 8.12.2009, 11:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.12.2009

Репутация: нет
Всего: нет

Имеется 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 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 3
Всего: 4

а что мешает в цикле пробежаться по всем колонкам и перекопировать строку по одной ячейке?

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

~FoX~

Дата 8.12.2009, 11:52 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Вообще то задача на 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 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.12.2009

Репутация: нет
Всего: нет

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

Akella

Дата 8.12.2009, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Да, здесь даже иногда готовые коды дают smile

, под настроение.

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »