wieso markiert es kein Text?

[anse]

Jo, du mußt alle Entries einzeln vergleichen, in etwa so:

Delphi-Quellcode:

entries.items.ItemIndex := -1;

for i:=0 to entries.items.count-1 do
begin
  // Länge prüfen
  if Length(entries.items[i]) < Length(Edit_schnellzugriff.Text)) then
    continue;
  // Textanfang vergleichen (todo: klappt das auch case-insensitive?)
  if Edit_schnellzugriff.Text = Copy( entries.items[i], 1, Length(Edit_schnellzugriff.Text) ) then
  begin
    entries.items.ItemIndex := i;
    break; // Nicht sinnlos weitersuchen
  end;
end;