Editleri editle karşılaştırarak bilgi birleştirmek

[conari]

Form da örnek 20(aslında daha fazla) tane edit var.
edit1,edit2,edit3 şeklinde numaraları var.
fonksiyonum vereceğim numaralı(ilk 5 gibi) bir döngü ile gruplar oluşturuyor. Buraya kadar bir problemim yok, yapmak istediğim;

oluşan değer,
edit1 ve edit2 ve edit3 sonucunda oluştu diyelim.

ayrıca bu oluşumun sonuna (edit11 * edit12 * edit13) değerini de eklemek istiyorum.
yani değerler karşılaştırılırken;
edit1 = edit11
edit2 = edit12
edit3 = edit13

karşılığıdır.
İnşallah anlatabilmişimdir.

[aslangeri]

s.a.
valla ben pek bişey anlamadım.

[rsimsek]

Karşılaştırırken Edit1.Text = Edit11.Text şeklinde demek lazım..

[conari]

s.a.
valla ben pek bişey anlamadım.

Örnekleyeyim;
edit1,,5 değerleri; Ali,Hasan,Mehmet,Hüseyin,Necmi;

bunların arasına "-" koyarak birleştiriyorum.
bunlara karşılık olarak
edit11,,15 değerleri; 2,5,10,15,22 olsun.

çıkan değerim; Ali-Hasan-Mehmet-Hüseyin-Necmi-33.000
olmalı.

Ayrıca çıkan sonuç tek değil, yani bu 5 değerden 3,4 farklı grup oluşturulmak isteniyor.

[sabanakman]

Kod: Tümünü seç

type
  TSonuc=record
    Yazi:String;
    Deger:Int64;
  end;

function EditHesapla(const ilkedit,sonedit:Integer;const Form:TForm):TSonuc;
const edt='Edit%d';
var i:Integer; ad,deger:TEdit;
begin
  Result.Yazi:='';
  Result.Deger:=1;
  for i:=ilkedit to sonedit do begin
    ad:=TEdit(Form.FindComponent(Format(edt,[i])));
    deger:=TEdit(Form.FindComponent(Format(edt,[i+10])));
    if Assigned(ad) then
     Result.Yazi:=Result.Yazi+'-'+ad.Text;
    if Assigned(deger) then
     Result.Deger:=Result.Deger*StrToInt(deger.Text);
  end;
  if Result.Yazi<>'' then Delete(Result.Yazi,1,1);//en baştaki - karakteri silinir
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with EditHesapla(1,5,Self) do begin
    Label1.Caption:=Yazi;
    Label2.Caption:=IntToStr(Deger);
  end;
end;

[conari]

Hoca Teşekkür ederim direk kodu yazmaşsın,

fakat dediğim gibi farklı gruplar isteniyor.
forumdan bunun ile ilgili daha önce bilgi almıştım. Sanırım sende yardım edenlerdendin.

Yani eleman sayımız 5 olabilir ama 3 er li olarak grupla denebilir.

Bu Oluşan grupların, çıkan maliyet gibi bir şey hesabı aslında.

[sabanakman]

grup derken, bu 5 elemandan mı 3'erli grup yapılacak. Soruyu pek anlamadım.

[conari]

Aynen dediğin gibi Hoca,

Örnek 20 edit bilgisi var ;
ilk 5 ini kullan,
3 erli grupla denecek veya 4 li veya 2

veya 10 unu kullan diyecek ama 7 şerli gruplar diyecek.

[husonet]

gruplamayı hintlerine yazarak yapabilirsin.