Membalikkan urutan karakter pada string dengan Lazarus

Saat anda membuat aplikasi, seringkali anda harus berhubungan dengan string. Lazarus telah menyediakan banyak sekali prosedur dan fungsi yang berhubungan dengan string. Tapi ada hal-hal tertentu seperti membalik urutan karakter pada string yang tidak disediakan prosedur atau fungsinya. Sekarang mari kita coba Membalikkan urutan karakter pada string dengan Lazarus.

Cara membalikkan urutan karakter dengan lazarus

Buat aplikasi baru dengan nama reversestring.
Selanjutnya mari kita buat fungsi baru untuk membalik urutan karakter dengan nama ReverseString. Kalau masih dalam tampilan visual (tampak Form1) tekan F12 untuk masuk ke source editor, Tulis sesudah type TForm1 = class(TForm) dan sebelum private.

type
  TForm1 = class(TForm)
     function ReverseString(s: string):string; //tulis disini fungsinya
  private

Kemudian tulis di bagian implementation kode berikut:

function TForm1.ReverseString(S: string):string;
var
   i : integer;
   s2 : string;
begin
   s2:='';
   for i:=1 to Length(s) do
   begin
     s2:=s[i] + s2;
   end;
   Result:=s2;
end;

Selanjutnya kembali lagi ke tampilan visual (Form1) dengan menekan F12. Tambahkan komponen berikut:
1 komponen button dan 2 komponen edit
Atur propertiesnya sebagai berikut:

Form1
  Caption isi dengan Reverse Strings

Button1
  Caption isi dengan Balik

Edit1
  Text kosongkan isinya

Edit2
  Text kosongkan isinya

Sehingga tampilan hasil akhir akan seperti gambar di bawah ini:

Selanjutnya dobel klik pada tombol balik untuk membuat prosedur yang berfungsi bila tombol Balik di klik maka akan membalik urutan karakter yang tertulis pada komponen Edit1 dan menuliskan hasilnya pada komponen Edit2. Setelah dobel klik ketik kode di bawah ini:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Trim(Edit1.Text) <> '' then
    Edit2.Text:=ReverseString(Edit1.Text);
end;

Setelah selesai, simpan semua dan beri nama programnya reversestring dan unitnya ureversestring, terus jalankan dengan menekan tombol F9. Hasil akhirnya akan tampak seperti gambar di bawah ini:

Semoga artikel Membalikkan urutan karakter pada string dengan Lazarus bermanfaat untuk anda, sampai jumpa lagi pada artikel seputar manipulasi teks lainnya. Happy coding :)

Sampai lupa, sourcecode lengkapnya seperti dibawah ini:

unit ureversestring;

{$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 ReverseString(s: string):string;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

function TForm1.ReverseString(S: string):string;
var
   i : integer;
   s2 : string;
begin
   s2:='';
   for i:=1 to Length(s) do
   begin
     s2:=s[i] + s2;
   end;
   Result:=s2;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Trim(Edit1.Text) <> '' then
    Edit2.Text:=ReverseString(Edit1.Text);
end;

end.