поиск в базе данных Delphi 7

[phasha]

ого)спасибо! будем ковырять!

[phasha]

ого,спасибо!будем ковырять!))

[phasha]

procedure TForm1.btn3Click(Sender: TObject);
var str,str2,str3:string; int,i,n:Integer;
begin

n:=0;
if rb1.Checked  then  int:=0 else
if rb2.Checked  then int:=1 else Exit;
str:=edit2.Text;
str2:='';
str3:='';
    tbl1.First;
while not Tbl1.EOF do begin

n:=Length(Tbl1.Fields[int].AsString);
 for i:=1 to  n do begin
   str2:=str2+Tbl1.Fields[int].AsString[i];
   str3:=str[i];
   if (str=str2) or (str3=str2) then   begin
    ShowMessage(tbl1.fieldbyname('NFIO').AsString+#13
    +tbl1.fieldbyname('NSTSTUS').AsString+': '
    +Tbl1.FieldByName('NPHONE').AsString);

                end;
     end;                    if not chk1.Checked then Break;


 Tbl1.Next;
 str2:='';
end;
end;

все же я сделал по своему))