onKeyPress Denkfehler?!

[jaikai]

Moin,

ich habe offensichtlich einen Denkfehler mit onKeyPress und dem Zeichen #08 (Back).
Ich verwende noc D5 und a gibt es keinen Autocomplete in Editfeldern, also ha ich mir was ausgedacht, was anundfürsiih klappt, tja bis auf eben...

Delphi-Quellcode:

procedure TMainForm.Such_Box_1KeyPress(Sender: TObject; var Key: Char);
var i, j, x : integer;
    item : TListitem;
    s : string;
begin
   if Key = #08 then begin
      if Such_Box_1.SelStart <> Length(Such_Box_1.Text) then begin
         Such_Box_1.SelStart := Such_Box_1.SelStart -1;
         Such_Box_1.SelLength := Length(Such_Box_1.Text)- Such_Box_1.SelStart   ;
         Such_Box_1.SelText;
         Such_Box_1.ClearSelection;
         end;
      end;

   s := ansilowercase( copy (Such_Box_1.Text, 0, Such_Box_1.SelStart ) + key);
   if Key = #08 then s := ansilowercase( copy (Such_Box_1.Text, 0, Such_Box_1.SelStart )) else
                     s := ansilowercase( copy (Such_Box_1.Text, 0, Such_Box_1.SelStart ) + key);
   x := length(s) ;
   trim(s);          // enthält noch #08 Zeichen!

  if s <> '' then
     for i := 0 to SuchListe_C.count -1 do begin
     if Ansipos(s, ansilowercase(SuchListe_C.strings[i])) = 1 then begin
        Such_Box_1.SelectAll;
        Such_Box_1.Clear;
        Such_Box_1.Text := Suchen_LV.Items[i].SubItems[1] ;
        Such_Box_1.SelStart := x ;     // Suchstring incl Taste
        Key := #08;     // Muß, sonst doppeltes Zeichen
        Suchen_LV.Selected := Suchen_LV.Items[i];
        item := Suchen_LV.items[i];
        Item.MakeVisible(true);
        Suchen_LV.hideselection := false;
        break;
        end;
     end;
end;

procedure TMainForm.Such_Box_1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Such_Box_1.setfocus;
  // Such_Box_1.SelLength := Length(Such_Box_1.Text)- Such_Box_1.SelStart +1 ;  // org
  Such_Box_1.SelLength := Length(Such_Box_1.Text)- Such_Box_1.SelStart  ;
  Such_Box_1.SelText;
end;

Problem:
User tippt Buchstabe, Liste wird geprüft, Eintrag liegt vor und Edit.text wird umgeschrieben, ab Cursor bleibt es markiert.
Ist aber der Cursor an letzter Stelle (weil Eintrag nicht länger ist) und User drückt #08 (Back-Taste) dann werden direkt 2 Zeichen gekillt, oder aber, wenn ich
versuche #08 abzufanen (if Key =/<> #08) findet er die Listeneinträge nicht, weil der Suchstring Zeichen #08 noch drankleben hat.

Liste:
Affaire
Affe
Affekt
Affen

Habe ich Affen stehen, und lösche das letzte Zeichen (#08) springt die Routine auf 'Affaire', statt auf Affe und blockiert #08, weil die gekoppelte Suchroutine 'Affaire' findet.

Wo liegt mein Denkfehler?
Wann wird Key #08 Delphiintern wirklich umgesetzt - vorher - hinterher?


Danke

[s-off]

Hallo,

guckst Du mal hier Autovervollständigen in Edit-Feld

[Angel4585]

   trim(s); // enthält noch #08 Zeichen! sollte das nicht

   s:=trim(s); // enthält noch #08 Zeichen! heissen?

[jaikai]

Hab vorher schon gewühlt und nix gefunden - Habs geändert - Danke s-off