Beranda > String dan bilangan > Mencari teks

Mencari teks

  1. Mengecek suatu teks dari sebuah kalimat.

Berikut ini sedikit kode yang bisa saya sumbangkan untuk mencari teks dalam sebuah kalimat atau sebuah paragraph tanpa menggunakan komponen FindDialog.

Pertama-tama buatlah applikasi baru, ukuran, font dan yang lainnya terserah anda yang jelas form itu harus terdiri dari sebuah komponen Edit, Button dan Memo. Kira-kira form yang dibuat akan seperti ini.

Gbr. Form saat design time

Setelah itu masukan kode dibawah ini.

implementation

{$R *.dfm}

function CekTeks(s,  teks : String ): Boolean ;

var

i, ia : Integer ;

begin

result:=false;

for i:=1 to length(teks) do

begin

for ia:=1 to  length(teks) do

begin

if (Uppercase(copy(teks, i, ia)))=Uppercase(s) then

begin

result:=true;

break;

end;

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

If Cekteks(Edit1.Text, Memo1.Text) then

ShowMessage(‘Kata “‘+edit1.Text+'” terdapat pada Memo1’) else

ShowMessage(‘Kata “‘+edit1.Text+'” tidak terdapat pada Memo1’);

end;

Pada program ini anda diminta untuk menuliskan kata pada komponen Edit1, kemudian apabila anda menekan button1 maka program kan mencari keberadaan teks Edit1 pada Memo1. Fungsi ini akan menghasilkan true apabila teks yang anda maksud ada pada Memo1 dan kebalikannya apabila tidak ada.

Teks yang anda input tidak terikat pada huruf besar atau kecil.

Gbr. Hasil pencarian kata nilai

  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: