Kamis, 12 Agustus 2010

Fungsi String Delphi

Contoh program yang menggunakan beberapa fungsi string :

program fungsistring;

uses
Forms;

{$apptype console}

var a:char;
b:integer;
c,d,e,f:string;

begin

a:='a';
writeln('nomer ASCII dari karakter ',a,' adalah ',ord(a));
a:='A';
writeln('nomer ASCII dari karakter ',a,' adalah ',ord(a));
a:='c';
writeln('nomer ASCII dari karakter ',a,' adalah ',ord(a));
a:='D';
writeln('nomer ASCII dari karakter ',a,' adalah ',ord(a));

b:=97;
writeln('karakter ASCII ke ',b,' adalah ',chr(b));
b:=65;
writeln('karakter ASCII ke ',b,' adalah ',chr(b));
b:=1;
writeln('karakter ASCII ke ',b,' adalah ',chr(b));
b:=254;
writeln('karakter ASCII ke ',b,' adalah ',chr(b));

c:='saya';d:='kamu';e:='kita';
f:=concat(c,d,e);
writeln(c,' ',d,' ',e,' digabung dengan concat jadi ',f);

insert(d,c,2);
writeln(c);

delete(c,2,4);
writeln(c);

b:=length(c);
writeln('Variabel c yang isinya ',c,' panjangnya ',b,' karakter');

b:=pos('s',c);
writeln('Posisi huruf s pada variabel c yang isinya ',c,' adalah karakter ke ',b);
b:=pos('a',c);
writeln('Posisi huruf a pada variabel c yang isinya ',c,' adalah karakter ke ',b);

f:=copy(c,2,3);
writeln(f);
f:=copy(e,3,2);
writeln(f);

readln;
end.

Hasil program di atas :

Fungsi-fungsi yang digunakan di atas adalah :

  • ord : menampilkan nilai ASCII dari suatu karakter
  • chr : menampilkan karakter ASCII dari suatu bilangan
  • concat : menggabungkan nilai-nilai teks variabel atau karakter-karakter
  • insert : menyisipkan suatu teks pada teks lainnya, bentuk umumnya insert(a,b,n) a adalah teks yang disisipkan, b adalah teks tempat penyisipan dan n adalah posisi mulai penyisipan
  • delete : menghapus karakter dari suatu teks, bentuk umumnya delete(a,x,y) a adalah teks yang akan dihapus, x adalah posisi awal mulai penghapusan dan y adalah banyak karakter yang dihapus
  • length : menghitung banyak karakter pada suatu teks
  • pos : menampilkan posisi suatu karakter pada teks, bila ada karakter yang sama yang dihitung adalah karakter yang paling kiri
  • copy : mengambil teks atau beberapa karakter dari suatu teks utama, bentuk umumnya copy(a,x,y) a adalah teks yang akan diambil, x adalah posisi awal mulai pengambilan dan y adalah banyak karakter yang diambil


Dari beberapa fungsi di atas, hanya fungsi insert dan delete yang hasilnya tidak dapat ditampung pada variabel penampung, karena langsung mempengaruhi nilai variabel atau teks yang digunakan pada fungsi tersebut


Tidak ada komentar:

Poskan Komentar