Problem polega na tym że, gdy mam
[code] for i:=0 to Listbox1.Count-1 do[/code]
Program nie chce dorzucić lini do listboxa gdyż wgl nie zaczyna pętli.
Z drugiej strony usuwając -1 z listbox1.count program wysypuje się po wcisnieciu buttona gdyż próboje dodac zapisać coś na wyższym indexie niż istnieje. Próbowałem także zrobić to w taki sposób że gdy listboxcount = 0 dodaje linie bez zadnych sprawdzen a potem leci po tej pętli for. Myślałem że załatwiłem sprawe a okazało się że po dodaniu 4-5 indexu
pętla szaleje nie sprawdza warunku dodaje po pare pustych indexow do każdego listboxa potem dopiero z editów i na koniec dodatkowo bład że taki już jest (mimo że on to powinien sprawdzić najpierw).
[code]procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
if edit1.Text = '' then
showmessage('Wpisz nazwe itemu!')
else
for i:=0 to Listbox1.Count-1 do
begin
if Edit1.Text = listbox1.items.strings[i] then
begin
showmessage('Podany item istnieje!!!');
break;
end
else
begin
ListBox1.Items.Add(Edit1.Text);
ListBox2.Items.Add(Edit2.Text);
ListBox3.Items.Add(Edit3.Text);
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
break;
end;
end;
end;
[/code]