59 adet dbrichedit in içeriğini toplamak

[gimil]

formdaki 59 adet dbrich edit in içeriğindeki rakamları tek tek toplamak fazla kod yazarak oluyo ama ben bunu bir döngüyle yapmak istiyorum.

[vampir261]

Component isimlerini dbrichedit1,dbrichedit2....dbrichedit59 gibi ardışık ver ve bir döngü ile komponentleri seç topla. forumda bununla ilgili konuşuldu birçok kez. Kolay gelsin

[gimil]

iyi güzel anlatmışsınız teşekkür ederim de

bende bunu nasıl yapacağımı soruyorum zaten

for i:=1 to 59 do
begin

bu bölümü yapamadım. dbrichedit(i) şeklinde mi olacak

end;

[sTb]

viewtopic.php?t=17647

Nasıl yapılacağına dair bir fikir edinirsiniz sanırım.


Saygılarımla

[Z.D.]

viewtopic.php?t=16792&highlight=componentcount
viewtopic.php?t=17647
viewtopic.php?t=18441&highlight=componentcount

daha öncede birçok kez konuşulduğu gibi object inspectorden component name baz alarak karşılaştırma yapabilirsiniz. Veya benim karşılaştırmalarda sık kullandığım tag özelliğini kullanarak;

Kod: Tümünü seç

Procedure TForm1.Button1Click(Sender: TObject);
Var
  i: integer;
  Comp: TObject;
Begin

  Memo1.Clear;
  For i := 0 To Form1.ComponentCount - 1 Do
  Begin
    Comp := Form1.Components[i];
    If (Comp Is TDBRichEdit) Then
      Case TDBRichEdit(Comp).Tag Of
        2: Memo1.Lines.Add('Sonuç = + ' + TDBRichEdit(Comp).Name);
        3: Memo1.Lines.Add('Sonuç = + ' + TDBRichEdit(Comp).Name);
      Else
        Memo1.Lines.Add('Sonuç = - ' + TDBRichEdit(Comp).Name);
      End;
  End;
End;

tasarım anında veya dinamik olarak tag özelliğine vereceğiniz değerler ile bu karşılaştırmayı yapabilirsiniz.