Pencarian String Menggunakan Delphi

بسم الله الرحمن الرحيم
Alhamdulillah, segala puji bagi Allah yang memberi izin saya untuk kembali berbagi. Kali ini saya akan mengulas tentang pencarian string pada suatu string dengan delphi.

Tidak perlu berlama-lama, berikut langkah-langkahnya :
  1. Misal kita akan mencari kata "sehat" pada suatu string
  2. Logikanya, kita akan mencocokkan kata setiap karakter dari kata "sehat", yaitu s-e-h-a-t dengan string yang ada, misal disediakan string "Mari jaga tubuh agar sehat"
  3. Dari string yang ada, tentu kita akan mulai membandingkan kata yang awal karakternya huruf "s", karena awal karakter "sehat" adalah s
  4. Jika sudah ketemu huruf "s", kemudian bandingkan karakter selanjutnya hingga akhir karakter kata "sehat" dengan string yang telah ditemukan awal karakter adalah huruf "s"
  5. Jika semua perbandingan tiap-tiap karakter hasilnya sama hingga panjang dari kata "sehat", maka berhenti membandingkan
Berikut implementasi algoritma di atas dengan coding delphi
1. Tambahkan variabel sama : integer; 
2. Beri variabel pada procedure Button Click
3. Deklarasi variabel


4. Berikut Coding pencarian

5. Pada Form Create, deklarasikan variabel sama := 0;

6. Sudah selesai, berikut source code lengkap di sini
7. Agar lebih bagus, kata yang ditemukan diberi tanda. Cukup menambahkan kode berikut
    Memo1.SetFocus;
    Memo1.SelStart:=k;
    Memo1.SelLength := length(Edit1.Text);

Untuk lebih jelas, silikan unduh source code-nya di sini


Comments

  1. bang, klo kata yang dicari ketemu truz langsung diganti dengan kata baru, listing kodex gmna yaa??
    sama kaya fungsi replace di ms.word

    makasih sebelumnya.

    ReplyDelete
    Replies
    1. insya Allah mudah saja, anda tinggal tambahkan
      Memo1.SelText := 'teksbaru'
      terima kasih atas komentarnya

      Delete
  2. assalammualaikum
    selamat malam mas
    saya mau tanya ni

    bagaimana ya cara melakukan pemenggalan suku kata pada kalimat menggunakan delphi?

    misalnya saya buat kalimat:

    "aku makan bersama anggun dan syukur atas kenikmatannya"

    lalu akan menjadi

    a-ku ma-kan ber-sa-ma ang-gun dan syu-kur a-tas ke-nik-ma-tan-nya


    saya sudah mendeklarasikan variabelnya seperti ini:

    v:huruf vokal;
    k:konsonan smua

    vk: huruf yg trdiri dari 1 vokal dan 1 konsonan
    contoh : ba-ta, ba-si, su-ka , nah 'ta', si dan ka merupakan vk

    v: trdiri 1 huruf vokal dalam suku kata
    contoh : a-ku , a-yam, i-kan, u-dang , nah a dan u dsni v

    kvk : contoh ma-kan , nah 'kan' merupakan kvk
    dan seterusnya sampai

    kkkvk : contohnya struk-tur

    , mohon bantuannya

    terimakasih :)

    ReplyDelete

Post a Comment

Selamat berkunjung di blog saya, terima kasih.

Popular posts from this blog

Membuat Aplikasi Delphi Perhitungan Selisih Waktu