Как сделать лучше?

[NotHerald]

TestLoad := TStringList.create; 
testload1 := TStringList.Create; 
TestLoad.LoadFromFile('1.txt'); 
TestLoad1.LoadFromFile('2.txt'); 

JSON := TJSONObject.Create; 
JSON.Parse(TEncoding.UTF8.GetBytes(TestLoad.Text), 0); 
JSONArray := JSON.Values['response'].AsType<TJSONArray>; 
JsonArrEnum := JSONArray.GetEnumerator; 

JSON1 := TJSONObject.Create; 
JSON1.Parse(TEncoding.UTF8.GetBytes(TestLoad1.Text), 0); 
JSONArray1 := JSON1.Values['response'].AsType<TJSONArray>; 
JsonArrEnum1 := JSONArray1.GetEnumerator; 

while JsonArrEnum.MoveNext do 
begin 
JsonArrEnum1.MoveNext; 
if JSONArrEnum1.Current.Value <> JSONArrEnum.Current.Value then 
begin 
if Pos(JsonArrEnum1.Current.Value, TestLoad.Text) = 0 then 
Writeln('Нашли его :' + JSONArrEnum1.Current.Value); 
end; 
end;

Процесс поиска и сравнения долговат, есть у кого идея получше?
Мне нужно сделать проверку наличие значения в массиве Jsonarr, думаю понятно.

[NotHerald]

чуть чуть отредачил код убрав тупость, но этого толку все равно не дало
я сделал что бы сразу проверяло на наличие а не сравнивать.

мне кажется Pos моросит и подтупливает проходимость, но как по другому?

    while JsonArrEnum1.MoveNext do
    begin
        if Pos(JsonArrEnum1.Current.Value, TestLoad.Text) = 0 then
          Writeln('Нашли его :' + JSONArrEnum1.Current.Value);
    end;

[NotHerald]

Нашел пару функций которые вроде мне и нужны, только во первых они работают чуть по другому ищут заголовок пары, а мне нужно сравнивать значение

for m := 0 to (JsonArray.Get(i) as TJSONObject).Size-1 do ShowMessage((JsonArray.Get(i) as TJSONObject).Get(m).ToString);

for m := 0 to (JsonArray.Get(i) as TJSONObject).Size-1 do ShowMessage((JsonArray.Get(i) as TJSONObject).Get(m).JsonString.Value);

[Аватар]

А принудительный выход из цикла при удачном поиске? Ну и найдено если Pos > 0. Или 1 если обязательно с начала строки

[NotHerald]

Нашел тему на форуме с тем что мне нужно
а именно проверка наличие элемента в Json
но и даже так я не понимаю, она работает так же как мне и не нужно, блин меня это просто бесит, мне нужно элементарно проверить наличие значение в json и у меня это тупо не получается сделать нормально, а ответы которые нашли юзеры не подходят мне

    jsValue := jsObject.GetValue('ping');
    // if Assigned(jsObject.GetValue('ping')) then
    if Assigned(jsValue) then
    begin
      // iPingValue := StrToInt(jsValue.Value);
      if StrToInt(jsValue.Value) = 0 then
        Self.Send := GetNetMessagePong;
    end;

[NotHerald]

Сообщение от Аватар

А принудительный выход из цикла при удачном поиске? Ну и найдено если Pos > 0. Или 1 если обязательно с начала строки

дело не в выходе цикла, айди спрятан в 80-70 тысячной позиции
он находит ее не очень таки быстро ~ около 8 минут

[evg_m]

мне кажется Pos моросит и подтупливает проходимость, но как по другому?

а зачем много-много раз заново считать полный текст

while ...
   Pos(JsonArrEnum1.Current.Value, TestLoad.Text) = 0 ) then

s:=TestLoad.Text;//ВЫЧИСЛИЛИ один раз и ...
while ...
  Pos(,,,, s )=0

аналогичное решение и ...
https://www.programmersforum.ru/show...Text%3B&page=2

[NotHerald]

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

а зачем много-много раз заново считать полный текст

while ...
   Pos(JsonArrEnum1.Current.Value, TestLoad.Text) = 0 ) then

s:=TestLoad.Text;//ВЫЧИСЛИЛИ один раз и ...
while ...
  Pos(,,,, s )=0

аналогичное решение и ...
https://www.programmersforum.ru/show...Text%3B&page=2

Мне понравилось, скорость улучшилось, но все же может как то быстрей через проверку элемента в массиве json?

[NotHerald]

Уже не актуально, всем спасибо за внимание.