Skip to main content

Posts

Showing posts with the label mambalikkan urutan string

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; ...