[mav_c]

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

как сделать перевод в верхний регистр первого вводимого символа русского алфавита в Edit

Код:

 
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
 if (Length(edit1.Text) = 1) then
 begin
  if ((Ord(edit1.Text[1]) >= 224) and (Ord(edit1.Text[1]) <= 255)) then
  begin
   edit1.Text := AnsiUpperCase(edit1.Text);
   edit1.SelStart := 1;
  end;
 end;
end;