OUT OF MEMOTY

[nicki]

У меня проблема, на серваке расшаренная папка, где лежат текстовые док-ты.программа кот-я стоит на нескольких компах открывает текстовики(assignfile,reset) и их данными заполняет stringgrid-ы и закрывает файл. иногда пользователь изменяет stringgrid и записывает данные в тестовый файл на серваке(rewrite) и закрывает файл.Проблема в том что через какое-то время файлы начинают очень долго грузиться, а потом еще через какое-то пишет OUT OF MEMORY.Подскажите что надо сделать чтоб память не так нагружалась, может что не так делаю?

[AlDelta]

...программа кот-я стоит на нескольких компах открывает текстовики(assignfile,reset) и их данными заполняет stringgrid-ы и закрывает файл. иногда пользователь изменяет stringgrid и записывает данные в тестовый файл на серваке(rewrite) и закрывает файл...

А можно исходник работы с файлами и StringGrid'ом? На сколько строк примерно получается таблица?

Дай человеку рыбу, и ты накормишь его только раз. Научи его ловить рыбу, и он будет кормиться ею всю жизнь. (Китайская пословица)

[nicki]

if fileExists(filename)=false then
ShowMessage('Íåò äàííûõ çà òåêóùóþ íåäåëþ')
else
{-заполнение стрингридов-}
begin
assignfile(f,filename);
reset(f);
{понедельник}
readln(f,s);
i:=0;
while s<>'1' do
begin
stringgrid1.RowCount:=stringgrid1.R owCount+1;
stringgrid1.Cells[0,i]:=s;
readln(f,s);
stringgrid1.Cells[1,i]:=s;
inc(i);
readln(f,s);
end;
stringgrid1.RowCount:=stringgrid1.R owCount-1;
{вторник}
readln(f,s);
i:=0;
while s<>'2' do
begin
stringgrid2.RowCount:=stringgrid2.R owCount+1;
stringgrid2.Cells[0,i]:=s;
readln(f,s);
stringgrid2.Cells[1,i]:=s;
inc(i);
readln(f,s);
end;
stringgrid2.RowCount:=stringgrid2.R owCount-1;
{среда}
readln(f,s);
i:=0;
while s<>'3' do
begin
stringgrid3.RowCount:=stringgrid3.R owCount+1;
stringgrid3.Cells[0,i]:=s;
readln(f,s);
stringgrid3.Cells[1,i]:=s;
inc(i);
readln(f,s);
end;
stringgrid3.RowCount:=stringgrid3.R owCount-1;
{÷четверг}
readln(f,s);
i:=0;
while s<>'4' do
begin
stringgrid4.RowCount:=stringgrid4.R owCount+1;
stringgrid4.Cells[0,i]:=s;
readln(f,s);
stringgrid4.Cells[1,i]:=s;
inc(i);
readln(f,s);
end;
readln(f,s);
stringgrid4.RowCount:=stringgrid4.R owCount-1;
{пятница}
i:=0;
while s<>'5' do
begin
stringgrid5.RowCount:=stringgrid5.R owCount+1;
stringgrid5.Cells[0,i]:=s;
readln(f,s);
stringgrid5.Cells[1,i]:=s;
inc(i);
readln(f,s);
end;
stringgrid5.RowCount:=stringgrid5.R owCount-1;
closefile(f);
end;