незаполненные массивы и память

[xrob]

да ладно, у меня просто личная неприязнь к высокоуровневым компонентам.
предпочитаю делать свои, чтобы знать как они работают, вот.

кстати по поводу уничтожения!
как уничтожить массив?
если у меня в классе объявлен array of array, он потом сам удалится
при уничтожении объекта класса, или его принудительно надо?

SetLength(array,0) - это можно считать уничтожением массива?
память так освобождает, как мы выяснили =)
-------------------

мне для хранения такой информации:
"что-то" "нечто" "ничего" "еще что-нибудь"
"что-то" "нечто" "ничего" "еще что-нибудь"

особая иерархия не нужна, но за идею спасибо! учту на будущее.
пока что схвачусь за array of array.

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

с массивами можно таких дел наворотить...

вы имели в виду индексируемые свойства?(индексаторы)
по крайней мере в коде они.

при уничтожении объекта класса, или его принудительно надо?

массив то сам, а вот если массив объектов, то объекты надо тоже удалять.

[Человек_Борща]

Я вам предлогаю то, что уже за вас написано и продуманно. А тот факт что

TList stores an array of pointers.

говорит о том, что это то, что вам надо.

Ну если вам хочется "странного":

кстати по поводу уничтожения!
как уничтожить массив?
если у меня в классе объявлен array of array, он потом сам удалится
при уничтожении объекта класса, или его принудительно надо?

var
 i:Itnteger;
begin
For i:=Low(SomeArray) to High(SomeArray) do
begin
 if assigned(SomeArray[i]) then
 begin
 {
Проверяем не пустая ли ячейка массива(По умолчанию все ячейки равны nil).
if assisgned() = true говорит что в ячейке что-то лежит...
НАМ НЕЛЬЗЯ просто сделать 
SomeArray[i]:=nil; 
Вы то обнулите ячейку, а обьект будет висеть в памяти, и тем самым кушать ОЗУ
Нужно знать что в ячейке и в зависимости от этого делать действия.
Массивы сами себя не уничтожают... 
FreeMem просто уничтожит указатели на обьекты, а обькты остануться(Если таковые были в уничтоженном массиве).
 }
 end;
end;
end;

SetLength(array,0) - это можно считать уничтожением массива?
 память так освобождает, как мы выяснили =)

Плохой вариант!

var
  myArray:array of Integer;
begin
 @myArray:=AllocMem(//кол-во ячеек); //вернёт указатель на выделенную оЗУ из кучи

{
тибидох-тибидох
}
FreeMem(myArray); //Уничтожаем выделенную память
end;

мне для хранения такой информации:
"что-то" "нечто" "ничего" "еще что-нибудь"
"что-то" "нечто" "ничего" "еще что-нибудь"

Я жеке говорю, "Ему хочется странного"...

[Serge_Bliznykov]

Плохой вариант!

Это ещё почему?!
Справка Delphi утверждает, что так и нужно поступать с динамическими массивами:

Dynamic-array variables are implicitly pointers and are managed by the same reference-counting technique used for long strings. To deallocate a dynamic array, assign nil to a variable that references the array or pass the variable to Finalize; either of these methods disposes of the array, provided there are no other references to it. Dynamic arrays of length 0 have the value nil. Do not apply the dereference operator (^) to a dynamic-array variable or pass it to the New or Dispose procedure.

вот, предлагаю ознакомится со следующим кодом:

var
  MyArray : array of Integer;
begin
  if MyArray = nil then ShowMessage('ДО выделения памяти под массив указатель равен NIL');
  SetLength(MyArray, 2);
  if MyArray = nil then ShowMessage('После выделения равен NIL')
    else ShowMessage('После выделения указатель массива не равен NIL');
  MyArray[1] := 100500;

  SetLength(MyArray, 0);
  if MyArray = nil then ShowMessage('После указания нулевого размера равен NIL')
    else ShowMessage('После указания нулевого размера указатель массива не равен NIL');

p.s. Только если динамический массив включает в себя указатели на объекты (например, TStringList) - то перед очисткой массива обязательно надо пройтись по массиву и для назначенных указателей выполнить очистку (вызвать деструктор) каждого объекта. Например, так:

for i:=Low(MyArray) to High(MyArray) do
  if Assigned(MyArray[i]) then MyArray[i].Free;

Я же говорю, "Ему хочется странного"...

полностью согласен.
Имхо, для подобных целей придумали датасеты. Они есть размещаемые в памяти (например, TJvMemoryData). и тогда можно не только хранить любые табличные данные, но и легко их добавлять, искать, сортировать, отображать в гриде и т.д. и т.п.

[xrob]

кстати, отображать в гриде я тоже с нуля буду )))
напишу свой компонент, который будет показывать мне таблицу,
с АДЕКВАТНОЙ прокруткой, а не как в стандартных компонентах. ы!
все это дело рисоваться будет на канвасе =)
с помощью Canvas.Draw(bitmap) и Canvas.TextOut.
для редактирования ячейки положим на нее сверху TEdit.
вот как-то так =)

для тех кто считает что это глупо - прстой вопрос, точнее 2, пока 2:
я хочу чтоб цвет сетки в StringGrid был зеленый. как?
я хочу плавную полосу прокрутки, а не по строчкам или колонкам. как?