döngü kurma

[digital_agels]

merhaba benim aklımda hep döngülerde bitürlü kavrayamadım arkadaşlar, mesela ben butona basınca button bi visible true olucak bi false yada farklı rafklı showmessage versin bana tam açık bir şekilde anlatırsanız sevinirim

[aslangeri]

S.A.
bi true bi false yapmak için

Kod: Tümünü seç

button1.visible:=not button1.visible;

şeklinde bir kod işini görür.

farklı mesajlar içinse mesajlarını diziye sabitle (text dosyaındanda okuyabilirsin vs.) sonra dizinin sayısına göre random sayı üretip o sıradaki mesajı göster. veya döngü içerisinden sıra ile mesajları gösterebilirsin.

Koly gelsin.

[digital_agels]

sizede kolay gelsin askerde fakat bu kod işimi görmez bunu gibi bende birşeyler yaptım ama olmuyor buttonun birf visiblesi false bi true olucak bunun amacı yanıp sönen buton gibi olucak bu arada buttonada her tıkladığımda naısl farklı mesaj verdittirebilirim vede buttona tıklamadan otomatik nasıl yaptırabilriim amaç buttona ben tıkladığımda döngü hemen biter ben döngünün bitip tekrara başa dönüp devam etmeini istiyorum ilginiz içn teşekkürler, hayırlı bayramlar.

[csyasar]

Kod: Tümünü seç

Table1.first;
while table1.eof do begin
table1.edit;
table1Sayi.asinteger:=table1Sayi.asinteger+1;
table1.post;
end;

table 1 deki Sayi alanının değerini her row için 1 artırır.

benim bildiğim yukardaki yapıdaki kod parçacıklarına döngü deniliyor. başlıkta okuduğuma göre cevap yazdım ben.

[abdulkadir]

arkadas anlatmıs ama uygulamalı vereyim

forma 1 button ve 1 timer yerlestirin
private kısmına

Kod: Tümünü seç

  private
    i:integer;

Timer1Timer olayına

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  timer1.Interval := 10;
  i := i + 1;
  Form1.Caption := IntToStr(i);
end;

formun FormCreate olayına

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 0;
end;

ve buttonun Click olayına

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;
end;

burda ne olacak
siz buttona tıklayınca captionda sayılar 1234 vs olarak artmaya baslayacak buttona tekrar basınca duracak
sonraki tıklamalarda kaldıgı yerden devam edecek.

basarılar

[digital_agels]

teşekkürler