[Cors]

Когда пользователи вводят данные, часто они должны их форматировать нужным способом. Чтобы не зависеть от пользователя, Вы должны заставить программу сделать эту работу.

Например, если пользователь напечатает имя прописными буквами, программа должна автоматически преобразовать первую букву имени или фамилии в заглавную.

Код:

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

Этот код идёт тока на латинский, а мне надо его сделать на русский чтоб также работал.

[lmikle]

Код:

Edit1.Text := AnsiUpperCase(Copy(Edit1.Text,1,1)) + 
                    Copy(Edit1.Text,2,Length(Edit1.Text)-1);

или

Код:

var
  C : Char;
begin
  C := Edit1.Text[1];
  Case C Of
    'a'..'z' : C := Chr(Ord('A') + Ord(C) - Ord('a'));
    'а'..'я' : C := Chr(Ord('А') + Ord(C) - Ord('а'));
  End;
  Edit1.Text[1] := C;

Во втором случае:
1. В первой строке все буковки англ, во второй - русские
2. Если не дает использовать Edit1.Text[1], то делать через буф. строку.

[Cors]

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

Код:

Edit1.Text := AnsiUpperCase(Copy(Edit1.Text,1,1)) + 
                    Copy(Edit1.Text,2,Length(Edit1.Text)-1);

или

Код:

var
  C : Char;
begin
  C := Edit1.Text[1];
  Case C Of
    'a'..'z' : C := Chr(Ord('A') + Ord(C) - Ord('a'));
    'а'..'я' : C := Chr(Ord('А') + Ord(C) - Ord('а'));
  End;
  Edit1.Text[1] := C;

Во втором случае:
1. В первой строке все буковки англ, во второй - русские
2. Если не дает использовать Edit1.Text[1], то делать через буф. строку.

var
C : Char;
begin
C := Edit1.Text[1];
Case C Of
'a'..'z' : C := Chr(Ord('A') + Ord(C) - Ord('a'));
'а'..'я' : C := Chr(Ord('А') + Ord(C) - Ord('а'));
End;
Edit1.Text[1] := C;


Куда этот код прописать?

[NumLock]

PHP код:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);

procedure TForm1.Edit1Change(Sender: TObject);
var
  l: Integer;
begin
  if Length(TEdit(Sender).Text)>0 then
  begin
    l:=TEdit(Sender).SelStart;
    TEdit(Sender).Text:=AnsiUpperCase(TEdit(Sender).Text[1])+Copy(TEdit(Sender).Text, 2, Length(TEdit(Sender).Text));
    TEdit(Sender).SelStart:=l;
  end;
end;