ASCII Kodlarını Bulmak
| ||||
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=”;
memo1.Text:=”;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
label1.Caption:=edit1.Text+’ harfinin ascii kodu: ‘;
label1.Visible:=true;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
label2.Caption:=inttostr(ord(key));
end;
Benzer Yazılar:
- Bilgisayardaki Sürücü Listesini Almak
- Ekran Klavyesi
- Tüm Dosya ve Klasörlerin Listesini Almak
- Delphi ile Mp3 dosya çalmak çaldırmak
- Dosya Kopyalama
- Ücretsiz Süper Yazılımlar
- Aglaya Aglaya Video Klip izle Neslihan Demirtas
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Loading ...