Membalik String dengan AnsiReverseString

Sejak awal mempelajari pemrograman, saya merasa bahwa banyak perintah Delphi yang terlihat remeh, namun di kemudian hari, justru perintah-perintah remeh ini yang sering membantu saya menyelesaikan pemrograman.

Salah satu perintahnya adalah AnsiReverseString. Fungsinya adalah membalik urutan string, sehingga terbaca dari belakang. Perintah ini saya katakan remeh karena dapat dibuat dengan mudah. Seperti berikut:

program Project1; {$APPTYPE CONSOLE} uses SysUtils; var Nama, balik : String; i : integer; begin try Nama := 'Yohanes Octa'; balik := EmptyStr; for i := length(nama) downto 1 do begin balik := balik + copy(nama,i,1); end; writeln(balik); readln; except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; end.

Namun kenapa harus ada AnsiReverseString? Ya, nggak pa pa, kebetulan, kita bisa berhemat kode program.

AnsiReverseString ada di unit StrUtils, sehingga jangan lupa menuliskannya pada bagian unit. Sekarag saya akan membuat kode program diatas lebih singkat dengan perintah AnsiReverseString;

program Project1; {$APPTYPE CONSOLE} uses SysUtils, strUtils; var Nama, balik : String; i : integer; begin try Nama := 'Yohanes Octa'; balik := EmptyStr; for i := length(nama) downto 1 do begin balik := balik + copy(nama,i,1); end; writeln('Membalik string manual'); writeln(''); writeln(balik); writeln(''); writeln('Dibawah ini membalik string dengan AnsiReverseString'); writeln(''); writeln(AnsiReverseString(Nama)); readln; except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; end.

Membalik String dengan AnsiReverseString 2018-12-06T11:10:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer