Başlangıç > Kodlar > Delphi ile iki sayı arasında tek ve çift bulmak

Delphi ile iki sayı arasında tek ve çift bulmak

çift sayı ve tek sayıyı bulma aynı zamnda editlere karakter girilmiyor...

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.


TD Software


Reklamlar
  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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: