Aynı Kayıtları İstenilen Sayı Kadar Girmek

[EdaNuR]

Arkadaşlar pradox tabloda 3 tane alanım var.. editlara bir kayıt yazdığım zaman bu kayıtların aynısını istenilen sayı kadar veritabanına göndermek istiyorum. yani bir nevi mükerrer yani aynı kayıt oluşturucam .. bunu istediğimiz sayı kadar veritabanına göndermek mümkünmü..mesela bu girdiğim kayıdı 50 tane aynısını yap diycem. teşekkürler.

[mussimsek]

Kod: Tümünü seç

var 
i : integer;
begin
  for i:=1 to 50 do
  begin
      Table1.Append;
      Table1.FiledByName('alan1').AsString := Edit1.Text;
       ...
      Table1.Post;  
  end;

Kolay gelsin.

[EdaNuR]

sayın Admin Teşekkürler.. Peki Girilecek sayıyı manuel elle belirleyebilirmiyiz.mesala for i:=1 to 50 do 50 ye kadar tek seçenek koşul belirtilmiş..bu mesela değişik sayılarda girilecek.bazen 100 olucak bazı sandıktada 200 bazısında 150 ne çıkarsa yani...teşekkürler

[mussimsek]

onu da bir Edit'e bağla, mesela EdtSayi yap ismini. Daha sonra 50 yazan yere buraya girilen sayıyı al.

for i:=0 to StrToInt(EdtSayi.Text) do
...

gibi.

Kolay gelsin.