delphide kelime işlem - Türkiye'nin En Büyük Forumu Bence Seversin Tabi

23 July 2009, 11:28

Form1: TForm1;
Sayi : Real;
sonuc:integer;
x:array[0..5] of integer;
i:integer;
a:integer;
c:integer;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

randomize;
Sayi := Random(10);
label1.Caption := FloatToStr(Sayi);

randomize;
Sayi := Random(10);
label2.Caption := FloatToStr(Sayi);

randomize;
Sayi := Random(10);
label3.Caption := FloatToStr(Sayi);

randomize;
Sayi := Random(10);
label4.Caption := FloatToStr(Sayi);

randomize;
Sayi := Random(10);
label5.Caption := FloatToStr(Sayi);

x[0]:=25;
x[2]:=50;
x[1]:=40;
x[3]:=60;
x[4]:=75;
x[5]:=90;

randomize;
Sonuc:=RandomFrom(x);
label6.Caption:=IntToStr(sonuc);

repeat
randomize;
c:=random(700)+300;
label7.Caption:=inttostr(c);
until (c mod 5<>0);

randomize;
timer1.Enabled:=true;
edit1.Text:='30';

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

edit1.Text:=inttostr(strtoint(edit1.Text)-1);
if edit1.Text='0' then

begin
timer1.Enabled:=false;
ShowMessage('süreniz dolmuştur');
end

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=false;
end;

tşkler:by vezir