Мое приложение жрет оперативку

[cowboy]

Добрый день! Вот в чем проблема..У меня в мое приложение через DDE идут данные . Там они обрабатываются и разбрасываются по стринггридам...Затем нужные данные с периодичностью в 60секундпишутся в файл. Потом программа записывает весь файл в массив и последние 1400 элементов выводится на график..При этом приложение в Диспетчере отображается при запуске, что забрано 17 мегабайт оперы..Затем это число постоянно растет и при уровне 23 мега начинает вылетать такой мессадж в эттаче..Причем программа продолжает работать.

[Пепел Феникса]

ну с сообщением все ясно...ошибка работы с массивом
а по поводу памяти...освобождать не забываете?

[cowboy]

Сообщение от Пепел Феникса

ну с сообщением все ясно...ошибка работы с массивом
а по поводу памяти...освобождать не забываете?

А как это делается?
Я просто прописал массив в АРРЭЙи на каждой итерации таймера (5 сек) гоню туда весь файл (около 5 мегов) и забираю из него последние 1400 элементов!
А как освобождать память?

[Пепел Феникса]

для массива(если он динамический)
SetLength(массив,0);
но потом обратно надо резервировать место
а вы уверенны что это не нормально?
один символ строки это один байт....а если текст?

[cowboy]

я думаю что это не нормально..Он же не будет у меня постоянно так оперативку забивать? а если я планирую еще около 10 файлов опрашивать такой же величины? А почему он сразу после того как пройдет итерация таймера не освобождает массив по умолчанию?

procedure TPagesDlg.Timer3Timer(Sender: TObject);
var
iv_str:array[1..200000] of string;
iv,date,time,iv_cutt:array[1..w] of string;
index:textfile;
st,ti,temp,temp1,temp2:string;
i,j,count,p,point,koef,y,z,u,k:integer;
max,min,diap:real;
iv_d:array[1..w] of integer;
chart:TChart;
series:TLineSeries;
begin
AssignFile(index,'D:\volatility\volatility.txt');
reset(index);
u:=0;
i:=1;

While not EOF(index) do begin
ReadLn(index,st);

if u=strtoint(combobox1.text) then begin
iv_str[i]:=st;
u:=0;
i:=i+1;
end;

u:=u+1;
end;

CloseFile(index);

count:=i;
p:=0;
j:=1;
max:=0;
min:=100000;

for i:=(count-w) to count-1 do begin

if length(iv_str[i])>0 then begin
iv_cutt[j]:=iv_str[i];
date[j]:=copy(iv_str[i],6,8);
time[j]:=copy(iv_str[i],15,6);
iv[j]:=copy(iv_str[i],22,10);
p:=0;
p:=pos(',',iv[j]);
if p>0 then delete(iv[j],p,10);
delete(iv[j],6,10);
iv[j]:=iv[j];
 if strtofloat(iv[j])>max then max:=strtofloat(iv[j]);
 if strtofloat(iv[j])<min then min:=strtofloat(iv[j]);
j:=j+1;
end;

end;

chart:=chart1;

With chart do begin
Left:=0;
Top:=0;
Width:=w;
Height:=h;
View3D:=false;
Visible:=True;
MarginBottom:=1;
Marginleft:=1;
Marginright:=2;
Margintop:=1;
end;

With Chart.Title.Text do
begin
	Clear;
	Add('Implayed Volatility');
end;

series:=TLineSeries.Create(chart);
chart.RemoveAllSeries;

for i:=1 to w do begin
 series.AddXY(i,strtofloat(iv[i]),'',RGB(0,0,255));
end;

chart.AddSeries(series);

вот код той процедуры которая жрет память

[Пепел Феникса]

а может дело в чарте?

[s.Creator]

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

chart.RemoveAllSeries;

немного поэкспериментировал
RemoveAllSeries - не уничтожает старые TLineSeries а только удаляет их из графика - вот они и накапливаются.

причем при таком добавлении у меня при закрытии приложения еще и AV выскакивало

заменил на

if chart.SeriesCount > 0 then  chart.Series[0].Free;

(для нескольких графиков надо в цикле удалять)
и в

procedure TForm1.FormDestroy(Sender: TObject);
begin
if chart.SeriesCount > 0 then  chart.Series[0].Free;
end;

Стало работать нормально и без AV

[cowboy]

Спасибо за помощь! А что может быть за ошибка работы с массивом? Из-за чего обычно такие происходят?

[Пепел Феникса]

обращение к несуществующему элементу массива

for i:=(count-w) to count-1 do begin

видимо получается что i =-1 иногда, а не ноль

[s.Creator]

Вообще то в первом посте, если я не ошибаюсь, ошибка индекса (= -1) при обращении к TList, TStringList или одному из их наследников.
Про массивы:
Если включена опция компилятора "Range checking", то в программу добавляется проверочный код который при выходе индекса за границы массива выдает ошибку "Range check error"

iv_str[i]:=st; // при i > 200000

for i:=(count-w) to count-1 do begin // при count <= w

Обычно используется для отладки.
Если опция выключена - ошибка не выдается, НО при этом если индекс выходит за рамки массива, Вы залезаете в память не выделенную для этого массива, что может привести к очень неожиданным результатам, изменением других переменных, изменением стека возврата из процедур,
что может привести к ошибкам вплоть до полного краха программы.
Кстати попробовал немного оптимизировать код (зачем для записи 1400 точек массив в 200000 что умножить на 30 символов в строке составит 6 MB).
Заодно вроде решил проблему с выходом за пределы массивов.

procedure TPagesDlg.Timer3Timer(Sender: TObject);
var
  iv_str:array[1..w] of string;
  iv,date,time,iv_cutt:array[1..w] of string;
  index:textfile;
  st,ti,temp,temp1,temp2:string;
  i,j,count,p,point,koef,y,z,u,k:integer;
  max,min,diap:real;
  iv_d:array[1..w] of integer;
  chart:TChart;
  series:TLineSeries;
  FullArray: boolean;
  PropuskStrok: integer;

  procedure IncCykle(ind: integer);
  begin
    Inc(ind);
    if ind > w then
    begin
      ind := 1;
      FullArray := true; // заполнили массив хотябы один раз
    end;
  end;

begin
  AssignFile(index,'D:\volatility\vol atility.txt');
  reset(index);
  u:=0;

  FullArray := false;
  i:=0;
  PropuskStrok := strtoint(combobox1.text); // зачем переводить строку в число до 200000 раз ?
  
  While not EOF(index) do
  begin
    ReadLn(index,st);
    if u = PropuskStrok then
    begin
      IncCykle(i);
      iv_str[i] := st;
      u:=0;
    end
    else
      u := u+1; // 0 - все строки, 1 - через одну ...
  end;

  CloseFile(index);

  if FullArray then
  begin
    count := w;
  end
  else
  begin  // считано всего i строк < w
    count := i;
    i := 0;
  end;

  p:=0;
  j:=0;
  max:=0;
  min:=100000;

  for i:=1 to count do
  begin
    IncCykle(i);
    if length(iv_str[i]) > 0 then
    begin
      Inc(j);
      iv_cutt[j]:=iv_str[i];
      date[j]:=copy(iv_str[i],6,8);
      time[j]:=copy(iv_str[i],15,6);
      iv[j]:=copy(iv_str[i],22,10);
      p:=0;
      p:=pos(',',iv[j]);
      if p>0 then
        delete(iv[j],p,10);
      delete(iv[j],6,10);
      // iv[j]:=iv[j]; - этого вообще не понял
      if strtofloat(iv[j])>max then
        max:=strtofloat(iv[j]);
      if strtofloat(iv[j])<min then
        min:=strtofloat(iv[j]);
    end;
  end;

  chart:=chart1;

  With chart do
  begin
    Left:=0;
    Top:=0;
    Width:=w;
    Height:=h;
    View3D:=false;
    Visible:=True;
    MarginBottom:=1;
    Marginleft:=1;
    Marginright:=2;
    Margintop:=1;
  end;

  With Chart.Title.Text do
  begin
    Clear;
    Add('Implayed Volatility');
  end;

  while chart.SeriesCount > 0 do
    chart.Series[0].Free;

  series:=TLineSeries.Create(chart);

  for i:=1 to j do // в массивы отфильтровано j строк
  begin
    series.AddXY(i,strtofloat(iv[i]),'',RGB(0,0,255));
  end;

  chart.AddSeries(series);
end;

проверял только на компиляцию.