Delphide Birden Fazla Yazdığımız Kodu Birleştirip Tek Bir Kod Haline Getiriyorduk Bilen Varsa Yazsın Lütfen

[fidan6363]

Delphide Birden Fazla Yazdığımız Kodu Birleştirip Tek Bir Kod Haline Getiriyorduk Bilen Varsa Yazsın Lütfen

[freeman35]

{$I xxxx.inc} //include işlemi

[mrmarman]

Ben de sorudan procedure veya function gibi daha basit bir şey gibi veya dahası bunları bir UNIT altında toplamayı soruyor gibi geldi.

Bize kod örneği gösterip şunları aynı yerde kullanmak istiyorum diye sorunu genişletebilir misin ?

[fidan6363]

Anlatmak İstediğim Visual C#'deki Örnek Üzerinden Anlatayım Orada Kodları Birleştirmek İçin

Volid Komutu Kullanılıyordu Delphide Ne Kullanılıyor

[fidan6363]

Örnek Kod Olarak

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Bunları Her Defasında Yazmak Yerine Birdefadan Tek Bir Kod Haline Nasıl Getirebiliriz

[mrmarman]

FindComponent kullandığın bir döngü ile halledersin.

Örnek :

Kod: Tümünü seç

Var
  i : Integer;
begin
  for i := 0 to ComponentCount-1 do
  begin
    if  ( Components[i] is TEdit )
    then  TEdit( Components[i] ).Text := '';
  end;
end;

Başka bir örnek; eğer sadece bir panel (örneğin Panel1 olsun) üzerindeki Edit'leri değerlendirsin, diğerlerine dokunmasın istersen:

Kod: Tümünü seç

Var
  i : Integer;
begin
  for i := 0 to ComponentCount-1 do
  begin
    if  ( Components[i] is TEdit )
    AND ( TEdit( Components[i] ).Parent = Panel1 )
    then  TEdit( Components[i] ).Text := '';
  end;
end;

[mrmarman]

FindComponent dedim onu göstermedim...

Kod: Tümünü seç

Var
  i : Integer;
begin
  for i := 1 to 8 do
    if FindComponent( 'Edit' + IntToStr(i) ) <> nil
      then TEdit( FindComponent( 'Edit' + IntToStr(i) ) ).Text := '';
end;