String in TStringList finden verschnellern?

[EmWieMichael]

Zitat von Klaus01:

oder so:

Delphi-Quellcode:

case v of
  low(Integer) .. -1: SuchIndexNachUnten;
  0: Gefunden;
  1 .. high(Integer): SuchIndexNachOben;
end;

Richtig, geht auch; allerdings dürfte diese Variante (wenigstens theoretisch) langsamer sein.