Нужно отобразить количество символов до определённого символа

[Dimidrolus]

Добрый день. Вообщем, я новичёк. Прошу помощи.

Допустим есть текст:

[58]
0=030C0047011F0443043F043A0438043D04080046021204300441044F0409000B0300000B895364728A70
1=03100047011F0435044204400435043D043A043E040A004602140438043C043A04300408000B0300000A8495333269

Нужно посчитать в нём количество знаком равно(=) до знака '[' или до конца текста.
Вот пробовал проверять количество до конца текста:

procedure TFormMain.ButtonCheckBookClick(Sender: TObject);
var

PM: TStringList;
  i,k,n:integer;
  s: string;

  begin
  PM := TStringList.Create;
PM.LoadFromFile(OpenDialog1.FileName);
    for i := 0 to PM.Count-1 do
    begin
      if not (PM[0]='[58]') then
        PM.Delete(0)
      else
        Break;
        end;
        begin


k:=0;
for i:=0 to pm.count-1 do
begin
  for n:=0 to length(pm.text[i]) do
  begin
  s:=copy(pm.text[i], k, 1);
    if s='=' then
    inc(k);
  end;
begin
  FormMain.Memo1.Lines.Add (s);
  end;
  end;
  end;
  end;
  end.

Ничего не получается((( Спасибо заранее за ответы.

[Stilet]

  
for n:=0 to length(pm.text[i]) do  begin
    if pm[i][n]='=' then   inc(k);
    if pm[i][n]='[' then break;
  end;

Такая считалочка сойдет?
Или если нужно не построчно а посимвольно по всему тексту то первый цикл убери

[Dimidrolus]

Просто до [58] Могут быть (точней они есть) ещё знаки равенства. Мне нужны именно после [58] и до следующей дужки или до конца текста)

[Dimidrolus]

procedure TFormMain.ButtonCheckBookClick(Sender: TObject);
var

PM: TStringList;
  i,k,n:integer;
  s: string;

  begin
  PM := TStringList.Create;
PM.LoadFromFile(OpenDialog1.FileName);
    for i := 0 to PM.Count-1 do
    begin
      if not (PM[0]='[58]') then
        PM.Delete(0)
      else
        Break;
        end;
     
begin
k:=0;



 for n:=0 to length(pm.text[i]) do  begin
    if pm[i][n]='=' then   inc(k);
    if pm[i][n]='[' then break;
  end;


begin
 
  FormMain.Memo1.Lines.Add (inttostr(k)+' Contacts found');
  end;
  end;
  end;
  end;
  end.

Всё равно не работает( Находит ноль знаков(

[DoubleTrouble]

если после [58] то поставь флаг fl:boolean, если найдёшь символ ']' то его ставь true.
k:=0;
for i:=0 to pm.count-1 do
begin
for n:=0 to length(pm.text[i]) do
begin
s:=copy(pm.text[i], k, 1);
if s='=' then
inc(k);
end;

это вообще мясо какое то. Пиши так

for i:=0 to pm.count-1 do
begin
for n:=0 to length(pm.text[i]) do
begin
if (pm[i][n]=']') then fl:=true;
if (pm[i][n]='=') and (fl) then inc(k);
end;

[Dimidrolus]

Извините за наглость, кто то может написать полностью рабочий код для моего случая, что б я разобрался?) Просто мне пока что немного трудно разбиратся с кусками кода) Спасибо.

[DoubleTrouble]

procedure TFormMain.ButtonCheckBookClick(Sender: TObject);
var

PM: TStringList;
  i,k,n:integer;
  s: string;

  begin
  PM := TStringList.Create;
PM.LoadFromFile(OpenDialog1.FileName);
    for i := 0 to PM.Count-1 do
    begin
      if not (PM[0]='[58]') then
        PM.Delete(0)
      else
        Break;
        end;
     
begin
k:=0;

for i:=0 to pm.count-1 do
 begin
 for n:=0 to length(pm.text[i]) do
 begin
 if (pm[i][n]=']') then fl:=true;
 if (pm[i][n]='=') and (fl) then inc(k);
 end;


begin
 
  FormMain.Memo1.Lines.Add (inttostr(k)+' Contacts found');
  end;
  end;
  end;
  end;
  end.

[Dimidrolus]

Перекопировал твой текст программы к себе, добавил в var fl:boolean;
Всё равно не работает(( Вот результат:

0 Contacts found
0 Contacts found
0 Contacts found

Вот текст по которому ищёт:

[58]
0=020600470141006200630009000B0300000CF79A37A11111
1=020600470144006500660009000B0300000CF79A35555555

[DoubleTrouble]

а в какой файле лежит текст? расширение то есть

[Dimidrolus]

Расширение .pm
Вот пример файлика.