Şimdi Ara

karakter to ASCII Delphi de yardım

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir (1 Mobil) - 1 Masaüstü1 Mobil
5 sn
5
Cevap
0
Favori
589
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Öne Çıkar
0 oy
Sayfa: 1
Giriş
Mesaj
  • Arkadaşlar klavyeden girilen karakterlerin ascii kodunun veren bir prg yazacağım yardımcı olursanız sevinirim.


    Pchar haricinde nasıl yazılır?



    _____________________________
  • Yeni bir form oluştur.
    Bir tane tedit nesnesi ekle; adı edit1 olsun.
    Bu edit nesnesinin "events" sekmesindeki OnKeyDown
    satırını çift tıkla, editör sayfasındaki bölümü aşağıdaki gibi değiştir :

    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 
    Shift: TShiftState);
    begin
    caption := 'Sayısal='+IntToStr(key) + ' ' +
    '16lık (hex.) gösterim='+IntToHex(key, 2);
    end;

    Yukarıdaki basit örnek, edit1 nesnesine girdiğin hemen hemen tüm
    karakterlerin sayısal ve 16'lık (hex.) karşılığını formun üst bölümünde gösterir.
    (Ok tuşları, ENTER, geri-silme, harf ve sayılar...)
    Karakterleri girdikçe, bunların sayısal değerleri görüntülenir ancak bazı
    sistem düzeyindeki karakterler bu yordamı tetiklemediği için
    ele alınamaz (örn. TAB karakteri).
    _____________________________
    En korkunç düşman, unutulmuş olandır..




  • Teşşekkürler hocam yardımın için sağol

    Bir de buna girilen karakterlerin decimal olarak toplamayı nasıl yapabiliriz.

    A=65
    B=66
    toplam:=131 şeklinde
    _____________________________
  • Rica ederim; teşekkür edilecek birşey yok.
    OnKeyDown yordamına giren değişkenlerden biri "Key" ve word türünde;
    yani sayısal (işaretsiz).
    Global bir değişken tanımla örn. "TOPLAM : integer;" olsun,
    OnFormShow içinde bu değişkeni sıfırla, "TOPLAM := 0;".

    OnKeyDown yordamında
    :
    TOPLAM := TOPLAM + Key;

    eklersen, girilen karakterlerin sayısal değerlerini toplar.
    Yordamı tekrar yazarsak :
    (hex. gösterime ihtiyacın olmadığını düşünerek o bölümü açıklama satırı yaptım)

    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 
    Shift: TShiftState);
    begin
    TOPLAM := TOPLAM + Key;
    caption := 'Sayısal='+IntToStr(key) + ' ' +
    //'16lık (hex.) gösterim='+IntToHex(key, 2)+ ' '+
    'toplam=' + IntToStr(TOPLAM);
    end;
    _____________________________
    En korkunç düşman, unutulmuş olandır..




  • Ekteki dosyada

    dinamik dizilerle ilgili bir örnek var

    Fakat hata veriyor.Statik diziler ile çalıştı fakat dinamikte olmuyor acaba dinamikte tanımlamada mı bir hata var.

    Not:ekteki dosya .jpg aslında o bir rar dosya

    indirdikten sonra .rar yazarsanız prg a ulaşmış olursunuz.



    < Bu mesaj bu kişi tarafından değiştirildi SAT -- 25 Kasım 2006; 22:42:30 >
    _____________________________
  • Yapay Zeka’dan İlgili Konular
    Daha Fazla Göster
    
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.