skip beta/sims - подсказать

For i:=Games.Count-1 Downto 0 do
if Pos('',Games.Strings)>0 then Delete(i)

Критов быть не должно.

 

Пустая строка остается или нет?

 

При удалении остаётся.

 

В каком смысле пустая строка ? В конце ? или при удалении не нужно ? если при удалении не нужно - не остается .

 

Еше можно так где начинается парс игры с оригина тоесть до RegEX.Match
ставишь так
if (pos('Demo', gamess.Strings)<>0) or (pos('Sims', gamess.Strings)<>0) or (pos('Beta', gamess.Strings)<>0) or (pos('™', gamess.Strings)<>0)then
begin
gamess.Delete(i);
gamess.Text:='Платные Игры не найдены';
Form3.sLabel18.Caption:=inttostr(strtoint(Form3.sLabel18.Caption)+1); //(это показывает в лейбле скоко акков с демо симс,бета)
end else
begin
gamess.Strings;
end;
end;
Но в текст файле сохраняет если бета симс демо альфа, то просто не пишет игры а пишет платные игры не найдены,
там где бэд и добовление в лейбл бэдов сделай такую строчьку
gamess.text:='Платные игры не найдены';
и тогда эти акки будут идти в бэды.