Я попытался взглянуть на некоторые шаги, чтобы слово автоматически стало прописными буквами в первой букве. Я использовал его на VCL, и он работает очень хорошо, но почему в мобильных приложениях он не работает должным образом. Я использую этот код, но в edit2 я потерял первую букву, и слова начинаются со второй буквы, введенной в edit1, даже если она начинается с заглавной буквы. Может быть, кто-то может мне помочь. Большое спасибо
var i, j : integer;
s, edt2 : string;
Procedure
j := length(edt1.Text);
s := '';
for i := 2 to j do
begin
s := s + LowerCase(edt2.Text[i]);
end;
edt2 := UpperCase(edtProduk.Text[1]) + s;