ç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(TForm) Edit1: TEdit; Edit2: TEdit; ListBox1: TListBox; ListBox2: TListBox; Button1: TButton; procedure Button1Click(Sender: TObject); procedure Edit1KeyPrbeginess(Sender: TObject; var Key: Char); procedure Edit2KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); 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(a)) else listbox2.Items.Add (inttostr(a)); end; end; procedure TForm1.Edit1KeyPrbeginess(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8]) then begin Key:=#0; //girilen karakter rakam veya backspace değilse null(#0)'a dönüştür Beep; //bip sesi ile kullanıcıyı uyar. end; end; procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8]) then begin Key:=#0; //girilen karakter rakam veya backspace değilse null(#0)'a dönüştür Beep; //bip sesi ile kullanıcıyı uyar. end else showmessage('karakter giremezsiniz '); end; end.