Finde nr. i ListBox

ListBox1.Items.IndexOf();

Denne funktion kan vel bruges :)

function FindTekst(ListBox: TListBox; Tekst: String): Integer;
var
  I: Integer;
begin
  Result := -1;
  for I := 0 to Pred(ListBox.Items.Count) do
    if ListBox.Items[I] = Tekst then
      begin
        Result := I;
        exit;
      end;
end;


Den bruges sådan:

var
  Nummer: Integer;
begin
  Nummer := FindTekst(ListBox1, \'Forår\');
  //Nu indeholder nummer hvilken itemnummer der hedder Forår. Hvis den ikke findes er nummer -1
end;

/SpEeDy

MartinLind>>Der kan man bare se :) En lidt nemmere metode du kunne der :)

/SpEeDy

Std. StringList funktion *S*

Result skal være = 1 :

Result := i +1; i stedet for Result := i; oppe i functionen

var
  Nummer: Integer;
begin
  Nummer := FindTekst(ListBox1, 'Forår');
  Label1.Caption := 'Forår har nr ' + IntToStr(Nummer);
end;

Nu Skulle label gerne vise at Forår har plads nr 3!!

GLEM DEN FØRSTE LINIE JEG SKRV :-)

Hey er du ikke flink lige at lukke dette spørgsmål digiman?