Edit mit allen Zeichen außer Tasten wie Tab/Enter usw.

[silentAMD]

Hi,
ich habe hier der quellcode für eine listview:

Delphi-Quellcode:

procedure TWinMain.list_filesKeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['a'..'z', '0'..'9']) then
    Key := #0
  else
  begin
    ed_search.Clear;
    ed_search.SetFocus;
    ed_search.Text := ed_search.Text+Key;
    ed_search.SelStart := length(ed_search.Text);
  end;
end;

mit dem code wird bezweckt, dass bei kleinbuchstaben-/zahleneingabe ins listview in ein editfeld gesprungen wird und der inhalt der listview gefiltert wird (also nach der eingegebenen zeichenkette im editfeld mit ansipos die einträge der listview neu eingelesen werden). nun habe ich das problem, dass ö, ä, ß und so weiter nicht berücksichtigt werden.

gibt es eine lösung, die alle tasten in der listview, außer enter, tab, umschalt, strg und so weiter zulässt?

PLEASE HELP!!

EDIT: wäre dies hier eine gute lösung oder werden da einige zeichen nicht berücksichtigt?

Delphi-Quellcode:

  if(key > #13) then
  begin
    ed_search.Clear;
    ed_search.SetFocus;
    ed_search.Text := ed_search.Text+Key;
    ed_search.SelStart := length(ed_search.Text);
  end;

[Der_Unwissende]

Zitat von silentAMD:

EDIT: wäre dies hier eine gute lösung oder werden da einige zeichen nicht berücksichtigt?

Delphi-Quellcode:

  if(key > #13) then
  begin
    ed_search.Clear;
    ed_search.SetFocus;
    ed_search.Text := ed_search.Text+Key;
    ed_search.SelStart := length(ed_search.Text);
  end;

Hi,
da solltest du aufpassen, die Tasten die du genannt hast würden so zwar berücksichtigt werden, aber es gibt noch weitere (wahrscheinlich genauso unerwünschte) Zeichen. Darstellbar sind die Zeichen eigentlich erst ab Sedezimal 20 oder halt Dezimal 32, wobei die 32 dann ein Space wäre. Zwischen der 13 und der 32 lägen noch Zeichen wie Substiture, NACK, EOT, SYN usw.

Gruß Der Unwissende

[silentAMD]

ohje... (gibt es eine liste, wo man nachschauen kann, wie die einzelnen codes sind?)

gibts für mein problem dann ne bessere lösung?

[Der_Unwissende]

Zitat von silentAMD:

ohje... (gibt es eine liste, wo man nachschauen kann, wie die einzelnen codes sind?)

gibts für mein problem dann ne bessere lösung?

Klar gibt es die, gilt jetzt für beide Fragen.

Liste findest du wenn du einfach nach Ascii Tabelle googlest.

Was die Lösung deines Problems angeht, du ersetz die 13 durch eine höhere Zahl >= 32.

[silentAMD]

okay vielen dank!!