Forma 3 adet Edit nesnesi, 1 adet Combobox ve 1 adet Buton koydum, tasarımım aşağıdaki gibi;
1-Bu işlemi yapmak istediğimde editlere değer girmeye fırsat bulamadan döngü tamamlanıyor.
2- Ayrıca aşağıdaki işlemleri döngü içinde dinamik dizi (Sayac ve Eleman_Sayaci başka bir işlemde değişecek) ile çözmem mümkün mü?
3- For döngüsü olması da şart değil, başka yollada olabilir. Önemli olan döngü içindeyken Edit1, Edit2,Edit3 e değer girmek ve Combobox1
den seçim yapıp bunlari değişkenlere atamak.
Konu ile ilgili yardım ve önerilerinizi paylaşırsanız sevinirim. İyi günler hepimizin olsun.
Kod: Tümünü seç
Procedure Button1.click(Sender: TObject);
var I,K:Integer;
BEGIN
for I := 1 to Sayac do
Begin
Tablo_Adi:=Edit1.text;
KeyAdi:=Edit2.text;
For K:=1 To Elaman_Sayaci do
Begin
Deneme:=Combobox1.text;
Degerlendirme:=Edit3.text;
(Veri tabanına kayıt bloğu)
End;
End;
END;