Скачать: CL | DM;

поиск   Найти похожие ветки 

← →
Дарья   (2006-04-11 16:34) [0]

привет всем Мастерам!
я делаю поиск в stringgrid вот код:
var
j,i:integer;
begin
for j:=0 to GenericStringGrid.ColCount-1 do
for i:=GenericStringGrid.Row+1 to GenericStringGrid.RowCount - 1 do
If pos(findDialog1.findtext,GenericStringGrid.Cells[j,i])<>0 then
GenericStringGrid.Row:=i;
GenericStringGrid.Col:=j;

мне нужно чтобы искало по всему stringgrid,но чет не рапотает,помогите

---

← →
Anatoly Podgoretsky ©   (2006-04-11 16:39) [1]

If pos(findDialog1.findtext,GenericStringGrid.Cells[j,i])<>0 then begin

---

← →
Desdechado ©   (2006-04-11 16:46) [2]

если по всей, то почему for i:=GenericStringGrid.Row+1

GenericStringGrid.Row:=i;
GenericStringGrid.Col:=j;

begin-end не учили в школе?

---

← →
Дарья   (2006-04-11 17:43) [3]

> If pos(findDialog1.findtext,GenericStringGrid.Cells[j,i])<>0
> then begin


Спасибо,заработало,только вот теперь проблема в том что все находит вниз,а если нажать "вверх" то обратн овверх поиск не выполняеться, как быть?спасибо

---

← →
EvS ©   (2006-04-11 18:04) [4]

for i:=GenericStringGrid.RowCount-1  downto GenericStringGrid.Row + 1(или до куда надо) do

---

← →
Дарья   (2006-04-11 18:41) [5]

ок,сделал как ты сказал,еще добавила на форму checkbox1(для теста самой функции поиска):
var
j,i,t:integer;
begin
for j:=0 to GenericStringGrid.ColCount-1 do
if checkbox1.Checked=true then
for i:=GenericStringGrid.Row+1 to GenericStringGrid.RowCount - 1 do
 If pos(FindDialog1.FindText,GenericStringGrid.Cells[j,i])<>0 then
 begin
with GenericStringGrid do
GenericStringGrid.Row:=i;
GenericStringGrid.Col:=j;
break;
end
else
for t:=GenericStringGrid.RowCount-1  downto GenericStringGrid.Row + 1 do
If pos(FindDialog1.FindText,GenericStringGrid.Cells[j,t])<>0 then
 begin
with GenericStringGrid do
GenericStringGrid.Row:=t;
GenericStringGrid.Col:=j;
break;
 end;

и почему то не рапотает,помоги

---

← →
Virgo_Style ©   (2006-04-11 19:12) [6]

Дарья   (11.04.06 18:41) [5]
with GenericStringGrid do
GenericStringGrid.Row:=i;

Хм!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c