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

[xrob]

Здрастуйте =)
у меня вот какой вопрос:

допустим есть array of TStrings.
что будет если я SetLength(array,1000),
а потом array[999]:=TStringList.Create; ?

т.е. по-идее я создам один единственный TStringList,
но как это скажется на памяти, с учетом того что он 999-й в массиве?
весь остальной массив пустой.

p.s.
пытаюсь придумать систему хранения табличных данных.
кроме как array of TStrings ничего не придумал.
может есть у кого гениальные идеи на этот счет?
Как бы это сделал "правильный" програмер?

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

да собственно после SetLength вы уже выделили память на 1000 указателей(помним что объекты по ссылкам хранятся)
или ччего вы ожидаете?
лишь один элемент массива будет указывать на объект, остальные мусор.

может есть у кого гениальные идеи на этот счет?
Как бы это сделал "правильный" програмер?

зависит от активности изменения количества этих списков.
тут или массив списков или список списков.

[Аватар]

SetLength(array,1000) и отведет память для 1000 указателей на TStrings. array[999]:=TStringList.Create запишет указатель в ранее отведенное место.

[ViktorXP]

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

допустим есть array of TStrings.
что будет если я SetLength(array,1000),
а потом array[999]:=TStringList.Create; ?

Интересно другое. что произойдет если ты следующей же строкой сделаешь
SetLength(array, 0);

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

т.е. по-идее я создам один единственный TStringList,
но как это скажется на памяти, с учетом того что он 999-й в массиве?
весь остальной массив пустой.

умнож 1000 на 4 (или на 8 если ты собираешь под x64)

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

p.s.
пытаюсь придумать систему хранения табличных данных.
кроме как array of TStrings ничего не придумал.
может есть у кого гениальные идеи на этот счет?
Как бы это сделал "правильный" програмер?

База данных? не?

[xrob]

да, вот как раз я и подумал потом про указатели.
и если следовать логике указателей, то

array[x]:=TStringList.Create;

равно

s:=TStringList.Create;
array[x]:=s;

да?

а что вы можете сказать вот об этом?

type
TXStrings = array of string;
var
Test:array of TXStrings;

т.е. массив массивов из строк... такое вообще допустимо?
компилится нормально.
только я вообще не понял как с этим работать...

Test[x][y] - ведь не так же???


а после SetLength(array, 0); насколько я могу понимать, выделится память под 0 элементов массива.
при этом то что было им раньше занято останется, пока не будет перезаписано чем-то другим.
а если еще после этого снова сделать SetLength(array, 999); то все вернется на свои места,
или перезапишется в null, я прав?

ViktorXP, ну мою задачу я озвучил - реализовать систему хранения табличной информации.
т.е. типа того:

"что-то" "нечто" "ничего" "еще что-нибудь"
"что-то" "нечто" "ничего" "еще что-нибудь"
и т.д.

база данных это или нет - вопрос субъективный.
для кого-то это база, для кого-то это смех веселый =)
вот как-то так.

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

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

Здрастуйте =)
у меня вот какой вопрос:

допустим есть array of TStrings.
что будет если я SetLength(array,1000),
а потом array[999]:=TStringList.Create; ?

т.е. по-идее я создам один единственный TStringList,
но как это скажется на памяти, с учетом того что он 999-й в массиве?
весь остальной массив пустой.

p.s.
пытаюсь придумать систему хранения табличных данных.
кроме как array of TStrings ничего не придумал.
может есть у кого гениальные идеи на этот счет?
Как бы это сделал "правильный" програмер?

я бы написал свой класс на основе TobjectList и TObject
Вот скелет:

unit Unit2;

interface

uses SysUtils,Windows,Contnrs,Classes;

type
  TMyDB = class(TObject)
  private
  fStrings:TStringList;
  public
  property myStrings:TStringList read fStrings write fStrings;
  constructor Create;
  destructor Destroy; override;
  end;

type
  TMyDBList=class(TObjectLIst)
  private
  function GetDB(aIndex:Integer):TMyDB;
  public
    property DB[aIndex:Integer]:TMyDB read GetDB;
    procedure AddDB(aDB:TMyDB);
    procedure DeleteDB(aIndex:Integer);
    constructor Create; overload;
    constructor Create(aDBCount:Integer); overload;
    destructor Destroy; override;
  end;

implementation

{ TMyDB }

constructor TMyDB.Create;
begin
  inherited;
  fStrings:=TStringList.Create;
end;

destructor TMyDB.Destroy;
begin
  FreeAndNil(fStrings);
  inherited;
end;

{ TMyDBList }

procedure TMyDBList.AddDB(aDB: TMyDB);
begin
  Add(aDB);
end;

constructor TMyDBList.Create;
begin
  inherited;
  <

  >
end;

constructor TMyDBList.Create(aDBCount: Integer);
var
  vDB:TMyDB;
  i:Integer;
begin
  for i:=0 to aDBCount -1 do
  begin
    vDB:=TMyDB.Create;
    addDB(vDB);
  end;
end;

procedure TMyDBList.DeleteDB(aIndex: Integer);
begin
  DB[aIndex].Free;
end;

destructor TMyDBList.Destroy;
begin

  inherited;
end;

function TMyDBList.GetDB(aIndex: Integer): TMyDB;
begin
  Result:=(Items[aIndex] as TMyDB);
end;

end.

Комментировать нужно?

[ViktorXP]

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

array[x]:=TStringList.Create;

равно

s:=TStringList.Create;
array[x]:=s;

да?

Да.

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

а что вы можете сказать вот об этом?

type
TXStrings = array of string;
var
Test:array of TXStrings;

т.е. массив массивов из строк... такое вообще допустимо?
компилится нормально.
только я вообще не понял как с этим работать...

Test[x][y] - ведь не так же???

А почему бы и нет? ну можешь и так указать
Test[x,y]компилятор поймет.

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

перезапишется в null, я прав?

Да (хотя скорее в nil )

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

ViktorXP, ну мою задачу я озвучил - реализовать систему хранения табличной информации.
т.е. типа того:

"что-то" "нечто" "ничего" "еще что-нибудь"
"что-то" "нечто" "ничего" "еще что-нибудь"
и т.д.

база данных это или нет - вопрос субъективный.
для кого-то это база, для кого-то это смех веселый =)
вот как-то так.

если у тебя 2009+ тогда посмотри на TDictionary из модуля Generics.Collections
если у тебя ниже тогда посмотри в сторону TBucketList из модуля Contnrs
(TBucketList не так удобно как сие можно реализовать на TDictionary)

[xrob]

Add(aDB); это видимо функция описанная в классе, от которого вы унаследовали TMyDBList, да?
а TMyDB содержит TStringList. а функция Add(aDB); кладет куда-то в TMyDBList экземпляр TMyDB, так?
по сути это то же самое что и array of TStrings, только основано на более высокоуровневых объектах.
или я не прав? мне кажется вы слишком сложно завернули для моей задачи. и слова страшные используете: MyDB, ListDB... "список баз данных"... у меня вызывает оочень "тяжелые" ассоциации =)
а я хочу сделать легкий доступ к своим данным типа как Cells[x,y] в StringGrid.
но за идею спасибо =)

ViktorXP, у меня Delphi 10 lite ))))
там даже TWebBrowser нету - достал из Delphi 7, на форму ручками прописываю, через Create ))
----------------------

а array of string; тоже указатели?
я надеюсь SetLength(array,1000); не займет 255*1000 памяти?

[notHaker]

Add(aDB); это видимо функция описанная в классе, от которого вы унаследовали TMyDBList, да?
а TMyDB содержит TStringList. а функция Add(aDB); кладет куда-то в TMyDBList экземпляр TMyDB, так?
по сути это то же самое что и array of TStrings, только основано на более высокоуровневых объектах.
или я не прав? мне кажется вы слишком сложно завернули для моей задачи. и слова страшные используете: MyDB, ListDB... "список баз данных"... у меня вызывает оочень "тяжелые" ассоциации =)
а я хочу сделать легкий доступ к своим данным типа как Cells[x,y] в StringGrid.
но за идею спасибо =)

ViktorXP, у меня Delphi 10 lite ))))
там даже TWebBrowser нету - достал из Delphi 7, на форму ручками прописываю, через Create ))

Никто вам ничего не заворачивал. Просто с объектами TList удобней. Там и добавить и удалить можно без фрагментирования и утечек (если запилить уничтожение объекта при наследовании).
Да и доступ примерно тот же.

List.Items[x].Items[y]

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

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

Комментирую:

unit Unit2;

interface

uses SysUtils,Windows,Contnrs,Classes;

type
  TMyDB = class(TObject)
  private
  fStrings:TStringList;
  public
//Свойство обеспечивающее доступ к внутренней переменой fStrings
  property myStrings:TStringList read fStrings write fStrings;
  constructor Create;
  destructor Destroy; override;
  end;

type
  TMyDBList=class(TObjectLIst) 
  private
  function GetDB(aIndex:Integer):TMyDB;
  public
    property DB[aIndex:Integer]:TMyDB read GetDB; 
    procedure AddDB(aDB:TMyDB);
    procedure DeleteDB(aIndex:Integer);
    constructor Create; overload;
    constructor Create(aDBCount:Integer); overload;
    destructor Destroy; override;
  end;

implementation

{ TMyDB }

constructor TMyDB.Create;
begin
  inherited;
  fStrings:=TStringList.Create;
//Создадим список строк
end;

destructor TMyDB.Destroy;
begin
//Уничтожим список строк
  FreeAndNil(fStrings);
  inherited;
end;

{ TMyDBList }

procedure TMyDBList.AddDB(aDB: TMyDB);
begin
  Add(aDB);
//Добавим обьект myDB в список
end;

constructor TMyDBList.Create;
begin
  inherited;

//Тут код при создании списка БД
end;

//Конструкктор с возможностью создать список БД с указанным кол-вом БД
constructor TMyDBList.Create(aDBCount: Integer);
var
  vDB:TMyDB;
  i:Integer;
begin
  for i:=0 to aDBCount -1 do
  begin
    vDB:=TMyDB.Create;
    addDB(vDB);
  end;
end;

procedure TMyDBList.DeleteDB(aIndex: Integer);
begin
//Уничтожиим обьект 
DB[aIndex].Destroy; 
//удалим его из списка(зачем занимать место?)
Delete(aIndex);
end;

destructor TMyDBList.Destroy;
begin
  {
 Сам уничтожает обькты
 }
  inherited;
end;

{
Возвращает нам элемент списка DBLIst по индексу
}
function TMyDBList.GetDB(aIndex: Integer): TMyDB;
begin
  Result:=(Items[aIndex] as TMyDB);
end;

end.

А вообще если хотите многомерный класс, то вместо tMyDB используйте самого себя.... tMyDBList и тогда получите иерархическую структуру...

А ообще это даже выше и проще массивов.. С масивами всегда много проблем(Особенно с многомерными).

Массив может быть каким угодно:

Type
  myArray = array of integer; //одномерный
{

     |_ 

}

Type
  myArray2 = array of array of Integer; //Двухмерный
{

    |_
      |_ 

 }

Type
  myArray3 = array of array of array of Integer; //Трёхмерный

{

    |_
      |_
        |_ 
}

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

Почитайте блог gunsmoker'а там много чего есть и про переменные и про массивы, в общем куча полезной информации=)