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

[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