Çok sayıdaki editlerin değerlerini toplama

[mmnckr]

Arkadaşlar hepinize selam, aynı form üzerindeki editlerden, edit25 ten edit 45 e kadar olan değerlerin toplamını nasıl alabilirim.

[Master_Yoda]

componentcount formdaki componentlerin sayısını verir components[n] ile de bu componentlere erişebilirsin..
Ben aşağıya edit4 ten edit10 a kadar editlerin içindeki sayıları toplayan bişey yazdım. noktalı sayılar varsa strtoint yerine strtofloat kullanabilirsin.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
 i,j,Top : Integer;
 s : String;
begin
  Top:=0;
  for i:=0 to ComponentCount-1 do Begin
    if Components[i] is TEdit Then Begin
      s:=Components[i].Name;
      j:=StrToIntDef(Copy(S,5,Length(s)),0);
      if (Copy(s,1,4)='Edit') And (j>=4) and (j<=10)
      Then top:=top+StrToIntDef(TEdit(Components[i]).Text,0);
    End;
  End;
  ShowMessage('Toplam:'+inttostr(Top));
end;

kolay gelsin ..

[KarizMan]

Farklı bir yolda benden :

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var i,Toplam:Integer;
begin
Toplam:=0;
for i:=25 to 45 do
  begin
  Toplam:=Toplam + StrToInt(TEdit(FindComponent('Edit' + IntToStr(i))).Text);
  end;
end;

25 ile 45 in yerlerine, nereden nereye toplanacaksa editlerin numaralarını yazarsınız. Yine noktalı sayılar varsa StrToFloat kullanırsınız.

[mmnckr]

Arkadaşlar çok saolun,çok işime yaradı bunlar. iyi çalışmalar