Поиск по DBF

← →
KillaTank © (2009-03-09 14:59) [0]

У меня проблема создал программу для работы с БДФ, все работает кроме поиска, может кто поможет найти ошибку? Вот исходник кода: procedure TForm1.Button2Click(Sender: TObject); var rtext,rpole:string; begin Rtext:=Edit2.Text; Rpole:=Table1.Fields[ComboBox2.ItemIndex].FieldName; Dbgrid1.visible:=False; Isk(Table1,Rtext, Rpole); Dbgrid1.visible:=True; end;

← →
Palladin © (2009-03-09 15:01) [1]

ошибка в 7 строке, это очевидно

← →
KillaTank © (2009-03-09 15:09) [2]

глупый вопрос, что именно?

← →
KillaTank © (2009-03-09 15:10) [3]

и как ее исправить?

← →
Palladin © (2009-03-09 15:12) [4]

Ну я даже не знаю, что тебе ответить. Такая жалость проснулась, к тебе и подобным...

← →
Сергей М. © (2009-03-09 15:13) [5]

> что именно?

Сам-то как думаешь ?

← →
KillaTank © (2009-03-09 15:16) [6]

> > что именно?
>
>
> Сам-то как думаешь ?

Если бы я знал в чем ошибка я так и писал. Не могу никак понять((

← →
KillaTank © (2009-03-09 15:20) [7]

Вообще он запускается. Но когда ввожу в поле данные для поиска пишет, что не найденно тото и предалгает начать поиск с начала. Потом если соглашаюсь, пишет что не найденно.

← →
Плохиш © (2009-03-09 15:23) [8]

> KillaTank © (09.03.09 15:20) [7]

Попробуй обратиться к автору этого произведения.

← →
Плохиш © (2009-03-09 15:23) [9]

> KillaTank © (09.03.09 15:20) [7]

Попробуй обратиться к автору этого произведения.

← →
Сергей М. © (2009-03-09 15:24) [10]

> Не могу никак понять

Надо переписать процедуру Isk.

← →
KillaTank © (2009-03-09 15:27) [11]

спс большое

← →
KillaTank © (2009-03-09 15:35) [12]

Вот сама функция
function Isk( oTable: TTable;var Istr:String; var Pstr:String): Integer; var RRecno: TBookmark; Napr: Integer; label ZYes,ZNo,ZNo2,Nach; begin ////SetWindowsHookEx() Napr:=0; Result := 0; Form1.MyEsc:=False; RRecno:=oTable.GetBookmark; oTable.Next; Nach: while not oTable.Eof do begin Result :=AnsiPos(Istr,oTable.FieldByName(Pstr).AsString); // MyBrowse.SetFocus; if Form1.MyEsc then goto ZNo; if Result >0 then goto ZYes; Application.ProcessMessages(); oTable.next; If (Rrecno = TBookmark(oTable.Recno)) then goto Zno; end; ZNo: oTable.GotoBookmark(Rrecno); // ShowMessage("Не найдено " + Istr); if (Napr = 0) and (MessageDlg("Не найдено " + Istr+". Продолжить поиск с начала ?", mtConfirmation, [mbYes, mbNo], 0) = mrYes) then begin Napr:=1; oTable.First; goto Nach; end else showmessage("Не найдено " + Istr); goto ZNo2; ZYes: oTable.CursorPosChanged; MessageBeep(MB_OK); Napr:=0; ZNo2: Form1.MyEsc:=False; oTable.FreeBookmark(Rrecno); end;

Сейчас народ вздрогнет!!!

Удалено модератором
Примечание: Перепиши на немецком, ибо http://www.delphimaster.ru/forums.shtml#rule Запрещается: п.8

Господи милостивый, отец всемогущий, спаси и сохрани

> If (Rrecno = TBookmark(oTable.Recno))

Это что за безобразие ?

У меня такое ощущение, что изначально это писАлось на ассемблере )

> [14] AndreyV © (09.03.09 17:49)

> [12] KillaTank © (09.03.09 15:35)
> goto Nach;

Ja, ja, sehr gut gesprochen! (Да, да, очень хорошо сказано!).
Второе слово в цитате на немецком по смыслу и фонетически для русского слуха воспринимается символично в сочетании с первым на английском.

Собственно к тому, что весь код (не автор) воспринимается примерно так же.

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