søge + sorting

Med hensyn til sorteringen skrev du at du kunne sortere dem, men de lå i omvendt rækkefølge. Det jeg så har lavet er noget kode som bytter om på rækkefølgen!

Hvis du kun vil bruge en listbox (ListboxTxt) kan de gøres således:

procedure TForm1.ButtonOmvendtClick(Sender: TObject);
var
I:integer;
Liste:Tstrings;
begin
Liste:=Tstrings.Create;
For I:=ListboxTxt.Items.Count-1 downto 0 do
 begin
 ListboxTxt.ItemIndex:=I;
 Liste.Add(ListboxTxt.Items.Strings[I]);
end;
ListboxTxt.Items:=Liste;

Når du så skal søg i den listbox, skal du bruge koden:

procedure TForm1.ButtonSoegClick(Sender: TObject);
var
 I:integer;
begin
For I:=0 to ListboxTxt.items.Count-1 do
 begin
  ListboxTxt.ItemIndex:=I;
  if Pos(Edit1.text,ListboxTxt.Items.Strings[I])>0 then
   ListBoxSoeg.items.Add(ListboxTxt.Items.Strings[I]);
end;
end;

Herefter ender søge resultaterne i ListboxSoeg

T dér

[Redigeret d. 20/12-03 21:42:56 af Tarrild]

Dette skulle kunne hvad du søger.

Der skal være 3 Listboxe og en Edit

procedure TForm1.ButtonSoegClick(Sender: TObject);
var
 I:integer;
begin
For I:=0 to ListBox2.items.Count-1 do
 begin
  ListBox2.ItemIndex:=I;
  if Pos(Edit1.text,ListBox2.Items.Strings[I])>0 then
   ListBox3.items.Add(ListBox2.Items.Strings[I]);
end;
end;

procedure TForm1.ButtonOmvendtClick(Sender: TObject);
var
I:integer;
begin
For I:=Listbox1.Items.Count-1 downto 0 do
 begin
 ListBox1.ItemIndex:=I;
 ListBox2.Items.Add(ListBox1.Items.Strings[I]);
end;
end;

ListBox1 er den du loader din txt fil ind i.
Listbox2 er den hvor det står i omvendt rækkefølge.
Listbox3 er hvor dine søge resultater fremkommer.

Håber det var en hjælp!!!

T dér

sortingen virker ikke, og jeg kan heller ikke få søg function til at virke.

jeg har kun 2 listbox'e ikke 3

den ene list box er på form1 og den anden er på form2

når jeg starter programet loader den txt filen ind i listbox1(form1)
og den vil jeg gene have sorteret efter dato(den nyeste dato først)

så har jeg i form2 en edit og listbox2. og når jeg skriver noget i edit skal den smide alt det den finder ind i listbox2.


som sagt indeholder txt filen datoer og noget tekst. f.eks

11/09/03 husk at du skal ........
11/10/03 sko
12/09/03 en øl og en hest
12/15/03 blahh

hvis jeg så søger efter sko så skal den ikke kun putte ordet sko ind i listbox2, men helle den linje ordet står på:
11/10/03 sko

hmm. der var vist noget galt

I stedet for
Tstrings.create skal der stå
TstringList.create !!!

Ellers kan du downloade mit program på http://c.tarrild.homepage.dk/Listbox.zip

T dér



[Redigeret d. 20/12-03 21:55:17 af Tarrild]

[Redigeret d. 20/12-03 21:59:21 af Tarrild]

ok nu virker søge functionen

jeg fik en fejl før med sortingen, men efter jeg ændre til
TstringList.create
for jeg ikke nogle fejl, men det virker stadigvæk ikke. den ruller bare helle listen igenem.

Det kan jeg ikke forstå prøv enten at downloade mit eksempel, eller skrive din kode her !

T dér

din fil er beskadet. kan du uploade en ny?

Skummelt mine zip filer bliver beskadiget...

Har du en mail så jeg kan sende den til dig?



[Redigeret d. 21/12-03 00:23:18 af Tarrild]

min mail: w00t@ofir.dk