• Registered: 2017-04-22
  • Posts: 46

Topic: Uppercase

Уважаемый Дмитрий!
Функкция Uppercase делает заглавными все буквы, а надо чтобы сделать только первую. Как быть?
Спасибо заранее.

  • Registered: 2014-08-02
  • Posts: 917

Re: Uppercase

Hello Jonibek

You could try this

var sentence : string;


sentence[1] := uppercase(sentence[1]);

JB

  • Registered: 2017-10-27
  • Posts: 18

Re: Uppercase

Можно на русском языке?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Uppercase

пишет: "вы можете попробовать это"

Dmitry.
  • Registered: 2017-10-27
  • Posts: 18

Re: Uppercase

но я не понял как это применить.
У меня на пример это сделано так:
procedure AddDay_Edit1_OnExit (Sender: string);
var
i: integer;
begin
      i:= Length(AddDay.Edit1.Text)-1;
      AddDay.Edit1.Text:= Trim(AddDay.Edit1.Text);
      AddDay.Edit1.Text:= Uppercase(Copy(AddDay.Edit1.Text,1,1))+Lowercase(Copy(AddDay.Edit1.Text,2,i));
end;

А как на моем примере применить:
var sentence : string;

sentence[1] := uppercase(sentence[1]);

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Uppercase

procedure Form1_Edit1_OnExit (Sender: string);
begin
    Form1.Edit1.Text[1] := UpperCase(Form1.Edit1.Text[1]);
end;
Dmitry.

7 Reply by alamsho (edited by alamsho 2017-10-30 18:35:16)

  • Registered: 2017-10-27
  • Posts: 18

Re: Uppercase

Отлично. Просто супер.

Form1.Edit1.Text:= Trim(Form1.Edit1.Text);

Это убирает лишние пробелы если они имеются в начале и в конце Edit1, а как убрать если они имеются в середине? Это в том случае если задумана что в Edit1 надо писать только одно слово.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Uppercase

Form1.Edit1.Text := ReplaceStr(Form1.Edit1.Text, ' ', '');
Dmitry.