Генерация рандомных букв. Android. Delphi XE7.

[Satellite]

На Windows функция генерации работает отлично, а вот на Android она подкашивается и появляются какие-то пробелы, точнее даже не пробелы, а пустота. Сама функция такая:

 function getRandChar(exc:string):string;
  var
    i:integer;
    cl:string;
  begin
    cl:='АБВГДЕЖЗИКЛМНОПРСТУЧЫЭЮЯ';
    Result:=#0;
    for i:=1 to length(exc) do
    begin
      delete(cl,Pos(exc[i],cl),1);
    end;
    Result:=cl[1+random(Length(cl))];
  end;

Далее результат присваивается к двумерному кнопочному массиву:

  For j:=0 to High(btn) do
  begin
    for i:=0 to High(btn[j]) do
    begin
      btn[j,i].text:=getRandChar(temp_s);
    end;
  end;

temp_s - это заданное слово. не понимаю почему на android'e попадаются этакие пробелы. чяднт?

[Satellite]

Странно, но только вот так нормально работает на Android, чудеса.

Result:=copy(cl, random(length(cl)),1);

[haword]

различные длины байтов для символов в разных кодировках. в юникоде два байта для символа в utf8 для нглийских букв один для русских два. прочитайте в инете как правильно работать с уникодными строками в делфи начиная с 2010 версии. 

[Кривяков Виталий]

Добрый день!

Приложения, собираемые под мобильную платформу содержат отличие в работе со строками - нумерация символов идет с 0. Возможно дело в этом.

    for i:=Low(exc) to High(exc) do
    begin
      delete(cl,Pos(exc[i],cl),1);
    end;

Такой код должен работать одинаково на всех платформах.

Подробнее можно почитать здесь:

http://docwiki.embarcadero.com/RADStudio/XE6/en/Migrating_Delphi_Code_to_Mobile_from_Desktop

Изменено 4 марта, 2015 пользователем Andrey Yefimov
Поправил ссылку

[Brovin Yaroslav]

Добрый день,

• Правда ли, что на мобильных платформах Delphi работает с 0-основными строками?
• На мобильных платформах строки начинаются с 0 индекса.