dbedit dbtext

[pazartesi1]

dbedit veya dbtext de içinden geçen değer diyelimki 1 ise şunu çalıştır
2 ise şunu calıstır 3 ise şunu calıştır

mesela table de 1 den 100 e kadar rakam var

ahmet bek 1
mehmet can 2
hasan has 3

şimdi dbedit veya dbtext te diyelimki o an için 3 var ve bizde içindeki rakam 3 ise sunu çalıştır ..........
acaba ¿

[assoft]

Kod: Tümünü seç

if dbedit1.text='3' then
//şunları yap
else
//bunları yap

[pazartesi1]

evet diyelimki içinden geçen rakam sayısı 5000 i buluyor ve 5000 i içinde ayrı komut yazılıcak

[mucar]

Tam olarak yapmak istediğin nedir? Onu açıklarsan daha anlaşılır olur. Parametrik bir şey ise döngüye sokulabilir.

[MicroChip]

@assoft merhaba

avatarın çok küçük değilmi?

Hatırlatma...

Mesajlarınızın yanındaki küçük resim. Bir seferde sadece bir resim gösterilebilir, genişliği 80 pixelden, yüksekliği 80 pixelden ve boyutu 6kB'tan büyük olamaz.

saygılar...

[assoft]

@assoft merhaba

avatarın çok küçük değilmi?

Hatırlatma...

Mesajlarınızın yanındaki küçük resim. Bir seferde sadece bir resim gösterilebilir, genişliği 80 pixelden, yüksekliği 80 pixelden ve boyutu 6kB'tan büyük olamaz.

saygılar...

Olması Gerektiği Gibi...

[pro_imaj]

evet diyelimki içinden geçen rakam sayısı 5000 i buluyor ve 5000 i içinde ayrı komut yazılıcak

Merhaba,

Yukarıda belirtildiği gibi döngü ile çok kolay yapılabilirsin tabiki her olasılık için neler yapılması gerekecek bunları yine yazmalısın sadece if bloğunu yazmaktan kurtulabilsin.

Not:500 tane olasılkla ne yapıyorsun merak ettim doğrusu.

[MicroChip]

Olması Gerektiği Gibi...

senin kocaman awatarından site görünmüyo neredeyse

[salvation]

şimdi dbedit veya dbtext te diyelimki o an için 3 var ve bizde içindeki rakam 3 ise sunu çalıştır ..........
acaba ¿

Bunu dedinmi koşullu ifadeler kullanmak zorunda kalırsın ki sanırım onu istemiyorsun, eğer istediğin şeyi biraz daha açarsan daha kolay yardım alabilirsin.

Yani assoft'un avatarının dışında kalan kısımdan ben okadarını görebildim

Bu arada "Mesajlarınızın yanındaki küçük resim. Bir seferde sadece bir resim gösterilebilir, genişliği 80 pixelden, yüksekliği 80 pixelden ve boyutu 6kB'tan büyük olamaz." Sanırım bu sadece upload edilen avatarlar için geçerli. Ve de bahsigeçen avatarın boyutu (http://members.lycos.co.uk/macsonfor/Po ... avatar.jpg) 220x300..

[ofenX]

Merhaba,
Aşağıdaki yolu bir deneyin boş bir forma standart sekmesinden bir adet actionlist bileşeni ekleyin. Sağ tıklayıp action list editore geçin
Oradan Sağ tıklayıp New action u seçin. Action1,action2,action3 diye üçtane ekleyin. Her birinin üzerine gelip Event tabında Onexecute u seçip yaptırmak istediğiniz işi tanımlayın. Ben sadece showmessage ile yazı yazdırmışım.

Kod: Tümünü seç

procedure TForm1.Action1Execute(Sender: TObject);
begin
        showmessage ('bu 1 dir. ');

end;

procedure TForm1.Action2Execute(Sender: TObject);
begin
      showmessage('bu 2  dir. ');
end;

procedure TForm1.Action3Execute(Sender: TObject);
begin
    showmessage('bu 3 dir . ');

end;

Daha sonra bir buton ekleyip koduna aşağıdakini yazın.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
deger :integer;
begin
                   deger:=1;

   actionlist1.Actions[deger-1].Execute;
        deger:=2;
actionlist1.Actions[deger-1].Execute;

        deger:=3;

 actionlist1.Actions[deger-1].Execute;

end;

Siz table dan getirdiğiniz rakamı deger değişkeninin yerine yazarsınız. İşinizi görmesi lazım. indexler 0 dan başladığı için deger den sonra -1 kullanmışım.

Kolay gelsin.

[assoft]

Olması Gerektiği Gibi...

senin kocaman awatarından site görünmüyo neredeyse

Bakınız sizinle burda tartışmak gibi bir niyetim yok neden avatarıma bu kadar kafa taktığınızı anlayamıyorum...,

Ne demek oluyor bu avatarınızdan forum görünmüyo sizde mause ve klavye yokmu kontrol etmesini bilmiyormusunuz...

Bu yazıda kimseyi küçük düşürmek gibi bir niyetim yok ama lütfen böyle ceviz kabuğunu doldurmayacak işlerle uğraşmayı bırakalım.

Ve artık bu başlığa yazmayacağım.