| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Borland Delphi [D7, WinME]

Sanya ©   (2004-11-27 10:00:00) 

Добрый день, скажите пожалуйста как найти текст в StringGrid который написан в TEdit.

---

KilkennyCat   (2004-11-27 11:27:00) [1]

а как насчет терминов "аналогия", "ассоциативное мышление" ?

---

Sanya   (2004-11-27 10:46:00) [2]

А вот ещё такой вопрос,  как найти текст в DBGrid который написан в TEdit, и чтобы остальной текст исчезал.
Please!

---

ssk   (2004-11-27 10:14:00) [3]

>KilkennyCat

можно и CompareText прикрутить конечно... ;-)

З.Ы. а мысли пусть витают...

---

KilkennyCat   (2004-11-27 10:13:00) [4]

> ssk ©   (27.11.04 10:11) [3]

:) мысли витают в воздухе

---

Sanya   (2004-11-27 10:13:00) [5]

Спасибо всем Большое!

---

KilkennyCat   (2004-11-27 10:12:00) [6]


> if StringGrid.Cells[i, j] = Edit.Text then
>        begin
>          // текст найден. делаем нужные действия...
>        end else StringGrid.Cells[i, j] := '';


---

ssk   (2004-11-27 10:11:00) [7]

      begin
        // текст найден. делаем нужные действия...
      end
        else
          StringGrid.Cells[i, j] = '';

---

Sanya   (2004-11-27 10:08:00) [8]

ssk
Спасибо большое!
А вот ещё такой вопрос можно ли сделать так чтобы весь остальной текст исчезал?

---

ssk   (2004-11-27 10:06:00) [9]

var
 i, j: integer;
begin
 for i := 0 to StringGrid.ColCount-1 do
   for j := 0 to StringGrid.RowCount-1 do
     if StringGrid.Cells[i, j] = Edit.Text then
       begin
         // текст найден. делаем нужные действия...
       end;
end;

---

Наверх