[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

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

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

[poli-smen]

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

Файл не завешивает.

Т.е. если закомментировать те 2 строчки, то зависание пропадает? Значит это то, о чём я и писал.

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

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

А каким размером эти файлы (которые зевешивают), и сколько в них строчек?

[R-18Rus]

Сам файл не виноват. Вы видимо что-то недопонимаете. Файл один, весит 68 kb, 822 строки.

[poli-smen]

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

Сам файл не виноват. Вы видимо что-то недопонимаете. Файл один, весит 68 kb, 822 строки.

Чувак, блин! Ты наверно издеваешься? Смотри в своём коде:

Код:

var  i:byte;

У тебя в файле 822 строки, а какое максимальное число для типа Byte?
Не нужно экономить на переменной цикла, всегда (ну почти всегда) пиши:

Код:

i: Integer;

[Alegun]

А что значит вот это:

Код:

...
s:=('');
...

как то странно.

Да, и всё же поменяй

Код:

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

на

Код:

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

так будет проще.

[R-18Rus]

Это реально была ошибка типа данных. Но почему же не было никаких warningov и errov типа выход за границы диапозона типа byte?

[R-18Rus]

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

А что значит вот это

Это меня учат всегда обнулять переменные.

[Alegun]

Я про скобки, строка обычно обнуляется так: s:='';

[R-18Rus]

Ну скобки это уже личная отсебятина.