Sira sayilar

[Laz61]

Arkadaslar Merhaba

Yaptigim bir seyi tekrar yapmak istedim, denedim ama olmadi. Umarim yardimci olursunuz. Kodda oldugu gibi Edit1 sifirlandiktan sonra, tekrar sifirdan itibaren sira sayilarin saymasini istiyorum. ilk kaldigi yerden itibaren degil. Yani '5'ten sonra edit1 siflandiginda tekrar 123...vs

Hos ve Hosca kalin

procedure TForm1.Timer1Timer(Sender: TObject);
const i:integer=0;
begin
i:=i+1;
Edit1.Text:=inttostr(i);

If edit1.text='5' then
edit1.text:='0';
end;
end.

[conari]

Kod: Tümünü seç

If edit1.text='5' then
edit1.text:='0';

yerine
i:=0; vermelisiniz.

[Laz61]

Arkadaslar Merhaba

Meramimi anlatamadim galiba. Ben edit1'in icine yazdigim rakamdan itibaren (Editte sayilan rakam degil) saymasi lazim. Mesela 1 Yazdigimda 2,3,4,5vs. 3 Yazdigimda 4,5,6,7,8 vs. Edite yazdigim rakam devamli degismekte. 10 Yazdigimda 11,12,13 vs. Yani yazilan rakamdan bir sonrakisinden baslamali saymaya. Umarim anlasildi.

Selamlar

procedure TForm1.Timer1Timer(Sender: TObject);
const i:integer=0;
begin
i:=i+1;
Edit1.Text:=inttostr(i);

[oklawa]

i:=strtointdef(edit1.text,0);

o zaman prosedürü bu şekilde başlatın.
ilk değeri edit1 den alsın, eğer değer tamsayı değilse "0" atar..

[Laz61]

Merhaba arkadaslar

Yapmak istedigim bu prosedurun yaptigi seydi. Ilgilenen arkadaslarara tesekkür ederim.

Hosca kalin


procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.text:='5';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=inttostr(strtoint(Edit1.text)+1);
end;

end.