Hallo,
nochmal etwas zur Liste.
Ich will überprüfen ob ein Name vorhanden ist wenn ja dann soll ein kommen. Wenn nein dann soll nichts passieren, das Programm soll weiterlaufen.
Das habe ich mir jetzt so überlegt:
Delphi-Quellcode:
procedure TForm1.pruefename(const AValue: string);
var
besitzer: string;
pAuto: IAuto;
i: Integer;
begin
try
besitzer := AValue;
for i := 0 to AutoList.Count do
begin
pAuto := AutoList.Items[i];
if pAuto.ErgebnisName = besitzer then
begin
raise EBerechnung.Create('Dieser Name ist schon vorhanden!');
end;
end;
except
on e: EBerechnung do
MessageDlg(E.Message, mtInformation, [mbOK], -1);
end;
end;
Doch leider bekomme ich wieder den Fehler "List index out of bounds(0)".
Kann mir nochmal jemand helfen?
Gruß,
Schnittcher