Belli sayıdaki DBEditlerde girilen veri aynıysa.....

[HBV]

Selamlar ornek: 8 Sutun da,(sutun1-sutun2-sutun3-sutun4-sutun5-sutun6-sutun7-sutun8) sutunlarin herhengi birinde kaydedilecek dosya varsa kaydetmesin istiyorum(Normalde Sutun sayisi fazla,ben bu sekiz sutunda Edit`den girilen ozel dosya isimlerini saklatiyorum.).(DataBase)

Kod: Tümünü seç

Table1.Edit; // Dosya ,Kayıt ekleme durumu
Sutun1DBEdit1.Field.AsString:=DBEdit10.Field.Asstring;//DBEdit10 daki   Dosya1` i  Kaydet
Sutun2DBEdit2.Field.AsString:=       
Sutun3DBEdit10.Field.AsString:= 
Sutun4DBEdit4.Field.AsString:= 
Sutun5DBEdit5.Field.AsString:= 
Sutun6DBEdit12.Field.AsString:= //  "Dosya1" Burada varsa!!!............. 
Sutun7DBEdit7.Field.AsString:= 
Sutun8DBEdit8.Field.AsString:=
.............................
Table1.Post;//kaydet.......

Yukaridaki islem sadece 8 Sutun icin gecerli....Herkese Tesekkur ediyorum..

[aslangeri]

s.a.
valla kardeş sorundan bişey anlamadım...
kolay gelsin.

[HBV]

.........Tabloda 20 DBEdit var bunlardan 8 Tanesi ni grupladım bunlara ayrı kayıt yaptırıyorum Yani Bu 8 DBEdit e girilen veri( Dosya adı)sadece bir sutunda olması lazım Bilmem anlatabildimmi..(Bu kayıtlar terminallerden giriliyor Tablodan ayrı Aynı kayıt kontrolu olması lazım) Teşekkür ediyorum

[rsimsek]

DBEdit lerin ortak bir OnChange ında yazacağın kod ile hangisinde değişiklik olmuş ise bu bilgiyi hepsine atama yaptırabilirsin.

Kod: Tümünü seç

procedure TFRM_Form1.DBEdit_OrtakChange(Sender: TObject);
begin
  DBEdit1.Text := (Sender as TDBEdit).Text; // yada doğrudan DataSet deki alanlara da atama yapabilirsin.
  DBEdit2.Text := (Sender as TDBEdit).Text;
  DBEdit3.Text := (Sender as TDBEdit).Text;
// vs....
end;

[HBV]

Teşekkür ederim Hocam sizde olmasanız Hiç bir şey öğrenemeceğiz..............Tekrar teşekkürler..