Asmaul Husna

Asmaul Husna

Pesan

Kebahagian itu karena adanya cinta,maka jika tanpa cinta kebahagiaan akan sirna,jika kebahagian sirna akan tampaklah kegalauan hati, karena hati pengendali raga, maka jikalau sakit hati, sakitlah semua, oleh karenanya perolehlah cinta, kemanakah mencari cinta,tak perlulah mencarinya,karena cinta ada di manapun kita berada, bukanlah kiranya mencari,tetapi perkenankanlah mendekatinya, mendekat kepada penguasa cinta,pemilik alam semesta & tentulah sang Maha Agung yg bersifat tak seperti makhluk-Nya ...

Pages - Menu

Thursday, October 11, 2012

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

2 komentar:

  • ^.~ says:
    Tuesday, 08 April, 2014

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

  • Wahyudi Ariannor says:
    Saturday, 12 April, 2014

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

Post a Comment

Selamat berkunjung di blog saya, terima kasih.

Labels