Registriert seit: 10. Jan 2006
Ort: Offenbach
3.798 Beiträge
Delphi 12 Athens
|
Re: Break / Exit - Grundsatzfrage
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
|