Почему не работает этот код на андроид из Delphi xe 10?

Question

[Romanson]

На windows работает на андроид нет, почему?

procedure TForm1.ListBox1ItemClick(const Sender: TCustomListBox;
const Item: TListBoxItem);
var
n, i: integer;
s, k, c, v, d: string;
begin
ListBox2.Clear;
n := ListBox1.ItemIndex;

k := ListBox1.Items[ListBox1.ItemIndex];
if length(k) = 1 then
s := k
else
s := k[2];

if n = strtoint(s) then
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin

v := Memo1.Lines.Strings[i];

if length(v) = 1 then
c := v

else
begin
c := v[2];
if c = s then
begin

d := Memo1.Lines.Strings[i];
ListBox2.Items.Add(d);
end;
end;
end;
end;

end;

Answer 1

[Александр]

Из-за особенностей преобразования вашего паскаля в Java. Лучше програмировать на Java под андроид, потому что неивестно насколько качественно преобразуется код.

Comments

[Romanson]

Лучше бы узнать альтернативный выход из положения, без Java

[Александр]

ну начните с выяснения что именно не работает в коде: Memo1.Lines.Strings[i]; или ListBox2.Items.Add(d);

[Romanson]

Александр: Как выясняется вместо цифры (второго символа в строке) имеющая вид "#0 Текст" выводит букву "И"... не понятно. все работает но выводит не понятно что

[Александр]

наверно проблема в разных кодировках - попробуйте без русских букв

[Romanson]

Александр: нет это не причина.

Answer 2

[Romanson]

Решил

Comments

[instigator21]

Ну и как решили?

[Romanson]

instigator21: не правильно указанны окончания циклов. Когда расставил все end на свои места все заработало. Сейчас этот код удалил, он слишком тугой - посоветовали тут. я переписал и использую другой, так же включил StringGrid