Delphi for delphier

Fungsi – Pos

Tingkatan Pemula
   
Kategori Dasar
   
Sub Kategori Prosedur / Fungsi
   
Judul Pembahasan mengenai fungsi Pos ( pencarian)
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi by Eko Indriyawan
   
Tujuan
Mengajarkan kepada programmer pemula tentang fungsi Pos.
  spasi
Overview
Fungsi Pos adalah fungsi yang digunakan untuk mencari sebuah string dalam suatu string. Karena ini adalah sebuah fungsi tentu saja pasti mengembalikan suatu nilai tertentu. Dan nilai kembalian dari fungsi ini adalah merupakan indek dari karakter pertama dari string yang dicari.
Fungsi ini sangat bermanfaat sekali untuk mencari karakter atau string dalam string.
Semoga dengan contoh dari pembahasan artikel ini bisa delphier kembangkan untuk memenuhi program aplikasi yang akan dibuat.
  spasi
  Struktur fungsi Pos :
  spasi
 
function Pos(const substr : string; const str: string): Integer;
   
 
Dari struktur fungsi Pos diatas terlihat bahwa konstanta substr adalah data string yang akan dicari dan konstanta stradalah data string yang dijadikan parameter untuk pencarian. Fungsi ini mengembalikan indek hasil pencarian.
Apabila data tidak diketemukan, maka akan diberikan nilai kembali 0 dan apabila diketemukan akan dikembalikan dengan nilai indek awal karakter dari string yang dicari.
   
  contoh 1 :
   
 
var
Data1: string;
Data2: string;
indekpencarian : integer;
begin
Data1 := ‘Aku sedang makan nasi’;
Data2 := ‘nasi‘;
indekpencarian := pos( Data2, Data1 );
{ jika kode program diatas dieksekusi, maka akan didapatkan kembalian indekpencarian dengan nilai 18 }
end;
   
  contoh 2 :
   
 
var
Data1: string;
Data2: string;
indekpencarian : integer;
begin
Data1 := ‘129237346.2387’;
Data2 := ‘.‘;
indekpencarian := pos( Data2, Data1 );
{ jika kode program diatas dieksekusi, maka akan didapatkan kembalian indekpencarian dengan nilai 10 }
end;
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
  spasi
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form
   
  Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Bevel1: TBevel;
Button1: TButton;
Button2: TButton;
  spasi
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
prosedur0003.jpg
   
Langkah 7
Silahkan anda klik 2x pada tombol Proses. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
  spasi
 
procedure TForm1.Button1Click(Sender: TObject);
var
Data1 : string;
Data2 : string;
indekpencarian : Integer;
begin
Data1 := Edit1.Text;
Data2 := Edit2.Text;
indekpencarian := Pos(Data2,Data1);
Edit3.Text := IntToStr(indekpencarian);
end;
  spasi
Langkah 8
Silahkan anda compile. Tekan tombol Ctrl + F9
   
 
Tunggu beberapa saat… ( Sedang di cek kode programnya )
 
Apabila tidak muncul pesan error, berarti program yang anda buat telah berhasil dan silahkan anda tekan tombol F9 untuk menjalankan program aplikasinya.
  spasi

Langkah 9

Silahkan anda tekan tombol Proses.
   
 
prosedur0004.jpg
   

Langkah 10

Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.

  spasi
Download
Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.
Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.
Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.
Atas perhatiannya, saya mengucapkan banyak terimakasih.
  spasi
Link terkait  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM

5 Komentar

  1. Fungsi pos digunakan untuk mengetahui posisi karakter pertama yang dicari, so untuk contoh diatas tidak pengaruh menulis dengan kata “nasi” atau “n” maka hasilnya akan sama. Betul begitu mas guru😀

    Komentar oleh Andi Eko — Januari 31, 2008 @ 11:23 am

  2. Bagus!!!

    Komentar oleh Fahmi — Januari 31, 2008 @ 11:23 am

  3. @Fahmi
    Fungsi pos digunakan untuk mengetahui posisi karakter pertama yang dicari, so untuk contoh diatas tidak pengaruh menulis dengan kata “nasi” atau “n” maka hasilnya akan sama. Betul begitu mas guru😀

    tidak sama sama sekali ato beda-beda sekali……..coba kalo di dalam kalimat ada kata “nakal” sebelum kata “nasi”……khan hasilnya beda man….

    Komentar oleh mas_kofa — Februari 1, 2008 @ 1:15 pm

  4. Sorry Maksud saya si @Andi Eko bukan @Fahmi

    Komentar oleh mas_kofa — Februari 1, 2008 @ 1:16 pm

  5. @mas_kofa🙂
    betul sekali mas kofa .. saya komentarnya asal saja hanya melihat dari tulisan mas guru sedangkan belum dicoba dan termyata setelah saya coba hasilnya beda🙂
    Ternyata memang yang diambil adalah variabel yang dicari pas persis🙂
    Ya minta maaf atas keasalan saya dalam berkomentar😀

    Komentar oleh Andi Eko — Februari 1, 2008 @ 5:02 pm


RSS feed for comments on this post.

Blog di WordPress.com.

%d blogger menyukai ini: