Ввод с большой буквы

[Alex Cones]

Подправил свой пример.

var s:string;
begin
For I := 0 To Memo1.Lines.Count - 1 Do
s:= UpperCase(Memo1.Lines[I]);
s[1]:=UpperCase(s[1]);
end;

Позвольте, а нафига вы UpperCase два раза вызываете?

У меня в Edit

Тогда убираете внешний цикл. Если не работает UpperCase с русскими - пишете свой с Chr

[maloun]

Сообщение от Alex Cones

Подправил свой пример.
Позвольте, а нафига вы UpperCase два раза вызываете?

опечатка

[angel_ok]

так как сделать для edit?
повторюсь:
with Sender as TEdit do
if (SelStart = 0) or
(Text[SelStart] = ' ') then
if Key in ['a'..'z'] then
Key := UpCase(Key) ;

работает для анг.расскладки,можно это как-нить сделать для русского алфавита?

[Aleksandr]

Вот функция

 // Верхний регистр

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 TForm1.Edit2KeyPress(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)
          else
      if Key in ['a'..'z'] then
          Key :=UpCase(Key) ;
  end;

[Aleksandr]

Вот исходник.

[Alexei91]

<CODE>
with Sender as TEdit do
if (SelStart = 0) or
(Text[SelStart] = ' ') then
if Key in ['a'..'z'] then (* замените ['a'..'z'] на ['а'..'я'] *)
Key := UpCase(Key)
</CODE>
Хоть мельком смотрите,что написано.

[asmodey1]

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

так как сделать для edit?
...
работает для анг.расскладки,можно это как-нить сделать для русского алфавита?

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var num: integer;
    tmp,tmps: string;
begin
tmp:=(Sender as TEdit).Text;
tmps:='';
for num:=1 to Length(tmp) do
begin
if num=1 then
tmps:=tmps+AnsiUpperCase(tmp[num]) else
tmps:=tmps+AnsiLowerCase(tmp[num]);
end;
(Sender as TEdit).Text:=tmps;
if Length(tmps)=1 then
(Sender as TEdit).SelStart:=2;
end;