Вывод данных при рекурсии.

[gOsToFf]

Здравствуйте. Есть задача снимать данные BT и выводить на экран. Собственно сама задача решена. Но есть проблема в том что нужно делать это циклично.

То бишь выглядит все так:

procedure TForm1.On_btImgClick(Sender: TObject);
begin
  On_BitAni.Enabled := TRUE;
  Tracking:= 1;
  repeat
      getData;
  until (Tracking <> 1);
end;

procedure TForm1.getData;
var
  searchMe:string;
  RegEx: TRegEx;
  Options: TRegExOptions;
  M: TMatchCollection;
  i,j:integer;
begin
  BTMethod.SendData( TargetPaireNo, '1' + #$15 );
  searchMe := BTMethod.ReadDataS( TargetPaireNo );
 //создаем объект
 RegEx:=TRegEx.Create('#(\w+):(\d+)?#',[roIgnoreCase,roMultiline]);
 if RegEx.IsMatch(searchMe)then
   begin
     M:=RegEx.Matches(searchMe,'#(\w+):(\d+)?#',[roIgnoreCase,roMultiline]);
     for  i:=0 to M.Count-1 do
       begin
           if (M.Item[i].Groups[1].Value =  'ENGRPM')
            then  begin
              TENGRPM.Text := M.Item[i].Groups[2].Value;
            end;
           if (M.Item[i].Groups[1].Value =  'ENGTEMP')
            then  begin
               TENGTEMP.Text := M.Item[i].Groups[2].Value;
            end;
           if (M.Item[i].Groups[1].Value =  'SCREWRPM')
            then  begin
               TSCREWRPM.Text := M.Item[i].Groups[2].Value;
            end;
           if (M.Item[i].Groups[1].Value =  'ENGPPS')
            then  begin
               TENGPPS.Text := M.Item[i].Groups[2].Value;
               TENGPPSBAR.Value := StrToInt( M.Item[i].Groups[2].Value );
            end;
           if (M.Item[i].Groups[1].Value =  'SCREWTEMP')
            then  begin
               TSCREWTEMP.Text := M.Item[i].Groups[2].Value;
            end;
           if (M.Item[i].Groups[1].Value =  'FUEL1LEFT')
            then  begin
               TFUEL1LEFT.Text := M.Item[i].Groups[2].Value;
            end;
           if (M.Item[i].Groups[1].Value =  'FUEL2LEFT')
            then  begin
               TFUEL2LEFT.Text := M.Item[i].Groups[2].Value;
            end;
       end;
   end;
end;

Нужно замкнуть процедуру - procedure TForm1.getData;

Но как бы я этого не делал ( while, repeat, вызов самой из себя ) ничего не получается. Приложение не отрабатывает ни разу ( не вижу данных ).
И в итоге вылетает.

Это RadStudio 10 ситл. И приложение под андроид.

Подскажите как решить данную проблему?

Потому что если я убираю все циклы и щелкаю кнопку постоянно все работает нормально.

[Terikon]

Попробуй запустить через отладчик, ошибку может выдаст

у тебя постоянно создаются объекты,сделай глобальными и выведи их отдельно
RegEx:=TRegEx.Create('#(\w+)\d+)? #',[roIgnoreCase,roMultiline]);

[phomm]

Таймер пробовали ?

Насчёт создания и неудаления объектов регэкспа - я полагаю, оно не приводит к утечкам, т.к. на андроиде в дельфи есть автоматическое управление временем жизни объектов через ARC.

[gOsToFf]

проблему решил переведя на отделение потоков.

procedure TForm1.On_btImgClick(Sender: TObject);
begin
  On_BitAni.Enabled := TRUE;
  Tracking := 1;
  TThread.CreateAnonymousThread(procedure ()
  begin
    while Tracking = 1 do begin
      TThread.Synchronize (TThread.CurrentThread,
      procedure ()
      begin
         getData;
      end);
    end;
  end).Start;
end;

Таймеры тоже пробовал. но проблему не решало.

По рекекспу, объявлен он внутри процедуры, поэтому он уничтожается после закрытия процедуры.

А теперь еще вопрос. Кто знает как сделать чтобы андроид не блокировал экран?)

[northener]

Сообщение от gOsToFf

По рекекспу, объявлен он внутри процедуры, поэтому он уничтожается после закрытия процедуры.

Кто он? Не знаком ни с Seatle, ни с FMX. Но и ни разу не слышал чтобы в какой-либо версии Дельфи объекты (экземпляры классов) созданные внутри некой процедуры автоматически уничтожались бы при выходе из этой процедуры. Ссылка на них естественно теряется, но сами объекты живут своей жизнью вплоть до завершения процесса.

[phomm]

northener, читаем главу ARC тут www.gunsmoker.ru/2013/05/modern-delphi.html‎ (хоть речь и про хе4 , актуальную на момент создания статьи, но я гуглил, Марко Кэнту упоминает что для ондрюшки в хе5+ сделано то же самое)

Однако GunSmoker указывает, как можно писать в совместимости с обоими моделями управления памятью, что более корректно, ввиду кроссплатформенности, хоть и избыточно для некоторых случаев.

Чтобы андроид не блокировал, имеется в виду блокировку экрана по прошествии отведённого времени, которое настроил пользователь или упаси б-г по кнопке выкл? Идея очень плохая, но должно быть можно, загляните на www.fmxexpress.com там много статей.