alanları temizlemek

[EeCOMP]

selamlar
formumda veritabanına kayıt giren editler memolar textler comboboxlar felan var ben bunların hepsini nasıl temizleyebilirim yani içeriğini silebilirim temizle diye bir buton koycam ona basınca alanlara girilen herşey sıfırlanacak bunu nasıl yapabilrim tek tek tüm bileşenlere boşluk mu aktarmalıyım öylede çok zor olur bana bir yol gösterin
table1.refresh;
komutu ile denedim olmadı başka bir yolu varmı

[mehmet_turecan_cakmak]

veritabanında yeni bir kayıt açtığın zaman hem nesnelerin içeriği temizlenir hemde yeni bir kayıt açılmış olur .
eger senin anlatmak istediğin bu değilse örneğin şu şekilde ise; bir butona tıkladığında tüm nesnelerin içeriği temizlensin diyorsan örnek olarak şunu yazabilirim:


dbedit1.text:='';
dbmemo1.text:='';
vb...

iyi çalışmalar kolay gelsin...

[hardndark]

soyle bi kod isine yarar sanirim..

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
        i : integer;
begin
        for i:=0 to Form1.ComponentCount-1 do 
        begin
                if (Components[i] is TEdit) then
                        (Components[i] as TEdit).Clear
                else
                if (Components[i] is TMemo) then
                        (Components[i] as TMemo).Clear
                else
                if (components[i] is TCombobox) then
                        (Components[i] as TComboBox).Clear;
        end;
end;

[rsimsek]

sorduğunuz sorunun cevabını en kısa yoldan mehmet_turecan_cakmak vermiş. fakat eksik olan birşey var. dbedit lere atama yapılmaz. dbedit veya dbmemo sadece tabloya bağlı olarak çalıştığından, sen zaten insert vaya append deyip yeni bir boş kayıt açtığında bütün alanlar boş gözükecektir. tablonun afterinsert eventına insertten sonra mesela tarih alanına bugünün tarihini varsayılan olarak ata diyebilirsin.

yeterli olmazsa tabloyu bağladığın datasource nesnesinin de onstatechange eventında

if Table1.State in [dsInsert] then ...

gibi işlemler yaptırman mümkün.

yazdıkça ufkun açılacak emin ol!