Einzelnen Beitrag anzeigen

Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.798 Beiträge
 
Delphi 12 Athens
 
#7

Re: Break / Exit - Grundsatzfrage

  Alt 19. Dez 2008, 11:31
Delphi-Quellcode:
function InListeVorhanden(SuchString: string): Boolean;
var i: integer;
begin
  Result := False;
  i:= 0;
  repeat
    if SuchString = List[i] then
      Result := True;
    inc(i);
  until Result or (i = (List.Count-1));
end;
Ganz ohne Exit

Oh...Roter Kasten ist wohl beim Weihnachtsmann aufm Schlitten.

Sherlock
Oliver
  Mit Zitat antworten Zitat