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

[DoubleTrouble]

слушай, а тебе обязательно стринглист использовать?

[Dimidrolus]

Я без понятия) Просто это первый вариант, который я нашёл как это сделать) можно и по другому наверное)

[DoubleTrouble]

var

  i,k,n:integer;
  s: string;
  fl:boolean;
  fi:textfile;//переменная типа текстовые файл(и pm твой тоже легко прочтёт)
  begin
  if OpenDialog1.Execute then //проверяем выбрали ли файл в диалоге
  assignfile(fi,OpenDialog1.FileName); //прикрепляем название файла к нашей переменной
  fl:=false; k:=0;
  reset(fi);//открыть файл для чтения
while not Eof(fi) do// пока файл не закончился делать(end of file процедура расшифровывается)
  begin
  readln(fi,s);//прочитать строку из файла
  for i:=1 to length(s)do
    begin
      if (s[i]=']') then fl:=true;
      if (s[i]='=') and (fl) then inc(k);
    end;
  end;

 label1.Caption:=inttostr(k);//ну или куда хочешь выводишь
end;

у меня такое всё равнотает

[Dimidrolus]

Спасибо! Работает! Только не останавливается на знаке '[' ((((

[DoubleTrouble]

в смысле не останавливается? скажи, доработаю

[Dimidrolus]

Смотри. Открой тот файлик, что я приложил пару постов назад. Мне нужно, что б прога считала количетсво знаков равно после [58] до знака [ или конца текста.
А она считает количетсво знаков равно во всём тексте мне кажется)

[DoubleTrouble]

аааааа. ну да.

var

  i,k,n:integer;
  s: string;
  fl:boolean;
  fi:textfile;//переменная типа текстовые файл(и pm твой тоже легко прочтёт)
  begin
  if OpenDialog1.Execute then //проверяем выбрали ли файл в диалоге
  assignfile(fi,OpenDialog1.FileName); //прикрепляем название файла к нашей переменной
  fl:=false; k:=0;
  reset(fi);//открыть файл для чтения
while not Eof(fi) do// пока файл не закончился делать(end of file процедура расшифровывается)
  begin
  readln(fi,s);//прочитать строку из файла
  for i:=1 to length(s)do
    begin
      if (s[i]=']') then fl:=true;
      if (s[i]='=') and (fl) then inc(k);
      if (fl) and s[i]='[' then fl:=false;
    end;
  end;

 label1.Caption:=inttostr(k);//ну или куда хочешь выводишь
end;

теперь будет работать как надо

[Dimidrolus]

Тоже самое) 1107 найдено)