Eingabefeld mit automatik gesucht

[Darlo]

Ich packe alle möglichen Ergebnisse in eine StringList. Beim Edit onKeyUp

Delphi-Quellcode:

  {$IFDEF MsWindows}
  TEdit(sender).Text := UpperCase(Copy(TEdit(sender).Text,1,1))+LowerCase(Copy(TEdit(sender).Text,2,Length(TEdit(sender).Text)));
  if bAutoComplete then
   for I := 0 to slNationalitaet.Count - 1 do
   begin
    with TEdit(sender) do
    begin
      if (Text = '') or (LowerCase(slNationalitaet[I]) = LowerCase(Text)) then
        Exit;
      if StrLComp(PChar(LowerCase(slNationalitaet[I])), PChar(LowerCase(Text)),
        Length(Text)) = 0 then
      begin
        StartPos := Length(Text);
        Text := Text + Copy(slNationalitaet[I], StartPos + 1, Length(slNationalitaet[I]));
        SelStart := StartPos;
        SelLength := Length(Text) - StartPos;
        Exit;
      end;
    end;
   end;
   {$ENDIF}

Und im onKeyDown

Delphi-Quellcode:

  {$IFDEF MsWindows}
  if Key = vk_Back then bAutoComplete := false else bAutoComplete := true;
  {$ENDIF}