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

[angel_ok]

Вопросик такой:
мне надо что б был запрет на ввод С маленькой буквы (выделяю "С" - потому что первая ДОЛЖНА быть заглавная,а последующие - маленькие)

begin
if key in ['а'..'я','a'..'z'] then
begin
key:=#0;
ShowMessage('Разрешается ввод с большой буквы');
end;

но после этого требуется что б и вторая, и третья и.т.д - тоже были большие!!!
Так как сделать,что б первая заперещал вводить маленькой,а разрешал?
спасибо

[FaTaL]

А просто самому не судьба автоматом переводить первую букву в заглавную через UpperCase?

[angel_ok]

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

А просто самому не судьба автоматом переводить первую букву в заглавную через UpperCase?

я в этом деле новичок,поэтому можно чуть -чуть поподробнее?

[maloun]

если всё это происходит в memo, а я почти уверен, что да...
я бы использовал цикл while с переменной boolean для включения и выключения цикла
и проверял бы каждую строку на символ, не знаю как там будет "заглавный" по этому сделал по нубски: заменял стринговое значение первого символа в каждой строке если первый символ строки 'с' заменяем его на 'C' и идём дальше)

хотя вот цикл for to do гораздо проще
от первой строки до последней делаем первый символ заглавным

[Alex Cones]

Если кодом, то

For I := 0 To Memo1.Lines.Count - 1 Do
 Memo1.Lines[I][1] := UpperCase(Memo1.Lines[I][1]);

Не проверял, но должно работать.

[maloun]

не пашет, пишет вот такие ошибки:
[Error] Unit1.pas(32): Left side cannot be assigned to
[Error] Unit1.pas(32): Incompatible types: 'Char' and 'String'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

+ у меня вопрос, а если первым сиволом будет не буква?

[Alex Cones]

у меня вопрос, а если первым сиволом будет не буква?

По идее после UpperCase не изменится.

не пашет

var
 I : Integer;
 C : Char;
 S : String;
begin
 For I := 0 To Memo1.Lines.Count - 1 Do
 Begin
  C {Char}:= Memo1.Lines[I][1];
  C := UpperCase(C)[1];
  S := Memo1.Lines[I];
  S[1] := C;
  Memo1.Lines[I] := S;
 End;

[angel_ok]

У меня в Edit
Нашла вот такой пример:

with Sender as TEdit do
if (SelStart = 0) or
(Text[SelStart] = ' ') then
if Key in ['a'..'z'] then
Key := UpCase(Key) ;

Все работает,т.е ПЕРВАЯ АНГЛИЙСКАЯ БУКВА маленькая - автоматом на ЗАГЛАВНУЮ переходит, но у меня русский алфавит....если в место "UpCase" поставить "AnsiUpperCase" - ошибка

[maloun]

Alex Cones откуда ты это берёшь?
щас проверю...

[maloun]

ну едит так едит))

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

По идее после UpperCase не изменится.

var
 I : Integer;
 C : Char;
 S : String;
begin
 For I := 0 To Memo1.Lines.Count - 1 Do
 Begin
  C {Char}:= Memo1.Lines[I][1];
  C := UpperCase(C)[1];
  S := Memo1.Lines[I];
  S[1] := C;
  Memo1.Lines[I] := S;
 End;

для мемо работает)))


а строку полную цифр удаляет...