Program Fungsi String Pada Delphi (LEFT,MID,RIGHT)

Saat Program ini Running kira2 seperti ini

Silahkan Desain Formnya seperti diatas
Setelah itu langsung ke coding,, nah ini syarat terpenting untuk bisa menggunakan fungsi tersebut
harus ada "StrUtils;"

saran saya sich coba letakkan pada gambar dibawah ini:

Nah Untuk Coding Pada Buttonnya (button Proses/Ulangi) :
Silahkan Copas aja setelah anda klik 2x button itu tentunya pada event OnClick:

if Button1.Caption='Proses' then begin
  if Length(Edit1.Text) <> 0 then begin
    // Fungsi Left untuk mencari jabatan
    Edit2.Text:=LeftStr(Edit1.Text,2);
 
    //Fungsi Untuk Mencari Bagian / Bidang seorang karyawan
    Edit3.Text:=MidStr(Edit1.Text,4,2);
 
    // Fungsi Right untuk mencari Nomor Urut Karyawan
    Edit4.Text:=RightStr(Edit1.Text,2);
 
    Button1.Caption:='Ulangi';
  end; //end if
end //end if button1
else if Button1.Caption='Ulangi' then begin
  bersihkan;
  Edit1.SetFocus;
 
  Button1.Caption:='Proses';
end; // end else if

Ok, sedikit saya ceritakan tentang coding diatas:
Sebenarnya coding fungsinya terletak pada
    // Fungsi Left untuk mencari jabatan
    Edit2.Text:=LeftStr(Edit1.Text,2);

    //Fungsi Untuk Mencari Bagian / Bidang seorang karyawan
    Edit3.Text:=MidStr(Edit1.Text,4,2);

    // Fungsi Right untuk mencari Nomor Urut Karyawan
    Edit4.Text:=RightStr(Edit1.Text,2);

Langsung saja saya jelaskan dari fungsi itu:
Ini sama seperti rumus pada MS.Excel:
MS.Excel : =Left(A1,2) , Maksutnya pada cell A1 diambil 2 karakter terkiri

Delphi :=  Edit2.Text:=LeftStr(Edit1.Text,2); , Maksudnya Tulis Pada Edit2 yg isinya 2 karakter terkiri pada Edit1.

MS.Excel:=Mid(A1,4,2) , Maksutnya pada cell A1 diambil 2 karakter dan dimulai pada karakter ke 4

Dlphi:= Edit3.Text:=MidStr(Edit1.Text,4,2); , Maksudnya Tulis Pada Edit3 yang isinya 2 karakter yang diambil dan dimulai pada karakter ke 4

Untuk Right hampir sama dgn left,, ingat aja arti indonya ya Left--> kiri, Right---> kanan, Mid---> tengah

 

sumber : http://djeansoftware.blogspot.com/2012/07/program-fungsi-string-pada-delphi.html