[R-18Rus]

Есть txtшник. Прога черпает из него нужный текст. Если текст в начале файла всё идёт гладко. Если текст в середине или в конце, то прога зависает, проц и озу забиваются на 100% (судя по гаджетам на windows sidebar).
Вот код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var StrLst:TStringList;
    s,s1:AnsiString; i:byte;
begin
if not FileExists('1.txt') then
  MessageDlg('Файл не найден',mtError,[mbOk],0)
  else begin
  StrLst:=TStringlist.Create;
  StrLst.LoadFromFile('1.txt');
  s1:=Label1.Caption;
  delete(s1,1,14);
  s:=('');
  i:=0;
  while i<StrLst.Count-1 do
    if StrLst[i]='Г'+s1 then
      begin
      repeat
      inc(i);
      s:=s+StrLst[i];
      s:=s+#13#10;
      if i=StrLst.Count-1 then break;
      until(StrLst[i+1]='Г'+IntToStr(StrToInt(s1)+1));
      break;
      end
      else inc(i);
  ShowMessage(s);
  end;
end;

Думаю изменить условие if StrLst[i]='Г'+s1 на функцию i:=pos('Г'+s1,StrLst.Text).

Поможет ли это?

[poli-smen]

Сообщение от R-18Rus

Есть txtшник. Прога черпает из него нужный текст. Если текст в начале файла всё идёт гладко. Если текст в середине или в конце, то прога зависает, проц и озу забиваются на 100% (судя по гаджетам на windows sidebar).

Зависание у тебя скорее всего тут:

Сообщение от R-18Rus

Код:

      s:=s+StrLst[i];
      s:=s+#13#10;

Постоянное перераспределение памяти под переменную s (с копированием старого содержимого в новое место). Чем длиннее переменная s становится, тем дольше идёт эта операция и если "клеить" нужно много строк, то вот тебе и зависание.

Сообщение от R-18Rus

Думаю изменить условие if StrLst[i]='Г'+s1 на функцию i:=pos('Г'+s1,StrLst.Text).

Поможет ли это?

Если правильно сделать то поможет.

И где освобождение объекта StrLst!?

[wendstor]

Работать с большими текстовыми файлами лучше через stream (загрузка файла). При парсенге лучше использовать copy, pos

[M.A.D.M.A.N.]

стрим стриму рознь.

[R-18Rus]

Сообщение от poli-smen

Чем длиннее переменная s становится, тем дольше идёт эта операция и если "клеить" нужно много строк, то вот тебе и зависание.

Я и в начале файла клею много строк. Обычно надо 30-35 строк. Но с началом файла прога работает, а начиная примерно со середины (даже чуть раньше) и далее - зависает.
Освобождение не требуется потому, что, возможно, на кнопку будут нажимать не один раз. А по закрытии всей проги память итак освободится.

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

Работать с большими текстовыми файлами лучше через stream (загрузка файла). При парсенге лучше использовать copy, pos

Не понял ни слова.

[poli-smen]

Сообщение от R-18Rus

Я и в начале файла клею много строк. Обычно надо 30-35 строк. Но с началом файла прога работает, а начиная примерно со середины (даже чуть раньше) и далее - зависает.

Это легко проверить. Закомментируй те 2 строчки и попробуй открыть файл который завешивает программу.

Сообщение от R-18Rus

Освобождение не требуется потому, что, возможно, на кнопку будут нажимать не один раз. А по закрытии всей проги память итак освободится.

Тем более если кнопку будут нажимать не один раз (!) - 10 раз нажали на кномпку - 10 раз создался объект StrLst, а если при этом он загружал файлы по 100 мегабайт, то уже 1 гиг оперативки уже бесполезно "сожрали". Освобождать объект нужно сразу как он больше не нужен.

Сообщение от R-18Rus

Не понял ни слова.

Есть такой класс - TFileStream, если файлы очень большие, то лучше их не загружать целиком в TStringList, а читать почючють из TFileStream.

[R-18Rus]

Сообщение от poli-smen

акомментируй те 2 строчки и попробуй открыть файл который завешивает программу.

Файл не завешивает. По поводу тех строчек. Там производятся операции со строкой s и потом я её вывожу на экран. Зависания происходят если в строку s записывать текст из середины файла и дальше. Если текст записывать из первой половины (произвольно с какого места. и до начала второй половины максимум), то зависаний нет. Всё записывается и прекрасно выводится. При записи из второй половины или если запись была из первой и чуть-чуть из 2-й - происходит зависание, ничего на экран не выводится.

Сообщение от poli-smen

Тем более если кнопку будут нажимать не один раз

Да, забыл. Лето, каникулы как-никак.