Topic: Uppercase
Уважаемый Дмитрий!
Функкция Uppercase делает заглавными все буквы, а надо чтобы сделать только первую. Как быть?
Спасибо заранее.
My Visual Database → Russian → Uppercase
Уважаемый Дмитрий!
Функкция Uppercase делает заглавными все буквы, а надо чтобы сделать только первую. Как быть?
Спасибо заранее.
Hello Jonibek
You could try this
var sentence : string;
sentence[1] := uppercase(sentence[1]);
JB
Можно на русском языке?
пишет: "вы можете попробовать это"
но я не понял как это применить.
У меня на пример это сделано так:
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]);
procedure Form1_Edit1_OnExit (Sender: string);
begin
Form1.Edit1.Text[1] := UpperCase(Form1.Edit1.Text[1]);
end;
Отлично. Просто супер.
Form1.Edit1.Text:= Trim(Form1.Edit1.Text);
Это убирает лишние пробелы если они имеются в начале и в конце Edit1, а как убрать если они имеются в середине? Это в том случае если задумана что в Edit1 надо писать только одно слово.
Form1.Edit1.Text := ReplaceStr(Form1.Edit1.Text, ' ', '');
My Visual Database → Russian → Uppercase
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi