FindComponent für TStringList

[Hawkeye219]

Zitat von TonyR:

Da wollte ich (um die Effektivität zu erhöhen) die Wörter nach letzten Buchstaben in eigene TStringLists einzuordnen.

Einen spürbaren Zeitgewinn solltest du bereits erreichen, wenn du eine sortierte Stringliste verwendest. Da diese Duplikate standardmäßig ignoriert, kannst du die gefundenen Wörter einfach hinzufügen:

Delphi-Quellcode:

var
  L : TStringList;
begin
  L := TStringList.Create;
  L.Sorted := True;
    :
  L.Add ('Wort1');
  L.Add ('Wort2');
  L.Add ('Wort3');
    :
  L.Free;
end;

Der Zeitgewinn resultiert daraus, daß bei einer sortierten Liste eine binäre Suche statt einer sequentiellen Suche durchgeführt werden kann. Vielleicht kannst du dann sogar auf die Arrays verzichten.

Gruß Hawkeye