Function Pencarian Pada Sebuah Himpunan Data Pemrograman Delphi

بسم الله الرحمن الرحيم

Pencarian adalah hal yang penting dalam pengelolaan data. Pada bahasa pemrograman, selalu disertakan fungsi pencarian denga algoritma masing masing pemrograman. Pada pemrograman delphi, fungsi pencarian yang bermacam-macam jenisnya. Ada yang digunakan hanya untuk database dan yang digunakan untuk  pencarian biasa yang dapat dipakai dalam database maupun hanya mencari suatu kata dalam teks atau array. Fungsi pencarian delphi yang diuji pada pengujian ini adalah function AnsiMatchStr. Pencarian AnsiMatchStr adalah pencarian suatu kata dalam sebuah array string, AnsiMatchStr dapat dipakai juga dalam pencarian dalam database. Contoh pencarian AnsiMatchStr adalah sebagai berikut :

uses StrUtils;

procedure TForm1.Button2Click(Sender: TObject);
var
  source : String;
begin
  source := 'Henry';   // The string to match
  // Note that AnsiMatchStr is case sensitive
  // We use a hard coded constant string array
  if AnsiMatchStr(source, ['BRIAN', 'JIM', 'HENRY'])
  then ShowMessage('First match was successful')
  else ShowMessage('First match was not successful');


  // Note that arrays start at 0
  if AnsiMatchStr(source, ['Brian', 'Jim', 'Henry'])
  then ShowMessage('Second match was successful')
  else ShowMessage('Second match was not successful');


  // Note that arrays start at 0
  if AnsiMatchStr(source, ['Brian', 'Jim', 'Henry Jim'])
  then ShowMessage('Third match was successful')
  else ShowMessage('Third match was not successful');


  // Note that arrays start at 0
  if AnsiMatchStr(source, ['Brian', 'Jim', 'henry'])
  then ShowMessage('Fourth match was successful')
  else ShowMessage('Fourth match was not successful');


  source := 'yudi';
  // Note that arrays start at 0
  if AnsiMatchStr(source, ['Brian', 'Jim', 'Wahyudi'])
  then ShowMessage('Fifth match was successful')
  else ShowMessage('Fifth match was not successful');

end;

 
Pada pencarian pertama (First) data "Henry" tidak ditemukan pada himpunan data ['BRIAN', 'JIM', 'HENRY']
Pada pencarian pertama (Second) data "Henry" ditemukan pada himpunan data ['Brian', 'Jim', 'Henry']
Pada pencarian pertama (Third) data "Henry" tidak ditemukan pada himpunan data ['Brian', 'Jim', 'Henry Jim']
Pada pencarian pertama (Fourth) data "Henry" tidak ditemukan pada himpunan data ['Brian', 'Jim', 'henry']
Pada pencarian pertama (Fifth) data "yudi" tidak ditemukan pada himpunan data ['Brian', 'Jim', 'Wahyudi']

Kesimpulan pengujian ini adalah, bahwa AnsiMatchStr pada delphi bersifat Case Sensitive dan dalam pencariannya, kata kunci harus sama dengan himpunana data seperti pada pengujian kelima (Fifth) kata kunci "yudi" tidak dapat ditemukan pada data ['Brian', 'Jim', 'Wahyudi'].
Semoga bermanfaat, kritik dan saran dari pengunjung sangat berharga bagi kami, Wassalaamu 'Alaikum Warahmatullaahi Wabarakaatuh

Comments

  1. Kalo pd datbase gmna codingnya? , array nya d ganti apa ?, mkasih,

    ReplyDelete
    Replies
    1. Terima kasih, untuk pencarian pada database, array tetap dipakai, tetapi menggunakan array dinamamis, sehingga lebar array dapat berubah sesuai banyaknya record pada tabel database,

      Delete

Post a Comment

Selamat berkunjung di blog saya, terima kasih.

Popular posts from this blog

Membuat File Resource (*.res)