Tips Trik Delphi - Menghitung Indeks Huruf Abjad

Menghitung Index Huruf Abjad

Posted on August 19, 2010, Filed in: Tips Trik Delphi

Fungsi untuk memudahkan menghitung nilai ke-n dari huruf abjad. Misalkan (nilai ke-n dari huruf ‘c’ adalah 3) tanpa menghitung manual (pake jari atau dibayangkan).

Deklarasi fungsinya:

type
xChr = String[1]; //Tipe Char palsu
function IndexAbjad(val: xChr): Byte;
const
c: array[1..26] of xChr = ('a','b','c','d','e','f','g','h','i','j','k','l','m',
'n','o','p','q','r','s','t','u','v','w','x','y','z');
var
i: Byte;
begin
Result:= 0;
//Looping hingga karakter yang dicari sama dengan karakter pada array
for i:= 1 to High(c) do
begin
//Menggunakan lowercase agar => 'a' akan sama nilainya dengan 'A'
if Lowercase(val) = c[i] then Result:= i;
end;
end;

Contoh Implementasi :

ShowMessage(IntToStr(indexAbjad('h')));

Contoh #2:

procedure TForm1.Button1Click(Sender: TObject);
begin
Label2.Caption:= IntToStr(IndexAbjad(Edit1.Text));
end;

Belajar Delphi - Menghitung Index Huruf Abjad

Sample Output

Download
Source Code Delphi - Menghitung Index Huruf Abjad
File: hitung_id_huruf_abjad.zip
Hits: 193

Related content:

Rating: 0.0/5 (0 votes cast)

Rating: 0 (from 0 votes)

Previous post: String Disimpan ke File
Next post : Convert Graphic to File PNG

Menghitung Index Huruf Abjad

Fungsi untuk memudahkan menghitung nilai ke-n dari huruf abjad. Misalkan (nilai ke-n dari huruf ‘c’ adalah 3) tanpa menghitung manual (pake jari atau dibayangkan).

opx.bit