Checkbox aktivieren bei bestimmten buchstaben in TEdit

[JanWe]

falls Du mehrere Checkboxen (wenn ich Deinen ersten Thread richtig gelesen hab ..) setzen willst.. würd ich das so machen.
Allerdings dürfte das aus Geschwindigkeitsgründen dann nur noch nach Abschluß des Tippens funktionieren.
Per Button - ausführbar (Button.click z.B. wenn RETURN gedrückt wurde.

Delphi-Quellcode:

procedure TForm1.Button1click(Sender: TObject); //Edit2Change erstmal nicht
var s, ch : String:
i, j : integer;
begin
  s := Edit1.text;
  Lenst := length(s) - 1; // ausnahmsweise schon mal 1 abgezogen

  for j := 1 to 26 do begin // erstmal alle clearen
    Checkbox1.checked := false;
    Checkbox2.checked := false;
    Checkbox3.checked := false;
    ....
    Checkbox26.checked := false;
  end;

  for i := 1 to LenSt(s) do begin // 1 ist bereits abgezogen!!, s.o.
    ch := lowerchar(s[i]);

    case ch of
      'a': Checkbox1.checked := true;
      'b': Checkbox1.checked := true;
      'c': Checkbox1.checked := true;
// ...
      'y': Checkbox1.checked := true;
      'z': Checkbox1.checked := true;
    end;

  end;

end;