AniIndicator1.enabled := true; AniIndicator1.Visible := true; как с этим работать?

Денис Загаевский: спасибо за направление, я как ел дном ложки вверх при написании кода так и остаются блин ошибки в логике вещей)

AniIndicator1.enabled := true; AniIndicator1.Visible := true; как с этим работать?

Денис Загаевский: если загружать базу вместо мемо в ту же переменную string и с нее вести манипуляции для отображения далее в лист так будет правильнее и быстрее я в ту сторону думаю? или так не получится например

var
s:string;
brgin
s:=memo1.loadfromfile('Бла бла');
end и с 's' уже манипулировать

AniIndicator1.enabled := true; AniIndicator1.Visible := true; как с этим работать?

Денис Загаевский: как бы то не странно звучало Но да. дело в том что в memo хранится некий список, который по группам строк нумеруется от 0 до 30. допусти строк начинающихся на 0 - 40 штук, на 1 - 50 и т.д. в коде что предоставил есть цикл поиска имени нажатой Item в Listbox который сверяется с номером порядковым этой же Item и ищет соответсвующее значение в базе memo для вывода в Listbox2. происходит взависимости от утсройства у кого быстро у кого нет. тем не менее индикатор нужен

AniIndicator1.enabled := true; AniIndicator1.Visible := true; как с этим работать?

Андрей: отдавая AniIndicator1.Visible := true; на ProcessMessages() тормозит форма при событии onitemclick... все как бы появляется но индикатор не крутится

AniIndicator1.enabled := true; AniIndicator1.Visible := true; как с этим работать?

Это все здорово, как исходя из моего кода можно вывести аналогично асинхронную задачу? т.е. это паралельный поток какой то? только не таймер.

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

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

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

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

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

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

Кто поможет разобраться в коде по ListBox?

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; нашел решение всего, спасибо за совет)