Yang Tidak Bisa Dilakukan Turbo Pascal #3


by simba in 17 days ago 449

#3: TEKS PANJANG (LONG STRING)

Sudah jadi pengetahuan umum bahwa tipe data teks (string) di Turbo Pascal itu tidak bisa lebih dari 255 karakter. Batasan sependek itu tentu sangat tidak masuk akal di jaman komputasi modern seperti sekarang. Twitter saja memberi ruang cuitan sepanjang 280 karakter, masa' teks di aplikasi komputer hanya boleh 255 karakter? Itu sama konyolnya dengan batasan nama berkas komputer hanya boleh 8.3 karakter saja. Kids zaman now tentu tidak paham kan?
Bahasa Pascal modern tentu saja sudah tidak memiliki batasan seperti itu. Setidaknya ada 2 tipe data teks di Pascal modern, yaitu ANSI string dan Unicode string. Keduanya sama-sama tidak memiliki batas panjang maksimal, kecuali batasan memori komputer yg tersedia. Free Pascal dan Delphi tentu sudah mendukung fitur ini. Dengan catatan, di Free Pascal fitur teks panjang harus diaktifkan dengan penanda {$H+} atau {$LONGSTRINGS ON} di awal kode program (atau -Sh di baris perintah), dengan alasan kompatibilitas. Di Delphi terbaru sudah otomatis diatur ke teks panjang. Selain hilangnya batasan 255 karakter, pengolahan teks di Pascal modern juga sudah jauh lebih mudah daripada di Turbo Pascal. Misalnya untuk membaca data dari berkas teks. Lupakan saja perintah-perintah jadul seperti reset atau rewrite dkk. Pascal modern menyediakan class TStringList dengan banyak kemudahan untuk olah data teks dan berkas teks. Misalnya, untuk membuka berkas teks, cukup panggil perintah loadFromFile(), beres. Untuk mengolah isi teksnya, tinggal akses baris demi baris layaknya sebuah deret (array). Demikian juga untuk menyimpan berkas teks, cukup panggil perintah saveToFile(), beres. Berikut adalah contoh kode program yg menunjukkan kemudahan pengolahan teks panjang dan berkas teks dengan Free Pascal. Contoh program tersebut membutuhkan sebuah berkas teks bernama \'lorem.txt\' yg panjang teks di sebagian barisnya lebih dari 255 karakter. Berkas teks tersebut bisa diunduh di pastebin berikut. Selamat mencoba dan "Say NO to Turbo Pascal!" ???? Sumber: tulisan Pak Lebah di facebook group Pascal Indonesia
note: Tulisan berseri tentang apa yang tidak bisa dilakukan Turbo Pascal: - Seri 1 - Seri 2 - Seri 4
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com