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

Нужна помощь в создании данной функции к софту.
Кто чем поможет?

 

Ищешь по циклу For i to
Проверяешь каждую строку.
Если в строке есть Demo , beta , sims и т.д
тогда
Games.Delete(i);

Точно не помню сам код , но я сделал так и все работает.

 

Function Skip(Games:TStringList):TStringList;
var
I:Integer;
begin
for i:=0 to Games.Count-1 do
begin
if ('Beta',Games.Strings)>0) or (pos('Demo',Games.Strings)>0) or (pos('Sims',Games.Strings)>0) then
Games.Delete(i);
end;
end;

Попробуй такую функцию , хз , писал не в делфи , писал тут , возможно будет работать.

Skip(Переменная где игры);

Так же советую использовать функцию AnsiLowerCase , то есть if pos('Demo',AnsiLowerCase(Games.Strings))>0) then

Не знаю вообщем , может будет работать , попробуй :\
Если что не правильно , исправь.

 

Или же можно просто из строки там где найден demo .....
Сделать пустую строку , а потом StringReplace'ом '',#13#10(или #10#13) и будет норм.
Думаю , тебе помог

 

Если я правельно понял.
skip beta/sims - т.е. пропускать аккаунт на котором есть это гавнецо. просто if pos('Sims',документ)<>0 then бэд else good
или же
удалять их с текста как подсказал deival909

 

Если сделать как сказал ты , то будет пропускать аккаунт даже в том случае , если в нем будет бф3 и т.д

 

Так есть же исходник Origin Private by Nikon посмотри там.

 

Там вроде по циклу и Delete(i);
Будет ошибка Bound

 

Знаю, тогда функция вообще бред, т.к. смысл просто удалять строку sims ?

 

Всмысле , что ты имеешь ввиду ?

 

Давид, когда удаляешь[Games.Delete(i)], то пустая строка остается?

 

Остается, но их можно убрать функцией Trim

 

Одни глупости. Куча циклов не нужных.