Z zhbruce Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-03 #1 现有DBMemo显示在编辑区的内容（还没有写入数据库，如编辑区的内容为：CCBBBAA）， 现在想知道在DBMemo的编辑区内是否有AA这个字。请问如何才能做到。 thank
D DBB Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-03 #2 StrPos(dbmemo.line(1).text,'aa')<>nil 就说明有aa
L linsb Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-03 #3 procedure TForm1.Button7Click(Sender: TObject); var i:integer; str:string; begin str:='AA'; for i:=0 to dbmemo1.lines.count-1 do if pos(str,dbmemo1.lines)>0 then showmessage('发现'+str); end;
procedure TForm1.Button7Click(Sender: TObject); var i:integer; str:string; begin str:='AA'; for i:=0 to dbmemo1.lines.count-1 do if pos(str,dbmemo1.lines)>0 then showmessage('发现'+str); end;
