Anasayfa > Kodlar > Delphi ile Ascii kodlarını almak

Delphi ile Ascii kodlarını almak


1 edit 2 label ascii leri denemek içinde 1 memo kullanın label 1in visible özlln false yapın label 2 de yazılan rakamın ascii kodu görünür deneyin

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;


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: