Mam taki kodzik:
procedure Tdodaj_pytanie.addBTNClick(Sender: TObject);
var
i:integer;
begin
acceptBTN.enabled := true;
for i:=0 to listbox1.count -1 do
if listbox1.Selected[i] then
begin
listbox2.Items.Add(listbox1.Items.Strings[i]);
listbox1.Items.Delete(i);
INC(licznik);
end;
end;
Zainstalowałem nowego Lazarusa - 1.0, stary(0.9.4) się popsuł :) I teraz, gdy chcę przerzucić coś z jednego listboxa do drugiego, to za każdym razem dostaję index out of bounds(z wyjątkiem ostatniego elementu). Widzi ktoś błąd w tym kodzie?
btw Do ListBox1 wczytywane jest 15 stringów(0..14)