yerinde olsam component haline getirirdim kodlarla kafa karıştırmazdım You must log in or register to reply here. Forum Programlama Delphi Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> { "@context": "https://schema.org", "@type": "DiscussionForumPosting", "@id": "https:\/\/www.wardom.org\/threads\/iki-sayi-arasinda-tek-sayilari-ve-cift-bulma.270842\/", "headline": "iki sayı arasında tek sayıları ve çift bulma", "articleBody": "çift sayı ve tek sayıyı bulma aynı zamnda editlere karakter girilmiyor... \r\n\r\nunit Unit1;\r\n\r\ninterface\r\n\r\nuses\r\n Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r\n Dialogs, StdCtrls;\r\n\r\ntype\r\n TForm1 = class \r\n Edit1: TEdit;\r\n Edit2: TEdit;\r\n ListBox1: TListBox;\r\n ListBox2: TListBox;\r\n Button1: TButton;\r\n procedure Button1Click ;\r\n procedure Edit1KeyPrbeginess ;\r\n procedure Edit2KeyPress ;\r\n private\r\n \r\n public\r\n \r\n end;\r\n\r\nvar\r\n Form1: TForm1;\r\n\r\nimplementation\r\n\r\n \r\n\r\nprocedure TForm1. Button1Click ;\r\nvar\r\na, b, x, y:integer;\r\nbegin\r\nx:=strtoint(edit1. Text);\r\ny:=strtoint(edit2. Text);\r\nfor a:=x to y do\r\nbegin\r\nb:=a mod 2;\r\nif b=1 then listbox1. Items. Add(inttostr \r\nelse listbox2. Items. Add (inttostr ;\r\n\r\nend;\r\n\r\n\r\nend;\r\n\r\nprocedure TForm1. Edit1KeyPrbeginess ;\r\nbegin\r\n\r\n\r\nif not (key in ['0'..'9',

çift sayı ve tek sayıyı bulma aynı zamnda editlere karakter girilmiyor... Kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class Edit1: TEdit; Edit2: TEdit; ListBox1: TListBox; ListBox2: TListBox; Button1: TButton; procedure Button1Click ; procedure Edit1KeyPrbeginess ; procedure Edit2KeyPress ; private public end; var Form1: TForm1; implementation procedure TForm1. Button1Click ; var a, b, x, y:integer; begin x:=strtoint(edit1. Text); y:=strtoint(edit2. Text); for a:=x to y do begin b:=a mod 2; if b=1 then listbox1. Items. Add(inttostr else listbox2. Items. Add (inttostr ; end; end; procedure TForm1. Edit1KeyPrbeginess ; begin if not (key in ['0'..'9',