Nur findet er das 'e' nicht.
Wen ich aber nach 'def' suche, dann wird es gefunden.
Kann man auch irgendwie einen Teilstring finden, in dem Fall das 'e' ?
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringList;
Index: integer;
begin
sl := TStringList.Create;
sl.Sorted:=True;
sl.Add('abc');
sl.Add('def');
sl.Add('ghi');
if sl.Find('e', Index) then begin
Color := clGreen;
end;
sl.Free;
end;