Witam
chcialbym, zeby mam edit1, listbox1, i zeby jesli edit1.text = 'cos', to zeby mi do listboxu dodalo tekst z edit1, ale zeby co 1 sekunde sprawdzalo zawartosc edit1, i zeby co sekunde dodawalo do listbox, ale jesli w listbox znajduje sie pozycja z trescia edit1, to zeby tamta pozostawialo, a nowej niedodawalo, chyba ze zawartosc edit1 zmeni sie ;-)
Prosze o pomoc!!!
Hex
dajesz Listbox1.items.add(edit1.Text);
chcesz co sek.?? wrzuć ten kod w Timer (OnTimer)
W OnTimer:
if ListBox1.Items.IndexOf(Edit1.Text) < 0 then
ListBox1.Items.Add(Edit1.Text);
Nie prosciej zrobic na event "OnChange" sprawdzac modified (boolean) i jesli jest true to wtedy sprawdzic zawartosc i dodac np
procedure TForm1.Edit1Change (Sender: TObject);
var
i: Integer;
CzyIstnieje: Boolean;
begin
CzyIstnieje := False;
for i:= 0 to ListBox1.Count do //nie jestem pewien czy od 1 czy od 0
begin
if Edit1.Text = ListBox1.Items.Name[i] then CzyIstnieje := True;
end;
if not CzyIstnieje then ListBox1.Append(Edit1.Text); //zamiast append mozna uzyc add
end;
powodzenia [cya]