Mau tanya nih: misal ada data : kalimat := 'satu dua tiga empat lima'; bagaimana bikin kondisinya pake IF Then bila di cari kata satu dan empat = 'Data di temukan' bila di cari kata satu dan delapan = "data tidak ditemukan" saya sudah buat begini tapi gak jadi. tblTmpMasuk.First; mTmp:= tblTmpMasuk.fieldbyname('pesan').asstring ; if (StrPos(pchar(mTmp), pchar(cari1)) AND StrPos(pchar(mTmp), pchar(cari2))) <> nil then begin ShowMessage( 'ditemukan else ShowMessage('Tidak ditemukan.. ');

coba dengan cara ini:

tblTmpMasuk.First;
mTmp:=tblTmpMasuk.fieldbyname('pesan').AsString;
if (Pos(mTmp,cari1)>0) AND (Pos(mTmp,cari2)>0) then 
  ShowMessage('ditemukan')
else
  ShowMessage('Tidak ditemukan..');

pakai iterasi aja.. tapi logikanya dibalik ;)

found := true;
for i := 0 to cari.count-1 do //cari : TStrings  isinya keyword apa saja yang ingin dicari (jumlah kata kunci pencarian nggak dibatasi)
   if pos(cari[i], mtmp) = 0 then begin
      found := false;
      break;
   end;

Coba cari di help delphi dengan topic

SelStart