Witam. Męczę się z tym już od kilku godzin i nie mogę tego napisać. Procedura polega na kopiowaniu Jednego elementu z pierwszego listboxa do drugiego Listboxa. Jednak gdy Element został już kiedyś skopiowany, procedura zaznacza tylko dawniej skopiowany element zamiast go kopiowac ponownie.
procedure TForm1.Button1Click(Sender: TObject);
var
index:integer;
begin
if Listbox2.Items.Count <> -1 then
begin
index := ListBox2.Items.Count-1;
while (index > 0) and (CompareText(Listbox1.Items.Strings[Listbox1.ItemIndex],ListBox2.Items[index]) < 0) do
Dec(index);
if CompareText(Listbox1.Items.Strings[Listbox1.ItemIndex], ListBox2.Items[index]) = 0 then
ListBox2.ItemIndex := index;
end;
Listbox2.Items.Add(Listbox1.Items[Listbox1.Itemindex]);
end;
Bardziej pokręcić już się nie da
I dlaczego nie można na tym forum edytowac postów...
procedure TForm1.Button1Click(Sender: TObject);
var
index:integer;
begin
if Listbox2.Items.Count <> -1 then
begin
index := ListBox2.Items.Count-1;
while (index > 0) and (CompareText(Listbox1.Items.Strings[Listbox1.ItemIndex],ListBox2.Items[index]) < 0) do
Dec(index);
if CompareText(Listbox1.Items.Strings[Listbox1.ItemIndex], ListBox2.Items[index]) = 0 then
ListBox2.ItemIndex := index;
end;
Listbox2.Items.Add(Listbox1.Items[Listbox1.Itemindex]);
end;
A może ktoś odpowie?