поиск

← →
Дарья (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;

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

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

Хм!

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