Delphi Listbox

[Meister]

2 ayrı listbox verisini bir buton yardımıyla toplayıp 3. listbox a nasıl aktarabilirim

[Commandx]

Mobilden yazdım, denemedim

Kod: Tümünü seç

var
i:integer;
 begin
  listbox3. Clear ; 
   for i:= 0 to listbox1.items.count-1 do begin
   listbox3.items.add(IntToStr(StrToInt(listbox1.items.strings[i]) + StrToInt(listbox2. items. strings[i])) ) ;
 end;
end;

[s3lin]

işe yaradı

[Commandx]

Mesajınıza istinaden bunu deneyin bir.
Listbox2 nin Listbox1 deki sıra karşılığındakileri toplar. Listbox3 de toplanmış olarak ekler

Kod: Tümünü seç

// Burayı bir butona, yada listbox1 in Clickine de veya bir PopupMeüye yazabilirsin
procedure TForm1.ListBox1DblClick(Sender: TObject); //ben dblclicke yazdım.
VAR
A,B,C:integer;
begin
    Listbox2.ItemIndex:= Listbox1.ItemIndex;
      A:=StrToInt(Listbox1.Items.Strings[listbox1.itemindex]);
      B:=StrToInt(listbox2.Items.Strings[ListBox2.itemindex]);
      C:=A+B;
    Listbox3.Items.Add(InttoStr(C));
end;