bir döngü hakkında sorum var

[macsonfor]

Örneğin kodda alanların değerlerini belirtelim.


table1.insert;
table1.edit;
dbgrid.columns.grid.fileds[0].text:='XXXX';
dbgrid.columns.grid.fileds[2].text:='XXXX';
dbgrid.columns.grid.fileds[3].text:='XXXX';
dbgrid.columns.grid.fileds[4].text:='XXXX';
dbgrid.columns.grid.fileds[5].text:='XXXX';

Yanlız ekle dediğim zaman tek bir kayıt ekleyecek.
Ben ekle dediğim zaman edit bileşeni yardımıyla belirttiğim sayıda kayıt ekleyecek bir koda ihtiyacım var....

yardımlarınız için teşekkürler

[ScRiPTeR]

var
a,i:integer;
begin
a:=strtoint(edit1.text);
for i=1 to a do
begin
table1.insert;
table1.edit;
...
...
...
end;
end;

bu sekilde calismasi lazim bi deneyin. edit1 yerine koydugunuz edit kutusunun ismini veya numarasini yazin. ben edit1 olarak adlandirdim. iyi calismalar...

[macsonfor]

yardımınızdan dolayı teşekkür ediyorum
henüz denemedim ama nasib olursa İNŞALLAH deneyeceğim