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

[cowboy]

Сообщение от s.Creator

(зачем для записи 1400 точек массив в 200000 что умножить на 30 символов в строке составит 6 MB).
[/CODE]проверял только на компиляцию.

тут просто чтение идет из файла..ФАйл около 5 его весит.. Около 120000 строк.. Строки каждую минуту добавляются .. Нужно вывести ПОСЛЕДНИЕ 1400 строкюЮДля это нуна весь файл в массив загнать..

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

тут просто чтение идет из файла..ФАйл около 5 его весит.. Около 120000 строк.. Строки каждую минуту добавляются .. Нужно вывести ПОСЛЕДНИЕ 1400 строкюЮДля это нуна весь файл в массив загнать..

млин мужики спасайте.. Вот эта беда мне строит график нужным мне данных.. Но при запуске приложения в режиме компиляции на второй итерации таймера вылетает ошибка

procedure TPagesDlg.Timer4Timer(Sender: TObject);

var
arb_st:array[1..200000] of string;
arb_b,arb_s,date,time,arb_cutt,arb_price:array[1..w+100] of string;
arb:textfile;
st,ti,temp,temp1,temp2:string;
i,j,count,p,point,koef,y,z,u,k,start:integer;
iv_d:array[1..w+100] of integer;
series,series1:TLineSeries;
PropuskStrok: integer;
begin
AssignFile(arb,'D:\log\GAZP_ARB_PROGRAMM.LOG');
reset(arb);
u:=0;

i:=0;


PropuskStrok := strtoint(combobox1.text);

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

if u=PropuskStrok  then begin
i:=i+1;
arb_st[i]:=st;
u:=0;
end;

u:=u+1;
end;

CloseFile(arb);
count:=i;

p:=0;
j:=0;




for i:=count-w+5 to count do begin

if length(arb_st[i])>0 then begin
j:=j+1;
arb_cutt[j]:=arb_st[i];
date[j]:=copy(arb_st[i],1,8);
time[j]:=copy(arb_st[i],10,6);
delete(arb_cutt[j],1,16);
p:=pos(' ',arb_cutt[j]);
if p>0 then arb_b[j]:=copy(arb_cutt[j],1,p);
delete(arb_cutt[j],1,p);
p:=pos(' ',arb_cutt[j]);
if p>0 then arb_s[j]:=copy(arb_cutt[j],1,p);
delete(arb_cutt[j],1,p);
p:=pos(' ',arb_cutt[j]);
if p>0 then arb_price[j]:=copy(arb_cutt[j],1,p);
end;
end;

if chart8.SeriesCount > 0 then begin
 chart8.Series[0].Free;
chart8.Series[1].Free;
 end;

With chart8 do begin
View3D:=false;
Visible:=True;
MarginBottom:=1;
Marginleft:=1;
Marginright:=2;
Margintop:=1;
end;

With Chart8.Title.Text do
begin
Clear;
Add('GP');
end;

series:=TLineSeries.Create(chart8);
series1:=TLineSeries.Create(chart8);
chart8.RemoveAllSeries;

for i:=1 to j do begin
series.AddXY(i,strtofloat(arb_b[i]),time[i],RGB(0,0,255));
series1.AddXY(i,strtofloat(arb_s[i]),time[i],RGB(255,0,0));
end;

chart8.AddSeries(series);
chart8.AddSeries(series1);



end;

причем какой то косяк происходит именно с
chart8.Series[0].Free;
chart8.Series[1].Free;

..ПОтомучто без этого фсе работает нормально

А может это быть из-за того что в файл я пишу одной программой, а читауже своим приложением? может они просто не делят его друг с другом?

[s.Creator]

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

тут просто чтение идет из файла..ФАйл около 5 его весит.. Около 120000 строк.. Строки каждую минуту добавляются .. Нужно вывести ПОСЛЕДНИЕ 1400 строкюЮДля это нуна весь файл в массив загнать..

А почему Вам не понравился мой вариант, когда в

iv_str:array[1..w] of string;

читается весь файл и в результате там остается не больше w последних строк, которые успешно считываются.
___________________________________ ___________________________________ ____
Замените

if chart8.SeriesCount > 0 then begin
 chart8.Series[0].Free;
chart8.Series[1].Free;
 end;

на

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

и попробуйте найти одно отличие:
Почему (в Вашем случае) это не работает:

if chart8.SeriesCount > 0 then begin
 chart8.Series[0].Free;
chart8.Series[1].Free;
 end;

А а это должно заработать

	
	
if chart8.SeriesCount > 0 then begin
 chart8.Series[0].Free;
chart8.Series[0].Free;
 end;

[cowboy]

Сообщение от s.Creator

  
  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;

мне кажется таким кодом мы не получим в точности последние W строк файла..МЫ получим (w-какой то промежуток), где какойто промежуток будет заполнен данными из предыдущего цикла

Мое приложение все равно продолжает жрать оперативку. FREE для серий почему то не помогают...СТрою около 8 графиков на разных чартах..Вот фрагмент одной процедуры для построения чарта

procedure TPagesDlg.Timer4Timer(Sender: TObject);

procedure create_arb(chart:Tchart;path:string;name:string);
var
arb_st:array of String;
arb_b,arb_s,date,time,arb_cutt,arb_price:array of String;
arb:textfile;
st,ti,temp,temp1,temp2:String;
i,j,count,p,point,koef,y,z,u,k,start:integer;
series,series1:TLineSeries;
PropuskStrok: integer;
begin
setlength(arb_st,200000);
setlength(arb_b,w+100);
setlength(arb_s,w+100);

setlength(date,w+100);
setlength(time,w+100);
setlength(arb_cutt,w+100);
setlength(arb_price,w+100);


AssignFile(arb,path);

reset(arb);
u:=0;

i:=0;

PropuskStrok := strtoint(combobox2.text);

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

if u=PropuskStrok  then begin
//i:=i+1;
arb_st[i]:=st;
u:=0;
i:=i+1;
end;

u:=u+1;
end;

CloseFile(arb);
count:=i-1;

p:=0;
j:=0;

for i:=count-w+5 to count do begin

if length(arb_st[i])>0 then begin
arb_cutt[j]:=arb_st[i];
date[j]:=copy(arb_st[i],1,8);
time[j]:=copy(arb_st[i],10,6);
delete(arb_cutt[j],1,16);
p:=pos(' ',arb_cutt[j]);
if p>0 then arb_b[j]:=copy(arb_cutt[j],1,p);
delete(arb_cutt[j],1,p);
p:=pos(' ',arb_cutt[j]);
if p>0 then arb_s[j]:=copy(arb_cutt[j],1,p);
delete(arb_cutt[j],1,p);
p:=pos(' ',arb_cutt[j]);
if p>0 then arb_price[j]:=copy(arb_cutt[j],1,p);
j:=j+1;
end;
end;

   while chart.SeriesCount > 0 do  begin
    chart.Series[0].free;
    end;

With chart do begin
View3D:=false;
Visible:=True;
MarginBottom:=1;
Marginleft:=1;
Marginright:=2;
Margintop:=1;
end;

With Chart.Title.Text do
begin
Clear;
Add(name);
end;

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

for i:=0 to j-1 do begin
series1.AddXY(i,strtofloat(arb_s[i]),time[i],RGB(0,0,255));
end;

chart.AddSeries(series1);
arb_st:=nil;
arb_b:=nil;
arb_s:=nil;
date:=nil;
time:=nil;
arb_cutt:=nil;
arb_price:=nil;
end;


begin
create_arb(chart8,'D:\log\GAZP_ARB_PROGRAMM.LOG','GP');
create_arb(chart9,'D:\log\SBER03_ARB_PROGRAMM.LOG','LUK');
create_arb(chart10,'D:\log\LKOH_ARB_PROGRAMM.LOG','SBER');
end;

И еще по поводу ошибки.. У меня всего две формы..ПО нажатию кнопочки на форме 1 появляется табы и на них уже нахадятсЯ таймеры для построения графиков..2 таймера строят графики, третий пишет в файл данные(из которых строятся графики) .. Четвертый просто сравнивает ячейки..Так вот..Данные же в мое приложение поступают из другой программы( назовем ее главной программой) по DDE, которое начинает качать при нажатии клавиши ..Затем эти данные с формы 1 по таймеры перебрасываются на табы..Если по ДДЕ экспорт не идет(клавиша не активирована) то мое приложение совершенно свободно строит графики и
никаких ошибкок массива не вылетает.. Но как только я запускают экспорт-начинаютчерез не которое время появлятьяс ошибки... Принт такого зверя выкладываю..

[s.Creator]

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

мне кажется таким кодом мы не получим в точности последние W строк файла..МЫ получим (w-какой то промежуток), где какойто промежуток будет заполнен данными из предыдущего цикла

пусть W = 50, а в файле 60 строк.
сперва массив заполнится полностью затем первые 10 элементов.
Если мы считаем с массива 11-50, 1-10 то это и будут последние 50 строк.
Можете поиграться разными значениями констант в прилагаемом тестовом проекте.

P.S. Обнаружил в коде приведенном в моем посте № 10 пару ошибок (опечаток) - к сожалению он уже не редактируется:

procedure IncCykle(var ind: integer);

for j:=1 to count do

По поводу дальнейшего поиска утечек памяти.
Вопрос она постоянно растет или при возникновении ошибок.
У Вас код не защищен try finally, соответственно если будет исключение до освобождения массивов то будет утечка (а массивы не маленькие).
Не совсем понятно про ошибки (на принте не возможно прочитать ошибку и в какой именно строке кода она возникает? ) и передачу данных по DDE/
Что означает?:

Затем эти данные с формы 1 по таймеры перебрасываются на табы

куда именно.
Про поиск утечек - почитайте хотябы эту статью http://gunsmoker.blogspot.com/2009/05/blog-post_24.html.

Еще раз глянул последний ваш код ( пост 17 ) - создается два графика а добавляется один - второй будет потерян в памяти

[cowboy]

Сообщение от s.Creator

пусть W = 50, а в файле 60 строк.
сперва массив заполнится полностью затем первые 10 элементов.
Если мы считаем с массива 11-50, 1-10 то это и будут последние 50 строк.
Можете поиграться разными значениями констант в прилагаемом тестовом проекте.

Тьфу млин.,Как фсе просто оказывается

Сообщение от s.Creator

По поводу дальнейшего поиска утечек памяти.
Вопрос она постоянно растет или при возникновении ошибок.
У Вас код не защищен try finally, соответственно если будет исключение до освобождения массивов то будет утечка (а массивы не маленькие).
Не совсем понятно про ошибки (на принте не возможно прочитать ошибку и в какой именно строке кода она возникает? ) и передачу данных по DDE/
Что означает?:

Из проги(Главной) идут данные через DDE ..Вообще этот метод вывода данный идет по умолчанию на лист EXCEL..Но в DELPHI сэмулирован как бы эксель...И данные идут в него в стринггрид. Дальше таймер данные раскидывает в другие стринггриды на табах.
Память растет постоянно и равномерно

Сообщение от s.Creator

Еще раз глянул последний ваш код ( пост 17 ) - создается два графика а добавляется один - второй будет потерян в памяти

Спасибо..Исправил..

[s.Creator]

Проверил работу с графиками
Если не забывать их добавлять и удалять то память не растет
Смотри вложение