Einzelnen Beitrag anzeigen

Benutzerbild von anse
anse

Registriert seit: 30. Okt 2006
Ort: Neuenkirchen
197 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: wieso markiert es kein Text?

  Alt 30. Okt 2006, 23:44
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;
Ansgar Becker
  Mit Zitat antworten Zitat