Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

поиск

Дарья © (2006-04-11 16:34:00)
привет всем Мастерам!
я делаю поиск в 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,но чет не рапотает,помогите

Virgo_Style (2006-04-11 19:12:00) [1]
Дарья (11.04.06 18:41) [5]
with GenericStringGrid do
GenericStringGrid.Row:=i;

Хм!

Дарья (2006-04-11 18:41:00) [2]
ок,сделал как ты сказал,еще добавила на форму 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;

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

EvS (2006-04-11 18:04:00) [3]
for i:=GenericStringGrid.RowCount-1 downto GenericStringGrid.Row + 1(или до куда надо) do

Дарья (2006-04-11 17:43:00) [4]

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

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

Desdechado (2006-04-11 16:46:00) [5]
если по всей, то почему for i:=GenericStringGrid.Row+1

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

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

Anatoly Podgoretsky (2006-04-11 16:39:00) [6]
If pos(findDialog1.findtext,GenericStringGrid.Cells[j,i])<>0 then begin

Наверх

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