Delphi : Penggabungan String

Hmmm..Sekaarang Kita Belajar Program Penggabungan String;

Yang isinya ada :

• Concat;                      ===> Berfungsi Untuk Menggabungkan 2kalimat atau Lebih;
• Copy;                         ===> Berfugsi untuk Meng Copy beberapa Kalimat,Atau Karakter;
• Delete;                        ===> Berfungsi Untuk Mendelet Beberapa kalimat atau Karakter,
• Insert;                         ===> Berfungsi Untuk Menyisipkan Suatu kalimat/Karakter ke dalam Kalimat/Karakter
• Length;                       ===> Berfungsi Untuk Menghitung Jumlah Karakter yang di ingin kan Misalkan Indonesia Jumlah Karakter = 9;
• Lowercase;                ===> Berfungsi Untuk Merubah Karakter yang Besar/ Kapital , Menjadi Karakter yang Kecil.
• Uppercase;                ===> Berfungsi Untuk Merubah Karakter yang Kecil/Non Kapital , Menjadi Karakter yang Besar / Kapital.

Ok itu tdi Penjelasan nya... skarang kita beralih ke Coding nya....


Button Concat;

   procedure TForm1.Button1Click(Sender: TObject);
   begin
   edit1.text := CONCAT(label2.caption,' VS ',Label3.caption);
   end;


Button Copy;

   procedure TForm1.Button2Click(Sender: TObject);
   begin
   edit2.Text := COPY(label3.Caption,2,4);
   end;


Button Delete;

   procedure TForm1.Button3Click(Sender: TObject);
   Var
        s:string;
   begin
       s := Label4.Caption;
       DELETE(s,5,4);
       edit3.Text := s;
   end;


Button Insert;

    procedure TForm1.Button4Click(Sender: TObject);
    Var
        s1,s2 : string;

   begin
       s1 := label2.Caption;
       s2 := label5.Caption;
       insert (s1,s2,4);
       edit4.Text := s2;
   end;


Button Length;

   procedure TForm1.Button5Click(Sender: TObject);
   begin
       EDIT5.Text := IntToStr(length(label2.caption));
   end;


Button LowerCase;

   procedure TForm1.Button6Click(Sender: TObject);
   begin
      edit6.Text := LowerCase(label5.Caption);
   end;


Button UpperCase;

   procedure TForm1.Button7Click(Sender: TObject);
   begin
      edit7.Text := Uppercase(label2.Caption);
   end;
end.


Bagi Yang Kurang Jelas Silah kan Tanya Ok :D................heeeee

ost By: Agil

Tweet