Duncon » 10 фев 2014, 16:09
Кстати погугли что-нить на тему свойства SelStart.. Дэльфы под рукой нет чтоб посмотреть правильно ли свойство называется, это по поводу взять символ из компонента.
По поводу узнать регистр можно сделать так:
[syntax=Delphi]
if oneChar in ['А'..'Я','A'..'Z'] then Верхний регистр //дэльфи до уникода
if CharInSet(oneChar,['А'..'Я','A'..'Z']) then Верхний регистр //уникод Delphi 2009+
[/syntax]
Всё что остаётся вытащить нужный символ на проверку..
Кстати погугли что-нить на тему свойства SelStart.. Дэльфы под рукой нет чтоб посмотреть правильно ли свойство называется, это по поводу взять символ из компонента.
По поводу узнать регистр можно сделать так:
[syntax=Delphi]
[color=#000000][b]if[/b][/color] oneChar [color=#000000][b]in[/b][/color] [color=#000066][[/color][color=#ff0000]'А'[/color][color=#000066]..[/color][color=#ff0000]'Я'[/color][color=#000066],[/color][color=#ff0000]'A'[/color][color=#000066]..[/color][color=#ff0000]'Z'[/color][color=#000066]][/color] [color=#000000][b]then[/b][/color] Верхний регистр [color=#808080][i]//дэльфи до уникода[/i][/color]
[color=#000000][b]if[/b][/color] CharInSet[color=#000066]([/color]oneChar[color=#000066],[/color][color=#000066][[/color][color=#ff0000]'А'[/color][color=#000066]..[/color][color=#ff0000]'Я'[/color][color=#000066],[/color][color=#ff0000]'A'[/color][color=#000066]..[/color][color=#ff0000]'Z'[/color][color=#000066]][/color][color=#000066])[/color] [color=#000000][b]then[/b][/color] Верхний регистр [color=#808080][i]//уникод Delphi 2009+[/i][/color]
[/syntax]
Всё что остаётся вытащить нужный символ на проверку..