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
  Yazıcı kuyruğu temizleme (Yardım) kasparov58 1 170 08-11-2017, Saat: 11:34
Son Yorum: SimaWB
  Edit boş geçilmesin Mericx 10 920 24-09-2017, Saat: 05:55
Son Yorum: hyperxman
Question Form İçinde Form Parent Olayında Edit Kontrolü hyperxman 7 475 01-07-2017, Saat: 12:41
Son Yorum: hyperxman
  İşlem sonunda editi temizleme hido 8 487 11-06-2017, Saat: 00:31
Son Yorum: hido
  Edit panding hido 1 247 02-06-2017, Saat: 02:10
Son Yorum: ramazanayer



Konuyu Okuyanlar: 1 Ziyaretçi