Cara Merubah Awal Kata Menjadi Kapital pada LAzarus

Setelah sebelumnya kita mempelajari cara membalik urutan karakter pada string, sekarang kita coba membuat program mengubah huruf pada awal kata menjadi kapital. Pertama mari kita buat fungsi Capword seperti di bawah ini. Dengan fungsi ini anda dapat mengubah karakter pertama dari suatu kata menjadi huruf kapital. Fungsi Capword hanya mempunyai satu parameter, yaitu string yang akan diubah.

type
  { TForm1 }
  TForm1 = class(TForm)
    function CapWord(teks:string):string; //tulis disini kodenya
private

Selanjutnya pada bagian implementation tuliskan kode berikut:

//fungsi Capitalize each Word
function TForm1.CapWord(teks:string):string;
var
  i : integer;
  s : string;
begin
  s:=Uppercase(teks[1]);
  for i:=2 to length(teks) do
    if (teks[i-1] in [' ','?','!',',',':',';','.']) then s:=s+uppercase(teks[i]) else
      s:=s+lowercase(teks[i]);
  result:=s;
end;

Selanjutnya tambahkan 2 buah komponen Edit dan 1 buah komponen Button, rubah propertiesnya menjadi:

Form1
Caption: Capitalize Each Word

Edit1
Text kosongkan

Edit2
Text kosongkan

Button1
Caption: CapWord


Selanjutnya DOBLE KLIK pada komponen Button1, kemudian tulis kode berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text:=Capword(Edit1.Text);
end;

Setelah selesai semua simpan proyek program anda dengan nama capword dan unitnya dengan nama ucapword, terus tekan F9 untuk menjalankan, hasilnya kurang lebih seperti gambar di bawah ini:

Source code lengkapnya bisa anda cek di bawah ini:

unit ucapword;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    function CapWord(teks:string):string;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}
//fungsi Capitalize each Word
function TForm1.CapWord(teks:string):string;
var
  i : integer;
  s : string;
begin
  s:=Uppercase(teks[1]);
  for i:=2 to length(teks) do
    if (teks[i-1] in [' ','?','!',',',':',';','.']) then s:=s+uppercase(teks[i]) else
      s:=s+lowercase(teks[i]);
  result:=s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text:=Capword(Edit1.Text);
end;

end.

Sekian, tutorial tentang Cara Merubah Awal Kata Menjadi Kapital pada lazarus, sampai jumpa lagi pada artikel tutorial selanjutnya. terima kasih.