Перевод символа в верхний регистр

← →
DIS (2004-06-03 13:39) [0]

Мастера подскажите как использовать функцию Перевода символа в верхний регистр в TEdit Вот собственно нашел её
function UpCaseRus( ch : Char ) : Char; asm CMP AL,"a" JB @@exit CMP AL,"z" JA @@Rus SUB AL,"a" - "A" RET @@Rus: CMP AL,"я" JA @@Exit CMP AL,"а" JB @@yo SUB AL,"я" - "Я" RET @@yo: CMP AL,"ё" JNE @@exit MOV AL,"Ё" @@exit: end;
Но не знаю, как ею воспользоваться (как её вызвать). Это что-то типа пишешь маленькими буквами, а в Edit пишутся большие. Есть аналогичная функция в System только для латинских букв.
procedure TForm2.Edit1Change(Sender: TObject); begin end;

← →
Тимохов © (2004-06-03 13:41) [1]

> DIS (03.06.04 13:39)

на фиг эту лабуду

пользуйтесь ansiuppercase

← →
DIS (2004-06-03 14:35) [2]

Спасибо огромное. Попробовал как в примере действительно, то, что нужно!
А теперь прикол, если написать так см. ниже. то последующий символ встает перед первым. КАК В ЭТОМ СЛУЧАЕ написать правильно?
procedure TForm2.Edit3Change(Sender: TObject); begin Edit3.Text := ansiuppercase(Edit3.Text);

← →
begin...end © (2004-06-03 14:43) [3]

> [2] DIS (03.06.04 14:35)

Edit3.SelLength := 0;
Edit3.SelStart := Length(Edit3.Text);

← →
Leshiy © (2004-06-03 14:50) [4]

Есть такое свойство CharCase. Может его попробовать?

procedure TForm2.Edit3Change(Sender: TObject); begin Edit3.OnChange := nil; try Edit3.Text := AnsiUpperCase(Edit3.Text) finally Edit3.OnChange := Edit3Change end end;

а вообще см. [4]

← →
DIS (2004-06-03 22:18) [6]

Всем спасибо все работает
> begin...end © (03.06.04 14:43) [3]
>
> > [2] DIS (03.06.04 14:35)
>
>
> Edit3.SelLength := 0;
> Edit3.SelStart := Length(Edit3.Text);

Перевод символа в верхний регистр Найти похожие ветки