---

Har lavet et lille søgeprogram som virker ok næsten!

Hvis jeg skriver A i Edit findes der 3 navne i listBox2 Ok
Hvis der klikkes på et navn i ListBox2 skrives dette i Edit Ok
Men sletter jeg Edit og laver en ny søgning på f.eks. L
skrives der i ListBox2 L navnene 2 gange ???

Har prøvet med nogle sletninger her og der men det
klare ikke problemet.

procedure TForm1.FormPaint(Sender: TObject);
begin
ListBox1.Items.Add('African Queen');
ListBox1.Items.Add('Amanda');
ListBox1.Items.Add('America');
ListBox1.Items.Add('Candidum Madonnalilje');
ListBox1.Items.Add('Chianti');
ListBox1.Items.Add('Citronella');
ListBox1.Items.Add('Connecticut King');
ListBox1.Items.Add('Dizzy');
ListBox1.Items.Add('Fritillaria Imperialis Aurora');
ListBox1.Items.Add('Fritillaria Imperialis Luttea');
ListBox1.Items.Add('Fritillaria Imperialis Rubra');
ListBox1.Items.Add('Gran Cru');
ListBox1.Items.Add('Landini');
ListBox1.Items.Add('Loreto');
ListBox1.Items.Add('Mona Lisa');
ListBox1.Items.Add('Nettys Pride');
ListBox1.Items.Add('NN');
ListBox1.Items.Add('Philadefphicum');
ListBox1.Items.Add('Pink Perfection');
ListBox1.Items.Add('Regale Kongelilje');
ListBox1.Items.Add('Revenge');
ListBox1.Items.Add('Siberia');
ListBox1.Items.Add('Speciosum var rubrum');
ListBox1.Items.Add('Star Gazer');
ListBox1.Items.Add('Sterling Star');
end;
//------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
T, Antal : Integer;
Begin
ListBox2.Visible := True;
Antal := ListBox1.Items.Count -1;
ListBox2.Clear;
For T := 0 to Antal Do
Begin
If Pos(Edit1.Text,ListBox1.Items.Strings[T]) = 1 Then
ListBox2.Items.Add (ListBox1.Items.Strings[T]);
End;
End;
//------------------------------------------------------------------------------
procedure TForm1.ListBox2Click(Sender: TObject);
begin
Edit1.Text := ListBox2.Items.Strings[ListBox2.Itemindex];
ListBox2.Visible := False;
end;
//------------------------------------------------------------------------------
End.

Er der en der kan se fejlen ???
På forhånd tak
m.v.h.
Henning

---

Henning Madsen skrev dette den 01-07-2007 21:44:

> Hvis jeg skriver A i Edit findes der 3 navne i listBox2 Ok
> Hvis der klikkes på et navn i ListBox2 skrives dette i Edit Ok
> Men sletter jeg Edit og laver en ny søgning på f.eks. L
> skrives der i ListBox2 L navnene 2 gange ???
>
> Har prøvet med nogle sletninger her og der men det
> klare ikke problemet.
>
> procedure TForm1.FormPaint(Sender: TObject);
> begin
> ListBox1.Items.Add('African Queen');
> ListBox1.Items.Add('Amanda');
> ListBox1.Items.Add('America');
> ListBox1.Items.Add('Candidum Madonnalilje');
> ListBox1.Items.Add('Chianti');
> ListBox1.Items.Add('Citronella');
> ListBox1.Items.Add('Connecticut King');
> ListBox1.Items.Add('Dizzy');
> ListBox1.Items.Add('Fritillaria Imperialis Aurora');
> ListBox1.Items.Add('Fritillaria Imperialis Luttea');
> ListBox1.Items.Add('Fritillaria Imperialis Rubra');
> ListBox1.Items.Add('Gran Cru');
> ListBox1.Items.Add('Landini');
> ListBox1.Items.Add('Loreto');
> ListBox1.Items.Add('Mona Lisa');
> ListBox1.Items.Add('Nettys Pride');
> ListBox1.Items.Add('NN');
> ListBox1.Items.Add('Philadefphicum');
> ListBox1.Items.Add('Pink Perfection');
> ListBox1.Items.Add('Regale Kongelilje');
> ListBox1.Items.Add('Revenge');
> ListBox1.Items.Add('Siberia');
> ListBox1.Items.Add('Speciosum var rubrum');
> ListBox1.Items.Add('Star Gazer');
> ListBox1.Items.Add('Sterling Star');
> end;
>
> Er der en der kan se fejlen ???

Det er din FormPaint der driller. Hver gang formen bliver gentegnet
bliver emnerne tilføjet til listbox1, uden at den renses først.

Prøv at evt. at flytte det fra formpaint til FormCreate.


--
Michael Haase

---

Tak for svaret Michael Haase også for et meget hurtigt svar
Det var lige hvad der skulle gøres, så nu virker det som det skal.
m.v.h.
Henning