Delphi Android, делая первые буквы заглавными.Но не на VCL - PullRequest
0 голосов
/ 15 сентября 2018

Я попытался взглянуть на некоторые шаги, чтобы слово автоматически стало прописными буквами в первой букве. Я использовал его на 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;

1 Ответ

0 голосов
/ 15 сентября 2018

В мобильных платформах Delphi вы должны понимать, что строки начинаются с нуля (как массивы).

Чтобы избежать проблем, если вы хотите получить доступ к первому и последнему индексам строки безопасным кроссплатформенным способом, используйте в строке System.Low и System.High.

...