Проблема с цифрами

[CrazyTosser]

Вот часть программы:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
sph:string;
m:array[1..1000] of string;
numb:integer;
num:string;
spisok:textfile;

begin
            for x:=1 to 5 do 
numb:=0;
sph:='aaa';
For j:=1 to 10 do
begin
if pos(sph,m[i]) <> 0 then
numb:=numb+1;
end;
num:=floattostr(numb);

assignfile(spisok,'ticket.txt');    

append(spisok);           
      
       writeln(spisok,num);
closefile(spisok);
         end;
end.

прога ищет кол-во строк массива, начинающихся на ааа
остальная часть программы работает на ура.
проблема лишь в этой части.
все работает, но в файле ticket.txt вместо цифр везде 0.
Проверено, в массиве такие строки существуют.

Хелп.

[ArtGrek]

for x:=1 to 5 do

ет зачем нужно?

[Stilet]

Во-вторых:массив m:array[1..1000] of string; локален, и нигде не заполняется значениями, потому тебе поиск ничего не не находит.
Да и потом

прога ищет кол-во строк массива, начинающихся на ааа

Ерунда потому что ты используешь

if pos(sph,m[i]) <> 0 then

А он ищет не только в начали но и вообще в строке.
Ты уж определись чего тебе надебно то.

[CrazyTosser]

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

ет зачем нужно?

У меня файлы на диске в формате Xml я открываю с 1 по 5 и работаю с каждым



Массив заполняется текстом каждого файла

for i:=1 to 5 do
begin
form1.Memo1.Clear;
k:=k+1;
v:=floattostr(k);
namefile:=v+'.Xml';
assignfile(ai,v+'.Xml');
reset(ai);

while true do
begin
readln(ai,s);
if eof(ai) then break;
i:=i+1;
m[i]:=s;
form1.Memo1.Lines.Add(s);
end;
...

[CrazyTosser]

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

А он ищет не только в начали но и вообще в строке.
Ты уж определись чего тебе надебно то.

Если я пишу pos... <> 0 то положение искомого должно быть в начале, я так понял.

[veniside]

<> 0 значит, что подстрока где-то найдена. Если нужно именно начало, то pos() = 1.

[CrazyTosser]

Проблема только в этом цикле
For j:=1 to 10 do
begin
if pos(sph,m[i]) <> 0 then
numb:=numb+1;
end;
num:=floattostr(numb);
на выходе получается 0
Вроде нигде не зануляется.

[veniside]

Конечно будет проблема, если гонять цикл по j, а в качестве индекса брать i )

[CrazyTosser]

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

Конечно будет проблема, если гонять цикл по j, а в качестве индекса брать i )

Точно, спасибо большое!