Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Bir edit dışında tüm editleri temizleme
#1
Selam; Forumdaki editleri temizlemek için aldaki kodlar işimi görüyor, fakat sadece bir editi temizlemesini iistemiyorum bunu nasıl yaptırabilirim

Temizlenmeyecek edit:
SearchBoxUrun.Text


procedure TForm2.BtnUrunEditTemizleClick(Sender: TObject); // Toplu edit temizle
begin
  for I := 0 to ComponentCount - 1 do
  begin
    if (Components[I] is TEdit) then
    begin
      (Components[I] as TEdit).Text := '';
      MemoUrunNot.Lines.Clear;
    end;
  end;
end;
Hayat bazen güzel olabiliyor.
Cevapla
#2
procedure TForm2.BtnUrunEditTemizleClick(Sender: TObject); // Toplu edit temizle
begin
 for I := 0 to ComponentCount - 1 do
 begin
   if (Components[I] is TEdit) then
   begin
   if (Components[I] as TEdit).name <> 'SearchBoxUrun' then
     (Components[I] as TEdit).Text := '';
     MemoUrunNot.Lines.Clear;
   end;
 end;
end;
Cevapla
#3
(20-05-2017, Saat: 23:56)nguzeller Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
procedure TForm2.BtnUrunEditTemizleClick(Sender: TObject); // Toplu edit temizle
begin
 for I := 0 to ComponentCount - 1 do
 begin
   if (Components[I] is TEdit) then
   begin
   if (Components[I] as TEdit).name <> 'SearchBoxUrun' then
     (Components[I] as TEdit).Text := '';
     MemoUrunNot.Lines.Clear;
   end;
 end;
end;

Aşağıdaki şekilde kullanırsanız birisi bileşenin adını değiştirirse sorun yaşamazsınız.

procedure TForm2.BtnUrunEditTemizleClick(Sender: TObject); // Toplu edit temizle
begin
for I := 0 to ComponentCount - 1 do
begin
  if (Components[I] is TEdit) then
  begin
  if (Components[I] as TEdit).name <> SearchBoxUrun.Name then
    (Components[I] as TEdit).Text := '';
    MemoUrunNot.Lines.Clear;
  end;
end;
end;
Cevapla
#4
merhaba,

MemoUrunNot.Lines.Clear; satırını
for döngü öncesine ya da sonrasına almanızda fayda var.

iyi çalışmalar.
Cevapla
#5
(22-05-2017, Saat: 09:13)edo Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(20-05-2017, Saat: 23:56)nguzeller Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
procedure TForm2.BtnUrunEditTemizleClick(Sender: TObject); // Toplu edit temizle
begin
 for I := 0 to ComponentCount - 1 do
 begin
   if (Components[I] is TEdit) then
   begin
   if (Components[I] as TEdit).name <> 'SearchBoxUrun' then
     (Components[I] as TEdit).Text := '';
     MemoUrunNot.Lines.Clear;
   end;
 end;
end;

Aşağıdaki şekilde kullanırsanız birisi bileşenin adını değiştirirse sorun yaşamazsınız.

procedure TForm2.BtnUrunEditTemizleClick(Sender: TObject); // Toplu edit temizle
begin
for I := 0 to ComponentCount - 1 do
begin
  if (Components[I] is TEdit) then
  begin
  if (Components[I] as TEdit).name <> SearchBoxUrun.Name then
    (Components[I] as TEdit).Text := '';
    MemoUrunNot.Lines.Clear;
  end;
end;
end;

Bileşenin adı değişir ise bu durumda zaten kod derlenmeyecektir ;-)
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#6
doğrudur hocam, sanırım amaç o zaten. En azında şu satırda hata ver deyip bileşen adını değiştirdiğinizden dolayı bunuda değiştirin dicektir, diğer türlü program çalışacak fakat nesneyi bulamadığı için muhtemelen hatalı işlem yapacaktır.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#7
Niye bileşen adı değişiyor değişmese olmaz mı Big Grin ilk kod daha az kaynak tüketme durumu yok mu
Cevapla
#8
(24-05-2017, Saat: 13:37)esistem Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Oldoğrudur hocam, sanırım amaç o zaten. En azında şu satırda hata ver deyip bileşen adını değiştirdiğinizden dolayı bunuda değiştirin dicektir, diğer türlü program çalışacak fakat nesneyi bulamadığı için muhtemelen hatalı işlem yapacaktır.

Aynen, hatanın/sorunun sonradan çalışma anında çıkmasındansa derleme sırasında sorunu fark etmek her zaman tercihimdir.

Çalışmayan kod, hatalı çalışan koddan daha iyidir.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  ButtonedEdit veya Edit içinde Canvas ile çizim 3ddark 14 459 22-09-2018, Saat: 23:38
Son Yorum: ssahinoglu
  edit.text kontrolü by_software 5 245 24-07-2018, Saat: 14:51
Son Yorum: Tan Ay
  Yazıcı kuyruğu temizleme (Yardım) kasparov58 1 366 08-11-2017, Saat: 11:34
Son Yorum: SimaWB
  Edit boş geçilmesin Mericx 10 1.427 24-09-2017, Saat: 05:55
Son Yorum: Halil Han Badem
Question Form İçinde Form Parent Olayında Edit Kontrolü Halil Han Badem 7 902 01-07-2017, Saat: 12:41
Son Yorum: Halil Han Badem



Konuyu Okuyanlar: 1 Ziyaretçi