Текущий архив: 2003.02.17;
Скачать: CL | DM;
Вниз
Нужен аналог UpCase() Найти похожие ветки
← →
Inan61 (2003-02-06 12:37) [0]В данном примере при вводе в Edit первый символ переводится в верхний регистр, но работает только с латиницей. Как то же самое выполнить с кирилицей?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Edit1.SelStart=0 then Key := UpCase(Key);
end;
← →
mrcat © (2003-02-06 12:41) [1]AnsiUpperCase()
← →
JohnnyJ © (2003-02-06 12:43) [2]AnsiUpperCase, но в приведенном примере проще у Edit"а поставить CharCase = ecUpperCase
← →
Inan61 (2003-02-06 12:50) [3]
> JohnnyJ © (06.02.03 12:43)
> AnsiUpperCase, но в приведенном примере проще у Edit"а поставить
> CharCase = ecUpperCase
К верхнему регистру должен преобразовываться только первый символ!
← →
gsu © (2003-02-06 13:14) [4]>> if Edit1.SelStart=0 then Key := UpCase(Key);
тут он и так один
а с 1 символом, например:
simbol:=AnsiUpperCase(Edit1.Text[1]);
Страницы: 1 вся ветка
Текущий архив: 2003.02.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c
