Konversi Karakter ke Ascii (chr)

Fungsi ini digunakan untuk mengkonversi kode Acsii menjad huruf.
Bentuk Umum => Chr (Karakter)

Berikut contohnya :

Listing Codenya adalah :

procedure TForm1.BokClick(Sender: TObject);
var
angka : integer;

begin
angka := strtoint(Eangka.text);
Ehuruf.text:=chr(angka);
end;

procedure TForm1.BexitClick(Sender: TObject);
begin
close;
end;

end.








Simple bukan