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