Странности...

← →
RealRascal (2003-12-17 18:37) [0]

В строку помещаю содержание текстового файла(размер - ок300кило). Затем каждое слово этой строки в динамический массив из строк(нефиксированной длины). до запуска этого процесса прога в памяти занимает 6м. после обработки 300килобайтного файла она занимает 29м. Экспериментировал с файлами ок 1 мега. Они ваще в памяти ок 100мегов занимают! Кто может объяснить?
d5,winxp

← →
Fredericco (2003-12-17 18:41) [1]

Попробуй не дин. массив а TList и сообщи о результатах.

← →
panov (2003-12-17 18:48) [2]

Нерационально с памятью работаешь...
Вот код бы посмотреть.

← →
Sandman25 (2003-12-17 18:55) [3]

RealRascal © (17.12.03 18:37)

Там случайно нет такого кода?
s := "";
while не_конец_слова do
s := s + еще_один_символ;

← →
Fredericco (2003-12-17 18:56) [4]

2 Sandman25 © (17.12.03 18:55) [3]
Тоже вариант.

← →
RealRascal (2003-12-17 19:01) [5]

> Fredericco © (17.12.03 18:41) [1]
> Попробуй не дин. массив а TList и сообщи о результатах.

попробовал. при обаботке мегабайтного файла в памяти заняло 14м. Интересно, в чем причина?

> Sandman25 © (17.12.03 18:55) [3]

там есть такой:
for i от 1 до конца строки do if s[i]-буква то temp:=temp+s[i] иначе конец слова.

← →
RealRascal (2003-12-17 19:23) [6]

> Fredericco © (17.12.03 18:56) [4]
> 2 Sandman25 © (17.12.03 18:55) [3]
> Тоже вариант.

Не понял, это что чем-то чревато? Есть другие варианты?

← →
Fredericco (2003-12-17 19:26) [7]

Попробуй так
for i от 1 до конца строки do if s[i]-буква то begin SetLength(Temp,High(Temp)+2); Move(s[i],Temp[High(Temp)],1); end иначе begin обработка Temp; SetLength(Temp,0) конец слова. end;

← →
RealRascal (2003-12-17 19:37) [8]

И еще: вариант с листбоксом почему-то аномально быстро сработал, хотя я даже прорисовку не октлючал.

> Fredericco © (17.12.03 19:26) [7]

А в чем преимущество? Не заметил особых принципиальных отличий от[5] . Имхо так дольше даже будет. В чем смысл SetLength(Temp,0), если можно написать temp:=""?

← →
Fredericco (2003-12-17 19:44) [9]

RealRascal © (17.12.03 19:37) [8]
Так ты попробывал?

Дело в том, что Дельфи хитро со строками работает.
При каждой комманде s:=s+"1" в памяти создается новая запись сначала "1" потом "11" потом "111" потом "1111" потом "1111" и т.д. А вот как это дело потом освобождается - не знаю.
И еще на будущее, строка - это дин. массив, элементы в массиве хранятся строго друг за другом, при этом каждое новое добавление элемента в массив может повлеч за собой копирование ВСЕГО массива в другой участок памяти.

← →
Fredericco (2003-12-17 19:47) [10]

В принципе код
SetLength(Temp,High(Temp)+2);
Move(s[i],Temp[High(Temp)],1);
тоже может повлечь за собой копирование всей строки Temp в другой участок памяти (на скорость, я так понял, пока жалоб нет:-)), однако лишних участков памяти так не отхапаешь.

← →
Sandman25 (2003-12-18 10:26) [11]

[6] RealRascal © (17.12.03 19:23)

Не надо никакие строки в цикле изменять. В цикле надо только индексы рассчитывать.
Типа
StartIndex := 1;
EndIndex := 1;
while не_конец_слова do
Inc(EndIndex);
if слово_найдено then
begin
Massiv[IndexSlova] := Copy(S, StartIndex, EndIndex);
end;

← →
RealRascal (2003-12-27 08:12) [12]

Странности... Найти похожие ветки