Изменение размера динамического массива налету

[Zeraim]

У меня есть мой тип:

type
  MyType = record
    Name : string;
    Path : String;
    Ico : TIcon;
  end;

Далее я создаю массив:

mInfo : array of MyType;

А дело в том что я не могу сказать какой окончательный размер моего массива будет.
То есть просто SetLength(mInfo,...); не подходит, по скольку уже имеющаяся информация теряется.
Пробовал создавать еще один массив, через Copy копировать информацию, но к сожалению работает только со стрингами, остаются иконки.
И что с ними делать, без понятия.

[N!ckeL]

А дело в том что я не могу сказать какой окончательный размер моего массива будет.

Создать максимально возможный массив.

[Daramant]

просто SetLength(mInfo,...); не подходит, по скольку уже имеющаяся информация теряется.

Почему? Информация не теряется. Цитата из help'a:

Existing characters in the string or elements in the array are preserved, but the content of newly allocated space is undefined

Для проверки набросал пример с твоими типами - действительно все работает.

Может, для большей ясности, приведи код, который не работает.

P.S. Если не принципиально, то лучше использовать классы вместо записей.
Если использовать классы, то у тебя будет массив указателей на объекты и, при изменении размера динамического массива, будут копироваться только они, а не все содержимое, как при использовании записей.

[Zeraim]

Сообщение от N!ckeL

Создать максимально возможный массив.

И зачем лишнюю память кушать ? Да и потом не красиво как то будет, использовать к примеру 130 элементов из 500.

Почему? Информация не теряется.

Хм, странно, сейчас еще раз проверю =\\
=================================== =================================== ======================
И правда SetLength работает, и странно почему он у меня до этого терял значения, видать где то накосячил.

[Kostia]

Есть более деликатный способ реализации динамических массивов:

type
  MyType = record
    Name : string;
    Path : String;
    Ico : TIcon;
  end;
  MyTypeArray = array[0..0] of MyType;
  PMyTypeArray = ^MyTypeArray;

var
  mInfo: PMyTypeArray;

begin
  mInfo:=ReallocMemory(mInfo,sizeof(MyType)*10);
  mInfo[0].Name:='asdf';
  writeln(mInfo[0].Name);
end.

И все работает))

[Alter]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

 type
  PMyType = ^MyType;
  MyType = record
    Name : string;
    Path : String;
    Ico : TIcon;
  end;  

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses ShellAPI;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var List :TList;
    PMy,ReadItm :PMyType;
    PName :Array[0..255]of Char;
    I :Integer;
    VarParam :Word;
begin
 List := TList.Create;
  Try
 // добавление
 New(PMy);
 PMy^.Name := 'Файловая оболочка';
 PMy^.Path := 'C:\WINDOWS\explorer.exe';
 {StrPCopy(PName, PMy^.Path);
  PMy^.Ico.Handle := ExtractAssociatedIcon(hInstance, PName, VarParam); {}
  // заносим в список
 List.Add(PMy);
   // List.Count  // <- всего записей в списке
 // Читаем
 for I:=0 tO List.Count-1 do
 begin
  ReadItm := List.Items[I];
  // что-то делаем с данными
  ShowMessage( ReadItm^.Name + #13#13 + ReadItm^.Path );
 end;
  // Чистим
 for I:=0 to List.Count-1 do
 begin
  ReadItm := List.Items[I];
  Dispose(ReadItm);
 end;
  Finally
 List.Free;
  End;
end;

end.

[Daramant]

Kostia
Есть более деликатный способ реализации динамических массивов

Я бы сказал более извращенный.

Нет, конечно этот способ хорош, я реализовывал таким способом динамические массивы в Pascal'е. Но нужно пользоваться чем-то более высокоуровневым. И для этого есть array of и SetLength()

[Daramant]

Alter зачем возиться с указателями на записи, если есть классы.
Тот же код, но, согласись, намного понятнее:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyType = class
  public
    Name : string;
    Path : String;
    Ico : TIcon;

    constructor Create(const aName, aPath: String; aIco: TIcon);
    destructor Destroy; override;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses ShellAPI;

{$R *.dfm}

{ TMyType }

constructor TMyType.Create(const aName, aPath: String; aIco: TIcon);
begin
  Name := aName;
  Path := aPath;
  Ico := aIco;
end;

destructor TMyType.Destroy;
begin

  inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var List :TList;
    I :Integer;
begin
 List := TList.Create;
  Try
 // Добавление (Ico я не заполнял)
 List.Add(TMyType.Create('Файловая оболочка', 'C:\WINDOWS\explorer.exe', nil));

 // читаем
 for I:=0 tO List.Count-1 do
   with TMyType(List[i]) do
    // что-то делаем
    ShowMessage(Name + #13#13 + Path);

  Finally
   List.Free;
  End;
end;

end.

[0nni]

Daramant, согласен (только в деструктор дописать надо ). А если все это засунуть в TobjList или коллекцию, то вопросы распределения памяти вообще отпадут.

[Daramant]

0nni

только в деструктор дописать надо

Конечно, Ico нужно освободить.

А если все это засунуть в TobjList

Я обычно TObjectList и использую, а точнее пишу обертку, чтобы постоянно не приводить типы TMyType(List[i]).
Alter использовал TList и я лишь переделал его пример.