[Евгений79]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 list: TStringList;
 i: Integer;
 str,str2: string;
begin
 button1.Caption:='Start';
 list:= TStringList.Create;
 list.clear;
 str:='';
 for i:=0 to 200 do str:=str+IntToStr(i); //длина строки 493 символа.
 for i:=0 to 10000000 do
 begin
  list.Add(str);
 end;
 button1.Caption:='End';
list.Free;
end;

lmikle: пользуемся тегами!!!

Так все работает отлично. Память сильно не расходуется.
но если заменить строку list.Add(str);
на list.Add(str + '1');
или
str2:=str + '1';
list.Add(str2);

то приложение вылетает с руганью на окончание памяти.
А если так сделать
str2:=str;
list.Add(str2);
то тоже никаких проблем с памятью

win7 delphi 7 ram 8gb

[YVitaliy]

Вот смотри: ты добавляешь строку размером 493 символа (493 байта) 10000000 раз = 4930000000 байта пр. равн. 10 мб. А вот если ты еще каждый раз прибавишь по '1' в конец каждой строки, то размер будет
4930000000+10000000^2-(10000000^2-10000000)/2; Дальше считай сам

[robt]

Сообщение от Евгений79

win7 delphi 7 ram 8gb

ниповериш, 32битным приложениям насрать на ram 8gb

[poli-smen]

Сообщение от Евгений79

Так все работает отлично. Память сильно не расходуется.
но если заменить строку list.Add(str);
на list.Add(str + '1');
или
str2:=str + '1';
list.Add(str2);

то приложение вылетает с руганью на окончание памяти.

Это всё потому что String (точнее AnsiString) является типом с управляемым временем жизни со счётчиком ссылок.
Пример:

Код:

    str := StringOfChar('X', 1024 * 1024); // Создаём новую строку str размером в мегабайт
    str2 := str + '1'; // Создаём новую строку str2 и копируем в неё содержимое str плюс сивол '1'
    for i := 1 to 1000000 do
    begin
      list.Add(str2); // В список list добавляется миллион раз ссылка на строку str2
    end;

В этом примере только один раз выделяется память под строку str2 и в цикле в список list миллион раз добавляется ссылка на эту строку. Ссылка это просто указатель (Pointer), который в Win32 занимает всего 4 байта, что в сумме займёт 4*1000000=4000000 байт под эти указатели, плюс мегабайт для самой строки.

Другой пример:

Код:

    str := StringOfChar('X', 1024 * 1024); // Создаём новую строку str размером в мегабайт
    for i := 1 to 1000000 do
    begin
      str2 := str + '1'; // Создаём новую строку str2 и копируем в неё содержимое str плюс сивол '1'
      list.Add(str2); // В список list добавляется миллион раз ссылка на строку str2
    end;

В этом примере всё совсем по-другому. Здесь миллион раз выделяется память под новую строку и ссылка на неё добавляется в список list. Сколько займёт памяти миллион мегабайтных строк подсчитать не составит труда.

[Евгений79]

Да, я знаю что 32 бита больше 2 гигов рамы не увидит.

Спасибо. За развернутое пояснение.
Как можно избежать перерасхода памяти в моем примере?

[poli-smen]

Сообщение от Евгений79

Да, я знаю что 32 бита больше 2 гигов рамы не увидит.

Спасибо. За развернутое пояснение.
Как можно избежать перерасхода памяти в моем примере?

Ответ зависит от того, какую задачу твой пример пытается решить.

[Евгений79]

Создать огромный список неодинаковых строк.

[poli-smen]

Сообщение от Евгений79

Создать огромный список неодинаковых строк.

Чтобы этот список занял больше адресного пространства чем это позволяет Windows?