Finde en bestemt post i en txt fil

<quote>Hej Alle

Er der nogen der kan fortælle mig hvordan man finder en bestemt post i en Listbox og derved også har nummeret på denne linie. Ved hjælp af dette nummer skal jeg ligeledes finde den tilsvarende linie men bare i n anden Listbox.

Hilsen Mickey</quote>

Jeg formoder du mener, at du vil finde en bestemt streng i ListBoxen, og så finde linienr. til denne streng. Det kan gøres således:

Erklær en variabel i formen eller et modul:
Public lIndex as Long

Følgende kode kan sættes i f.eks. en knap:

Dim a ,b
a = ListBox1.ListCount -1
For b = 0 To a
If ListBox1.ListIndex(b) = "DenStrengDuSøgerEfter" Then lIndex = b
Next b

Nu kan du finde den tilsvarende post i en anden ListBox vha lIndex:

ListBox2.ListIndex(lIndex)

NB du skal være opmærksom på, at du vil få en runtime-error, hvis du f.eks finder et indexnr i den første ListBox, og det samme nr så ikke findes i ListBox 2.

MVH tjacob

Welll...

Hvis jeg ahr forstået spørgsmålet rigtigt så kan du bruge denne her løkke:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for I := 0 to ListBox1.Items.Count - 1 do
begin
if ListBox1.Items[I] = 'Post' then // Post kan erstattes med alt.
begin
Label1.Caption := ListBox1.Items[I]; // Sætter label1's caption
Label2.CAption := ListBox2.Items[I]; // Sætter Label2's caption til den samme linje i ListBox2 som label1's caption i ListBox1
end;
end;
end;

Men kort: Det den gør er at den tjekker alle linje igennem og hvis en af linjerne er lige med Post så sætter den Label1's caption til ListBox1's Linie nummer I, som er den linje den er nået til i løkken. Den sætter også Label2's caption til ListBox2's Linie numme I som er den linje som vi stadigvæk er nået til i løkken.

Håber at du forstod min forklaring :-)

- Nick
- www.nizro.f2s - GamesDev
- Send me mails at cnn@pc.dk

<b> Jeg tror altså Nick har misforstået noget!? Det er da ikke til Delphi, spørgsmålet angår, men til Visual Basic? </b>




Mvh.
Lars Haslev

Always Look On The Bright Side Of Life! :-)
*********************************

Der er en lille fejl:

Du skal ikke bruge Property ListIndex() men List()

-tjacob