Yeni Kayıt
Konudaki Resimler
|
|
_____________________________
|
Bildirim
karakter to ASCII Delphi de yardım
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Jouis Şemsiye Otomatik Katlanır 8 Telli aç-kapa otomatik-şemsiye çantalı, teflon kaplama, rüzgar geçirmez küçük hafif kompakt seyahat golf şemsiyesi
https://www.amazon.com.tr/dp/B0DLHM8J5D
7 gün önce paylaşıldı
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir (1 Mobil) - 1 Masaüstü, 
1 Mobil
1 Mobil
Giriş
Mesaj
-
-
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 >_____________________________
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
