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

[Aleksandr]

.Я использую следующий код для перехода в верхний индекс

  with Sender as TEdit do  
  if (Text = '') or (Text[SelStart] = ' ')    
  or (SelLength = Length(Text)) then        
if Key in ['а'..'я'] then         
 Key := UpCase(Key);

но для русского языка не работает хотя для английского все работает. Что я делаю не так?
.

[Romanus]

Просто функции UpCase и UpperCase не работают с русскими буквами. Если хочешь чтобы они работали с русскими прийдется писать свою собственную функцию.

[Alex21]

UpCase по моему только под Инглиш заточен : (

[2face]

Для руского языка подходит ANSIUpperCase

[_SERGEYX_]

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;

procedure TfrmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   with Sender as TEdit do
      if (Text = '') or (Text[SelStart] = ' ')
         or (SelLength = Length(Text)) then
         if Key in ['а'..'я'] then
            Key := UpCaseRus(Key);
   if Key in ['a'..'z'] then
      Key := UpCase(Key);

end;

[Aleksandr]

Спасибо я уже нашел эту функцию в DelphiWorld.
C уважением Aleksandr!

[Alter]

Сообщение от _SERGEYX_

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;
 
procedure TfrmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   with Sender as TEdit do
      if (Text = '') or (Text[SelStart] = ' ')
         or (SelLength = Length(Text)) then
         if Key in ['а'..'я'] then
            Key := UpCaseRus(Key);
   if Key in ['a'..'z'] then
      Key := UpCase(Key);
 
end;

А непроще ли будет такой код, замена UpCase.
И ОЧЕНЬ коротко:
Function UpAll(Keys :Char):Char;
begin
CASE Key Of
'a'..'z','а'..'я': Result:=Chr(Ord(Keys)-32);
END;
end;

Для UpperCase:
Загнать строку в цикл и заменит при помощи функции UpAll все буквы.

[SERG1980]

Можно попроще:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var S:string;
begin
S:=Key;
Key:=AnsiUpperCase(S)[1];
end;

[Aleksandr]

SERG1980 нет не то у тебя пишет все заглавные, а нужно было чтобы первая заглавная остальные прописные.

[still_alive]

Здесь велосипед не нужен:

Key := AnsiUpperCase(Key)[1];

Это перевод символа из нижнего регистра в верхний (и для русских, и для английских), а условие, где тебе это надо, поставь сам.