Почему моя программа РАБОТАЕТ!!!

[aesoem]

Здравствуйте, пишу программу каторая будет сравнивать строки файла
с базой таких строк - если к примеру в 1 строке текста есть текст 111 а в базе он на 10 строке ТЕОРИТИЧЕСКИ он не должен его находить

var
virus,bases:tStrings;
i,ib:Integer;
begin
bases:=Tstringlist.Create;
bases.LoadFromFile(scomboedit2.Text );
virus:=Tstringlist.Create;
virus.LoadFromFile(scomboedit1.Text );

for i:=0 to virus.Count-1 do
for ib:=0 to bases.Count-1 do
if virus.Strings[i]=bases.Strings[ib] then
begin
beep;
sgauge1.Progress:=100;
end;
virus.Free;
bases.Free;
sleep(100);
sgauge1.Progress:=0;
end;

хотя мне так и надо чтобы сканило весь файл и всё базу!!!
Но по коду я прописал чтобы увеличивались переменные i and ib ОДНОВРЕМЕННО и ОДИНАКОВО...
Кароче я ваще запутался!

[N!ckeL]

Пробуй так:

var
virus,bases:tStrings; //ая я яй!!! вирусы пишем?
i,ib:Integer;
begin
bases:=Tstringlist.Create;
bases.LoadFromFile(scomboedit2.Text);
virus:=Tstringlist.Create;
virus.LoadFromFile(scomboedit1.Text);

for i:=0 to virus.Count-1 do
begin
 for ib:=0 to bases.Count-1 do
  begin
  if virus.Strings[i]=bases.Strings[ib] then
   begin
    beep;
    sgauge1.Progress:=100;
   end;
 end;
end;
virus.Free;
bases.Free;
sleep(100);
sgauge1.Progress:=0;
end;

[aesoem]

нет, это я АНТИВИРУС пишу Прога сканирует строки BAT файла и свиряет их с базой данных, просто я так переменную назвал база и вирус чтобы легче было

[Квэнди]

aesoem вам устное предупреждение. Еще раз увижу опдобное название темы получите предупреждение.
закрыто.