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.