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;