Kita akan membuat sebuah aplikasi yang akan mengubah file text sehingga isinya berubah menjadi Upper Case (semuanya dalam huruf kapital).
Programnya adalah sebagai berikut:
program Upper;
{$APPTYPE CONSOLE}
var c:char;
begin
while not EOF do
begin
read(c);
if(c>='a')and(c<='z')then c:=Char(ord(c)-32);
write(c);
end;
end.
Program tersebut akan membaca karakter demi karakter dari masukannya, kemudian jika karakter yang dibaca merupakan huruf biasa (a-z) maka karakter tersebut akan diubah menjadi huruf kapital. Nilai ordinal untuk huruf a adalah 97, sedangkan nilai ordinal untuk huruf A adalah 65. Jadi untuk merubah huruf biasa menjadi huruf kapital, caranya adalah dengan mengurangi nilai ordinalnya dengan 32 (97 – 65 = 32).
Perulangan dilakukan dengan while dengan ekpresi pembatasnya adalah not EOF (EOF = End Of File).
Untuk menggunakan program ini, caranya adalah seperti contoh berikut:C:\Source>Upper<input.txt>output.txt
Dimana input.txt adalah file text sumber dan output.txt adalah file yang telah diubah menjadi upper case.
Pipe
Pipe adalah cara untuk menjalankan program secara berurutan. Keluaran dari program pertama diberikan kepada program kedua sebagai masukkannya. Demikian seterusnya. Pipe menggunakan tanda garis vertikal (|) yang biasanya menjadi satu tombol dengan backslash (\).
Dengan pipe dan program Upper yang sudah kita buat, kita bisa melihat daftar file dalam upper case seperti contoh berikut:C:\Source>dir/b|Upper MS-DOS PROMPT.PIF COMMAND PROMPT.LNK OUTPUT.TXT UPPER.DPR HARILAHIR.DPR UPPER.DOF UPPER.CFG UPPER.EXE INPUT.TXT C:\Source>
Jika tanpa pipe dan Upper, tampilannya adalah seperti:
C:\Source>dir/b MS-DOS Prompt.pif Command Prompt.lnk output.txt Upper.dpr HariLahir.dpr Upper.dof Upper.cfg Upper.exe input.txt C:\Source>
Path
Penggunaan program Upper seperti pada contoh penggunaan pipe di atas hanya bisa digunakan dari direktori dimana program Upper tersebut ada. Anda tidak bisa menggunakannya seperti:
C:\>dir/b|Upper
Anda akan mendapatkan pesan kesalahan jika melakukannya. Hal ini terjadi karena program Upper berada pada direktori C:\Source>.
Agar program Upper bisa dipanggil dari direktori manapun, maka Anda bisa memberikan informasi keberadaan program Upper dengan mengisi variabel path. Contohnya adalah sebagai berikut:
C:\>set path="C:\Source"
Sekarang Anda bisa menggunakan Upper dari mana saja. Misalnya:
C:\>dir/b|Upper WINDOWS CONFIG.SYS MY DOCUMENTS AUTOEXEC.BAT CONFIG.BAK PROGRAM FILES AUTOEXEC.BAK SCANDISK.LOG DATACD COMPATID.TXT C:\>
Variabel path boleh diisi dengan informasi keberadaan file lebih dari satu. Setiap informasi dipisahkan menggunakan titik koma. Sebagai contoh:
C:\>set path=C:\WINDOWS;C:\DATACD
Kita juga bisa menambahkan informasi tambahan tanpa menghapus informasi yang sudah ada. Caranya adalah seperti contoh berikut:
C:\>set path=%path%;"C:\Source"
Secara umum, untuk mendapatkan nilai dari sebuah variabel di dalam console adalah dengan mengapit nama variabel tersebut dengan tanda %.