table deki döngüyü yazma

[r_korkmaz44]

Arkadaşlar aşağıdaki tablodaki döngüyü nasıl yazarım

var
i,j:integer;
begin
------
------
i:=3;
j:=1;
While i<=63 do begin
-------
-------
Ttable1(FindComponent('table1ogr' + IntToStr(j))).text:=TMaskEdit(FindComponent('MaskEdit' + IntToStr(i))).text;
end;
döngüdeki table1ogr1.text ---- table1ogr2.text---table1ogr3.text şeklinde arttırmak istiyorum. Acaba bunu nasıl yazabilirm. şimdiden teşekkürler.

[serkan]

viewtopic.php?f=2&t=25156

[r_korkmaz44]

Arkadaşlar şöyle yazdım olmadı. acaba nasıl yazmalıyım
(table1ogr1.text ---- table1ogr2.text şekliğnde olması için)

While i<=63 do begin

Ttable1(fieldbyname('ogr'+inttostr(i))):=TMaskEdit(FindComponent('MaskEdit' + IntToStr(i))).text;

[emin_as]

Aşagıdaki kod işini görür.
Düzeltme aşagıdaki eger field ile bilgi arıyorsan işini görür, eger editten bilgi alacaksan bir aşagıdakine bak.

Kod: Tümünü seç

var
  fld : TField;  
  ...
begin
  ....
   fld:=table1.FindField('table1ogr'+IntToStr(i));
   if Assigned(fld) then  // fld bulundu mu kontrol etmek için
   begin
      ...
      fld.Asstring:='ali' ; // field da bilgi yazmak için tabii daha önce edit veya insertte yapılmalı
      s1:=fld.Asstring;  // fielddaki bilgiyi s1 e almak için, recordcount ile table in dolu olup olmadıgını kontrol etmen gerekir.
     ...
   end;
   ....
end;

Kod: Tümünü seç

var
  edtxt : TEdit;  
  ...
begin
  ....
   edtxt:=FindComponent('table1ogr'+IntToStr(i));
   if Assigned(edtxt) then  // edtxt bulundu mu kontrol etmek için
   begin
      ...
      edtxt.Text:='ali' ; 
      s1:=edtxt.Text; 
     ...
   end;
   ....
   // tek satırda yapacaksan
   TEdit( FindComponent('table1ogr'+IntToStr(i)) ).Text:= ....
   s1:=TEdit( FindComponent('table1ogr'+IntToStr(i)) ).Text;
   ...
end;