Delphi 6 - Textcursor im Edit verschieben

[Whiz-zarD]

Schau mal in den Eigenschaften von Edit1 beim Objektinspektor.

Dort müsstest du eigenschaft Namens "CharCase" finden.
Die musst du auf "ecUpperCase" setzen und schon macht das TEdit, was du willst.
Auch ohne selbstausgedachten Algorithmus

edit:
Übrigens:

Code (Delphi):

Edit1.Text := uppercase(edit1.text);
 

würde schon reichen und wäre auch schneller. Da er keine eigene Variable dafür anlegen muss.