Nach Wert in Liste suchen - Index und alle anderen Einträge

[Schnittcher]

Hallo,

ich möchte nach einem Wert in einer Liste suchen.
Dazu den Index ausgeben und alle anderen Einträge die es zu dem Wert gibt.

Hier habe ich es nach dem Index gemacht:

Delphi-Quellcode:

procedure TForm1.cmdIndexClick(Sender: TObject);
var
  pAuto: IAuto;
  index: Integer;
begin
  index := 0;
  index := StrToInt(edIndex.Text);
  pAuto := AutoList.Items[index];
  edBesitzer.Text := pAuto.ErgebnisName;
  edKW.Text := FloatToStr(pAuto.ErgebnisKW);
  edPS.Text := FloatToStr(pAuto.ErgebnisPS);
end;

Und das gleiche will ich jetzt nach edBesitzer.Text machen.

Kann mir dazu jemand etwas sagen?

Gruß,
Schnittcher

[DeddyH]

Na, setz den Suchindex initial auf 0 und gehe in einer Schleife die Liste durch, bis Du den passenden Eintrag gefunden hast oder das Ende der Liste erreicht wurde.

[XXcD]

Das geht mit
ListBox1.Items.IndexOf('Eintrag');

[DeddyH]

Welche ListBox?

[XXcD]

Ich nehme mal an, dass Autolist eine Listbox ist.
Und wenn nicht in anderen Komponenten gibt es IndexOf auch

[Edit]Hab gerade meinen Fehler selber bemerkt In der Liste sind nur die Addressen gespeichert[\Edit]

[Schnittcher]

Hallo,

könnt ihr mir ein Beispiel geben?

Ich dachte mir jetzt sowas:

Delphi-Quellcode:

procedure TForm1.cmdBesitzerClick(Sender: TObject);
var
  besitzer: string;
  pAuto: IAuto;
  i: Integer;
begin
  i := 0;
  edBesitzer.Text := besitzer;
  for i := 0 to AutoList.Count do
  begin
    pAuto := AutoList.Items[i];
    besitzer := pAuto.ErgebnisName;
  end;
  edBesitzer.Text := pAuto.ErgebnisName;
  edKW.Text := FloatToStr(pAuto.ErgebnisKW);
  edPS.Text := FloatToStr(pAuto.ErgebnisPS);
end;

Gruß,
Schnittcher

[XXcD]

Ja ich versuch dir das mal weiter zu machen:

Delphi-Quellcode:

procedure TForm1.cmdBesitzerClick(Sender: TObject); 
var 
  besitzer: string; 
  pAuto: IAuto; 
  i: Integer; 
begin 
  i := 0; 
  edBesitzer.Text := besitzer; 
  for i := 0 to AutoList.Count do 
  begin 
    pAuto := AutoList.Items[i]; 
    if pAuto.ErgebnisName='Mustermann' then //Mustermann ist der String de rgesucht wird
     begin
     besitzer := pAuto.ErgebnisName; 
     break;//Wenn gefunden, dann Schleife unterbrechen
     end;
  end; 
  if Besitzer<>'' then
  begin
  //gefunden
  end;
  edBesitzer.Text := pAuto.ErgebnisName; 
  edKW.Text := FloatToStr(pAuto.ErgebnisKW); 
  edPS.Text := FloatToStr(pAuto.ErgebnisPS); 
end;

So sollte das ganze funktionieren.

[martin_]

pAuto := AutoList.IndexOf(edIndex.Text);

[Schnittcher]

Hallo,


@XXcD

jetzt bekomme ich den Fehler "List index out of bounds(3)".

Gruß,
Schnittcher

[Schnittcher]

Hallo,

so mein Fehler, es läuft.

Danke.

Gruß,
Schnittcher