Wczytywanie wierszy z ListBox1 Form1 do ListBox1 Form2

0

poniższy kod który ma mi kopiować wybrane wiersze z listbox1 form1 do listbox1 form2, nie działa -jak powinien wyglądać poprawiony kod?

 procedure TForm1.Button14Click(Sender: TObject);
var
i: integer;
begin
ListBox1.Clear;
for i := ListBox1.Items.Count - 1 downto 0 do
if ListBox1.Selected[i] then
Form2.ListBox1.Items.Add(Form1.ListBox1.Items.Strings[i]);
end;
3

Czyścisz LisbBox1 na Form1 i chcesz później coś z niego kopiować? Powinno być:

Form2.ListBox1.Clear;
0

niezależnie czy dam listbox.clear na początek czy też usunę, dalszy kod nie działa, nie kopiuje mi wierszy na drugą formę. jak ma wyglądać kod aby działał poprawnie?

2

A ja się założę że kopiuje zaznaczone wiersze (oczywiście po poprawce o której pisałem).

0

Ja też jestem gotów się założyć że po zmianie którą podał @kAzek program musi to kopiować poprawnie.
Oczywiście o ile to poprawnie zastosowałeś.
Prawdopodobnie to podpada pod temat kawału:

  • Czy wiecie że kiszony ogórek jest najlepszym środkiem antykoncepcyjnym?
  • A jak to się używa, przed czy po?
  • Zamiast!

1 użytkowników online, w tym zalogowanych: 0, gości: 1