Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: sahaları kolay boşaltın  (Okunma sayısı 2179 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı ahmetkılıç

  • Delphi 1 Level 2
  • **
  • İleti: 14
  • Rep: +0/-0
sahaları kolay boşaltın
« : 19 Ekim 2007 10:11:28 »
form üzerinde kullandığını combobox,edit,..... ları kolayca boşaltın.


Kod:  (Unknown Language)
  1. procedure saha_bos;
  2. var
  3. a:integer;
  4.    begin
  5.    for a:=0 to form4.ControlCount-1 do begin
  6.   if form4.Controls[a].ClassType=Tedit then
  7.     (Form4.Controls[a] as Tedit).Text:='';
  8.     if form4.Controls[a].ClassType=Tcombobox then
  9.    (Form4.Controls[a] as Tcombobox).Text:='';
  10.     if form4.Controls[a].ClassType=Tmaskedit then
  11.    (Form4.Controls[a] as Tmaskedit).Text:='';
  12.    if form4.Controls[a].ClassType=TMemo then
  13.    (Form4.Controls[a] as TMEMO).Text:='';
  14.       end;
  15.    end;
kullanımı

Kod:  (Unknown Language)
  1. procedure TForm1.FormActivate(Sender: TObject);
  2. begin
  3. saha_bos;
  4. end;
veya nerde isterseniz kullanın
« Son Düzenleme: 20 Ekim 2007 03:14:52 by kocaturk »
Kayıtlı

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: sahaları kolay boşaltın
« Yanıtla #1 : 20 Ekim 2007 03:15:34 »
 ;) Paylaşım için teşekkürler.
Kayıtlı

Çevrimdışı cLaW

  • Delphi 8 Level 1
  • *
  • İleti: 351
  • Rep: +3/-0
  • Cinsiyet: Bay
    • CMP
Ynt: sahaları kolay boşaltın
« Yanıtla #2 : 16 Kasım 2007 00:25:03 »
güzel fikir :D benim aklıma gelmezdi doğrusu :D
Kayıtlı

Çevrimdışı RewriteRule

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +7/-1
  • Cinsiyet: Bay
Ynt: sahaları kolay boşaltın
« Yanıtla #3 : 19 Şubat 2008 17:00:31 »
Bu procedure'u şu şekilde değiştirebiliyor muyuz?

Kod:  (Unknown Language)
  1. procedure saha_bos;
  2. var
  3.   I: integer;
  4.   mySender: String;
  5. begin
  6.   mySender := (Sender as TComponent).Name;
  7.   for I:=0 to mySender.ControlCount-1 do
  8.   begin
  9.     if mySender.Controls[I].ClassType = TEdit then
  10.       (mySender.Controls[I] as TEdit).Text := '';
  11.  
  12.     if mySender.Controls[I].ClassType = TDBEdit then
  13.       (mySender.Controls[I] as TDBEdit).Text := '';
  14.  
  15.     if mySender.Controls[I].ClassType = TMemo then
  16.       (mySender.Controls[I] as TMemo).Text := '';
  17.  
  18.     if mySender.Controls[I].ClassType = TDBMemo then
  19.       (mySender.Controls[I] as TDBMemo).Text := '';
  20.  
  21.     if mySender.Controls[I].ClassType = TDBLookupComboBox then
  22.       (mySender.Controls[I] as TDBLookupComboBox).Text := '';
  23.   end;
  24. end;

yani sender'i bir string değişkene atayıp sonra o şekilde kullanmak. böylece her defasında form adı vermekten kurtuluruz. ama delphi bunu kabul edecek mi?
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »