Делфи. Как очистить содержимое массива?

[S_Yevgeniy]

Здравствуйте!!!
Есть массив. В него вносится информация из файла. Массив String. Как можно его очистить после того как программа к нему обратилась чтобы он не занимал память. И чтобы если программа вновь к нему обратиться количество строк в нем отсчитывалась вновь.

Язык программирования Delphi!!! Массив Mass[I,J]

[Utkin]

Изначально освобождаем все строки (в цикле)

for i:=0 to max_po_i-1 do
begin
   for j:=0 to max_po_j-1 do
   begin

       Mass[i, j]:='';
   end;
end;

таким образом массив будет существовать, но все элементы не будут занимать память (официально, на самом деле String в большинстве случаев в Делфи являются длинными строками, а они в свою очередь представляются указателями).

[S_Yevgeniy]

Ну я так сделал!!! Это не помогает. Проблема в том что массив мне нужен для того чтобы в нем временно хранить данные из файлов. Вот например я открыл файл раскидал содержимое по узлам массива потом нужное передал в StringGrid. Далее открываю следующий файл. И он может оказаться меньше предыдущего а массив не очищен.


А может вы можете подсказать как пользоваться динамическим массивом. Просто что-то в литературе мудрено написано.
Как вот создать динамический массив типа . Mass array [0..500,0..10] of string;
Как мне подсказал Google динамический массив можно чистить.
Огромное Вам спасибо.

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

установи нулевую длинну массива
но аккуратнее...+ты уверен что оно тебе нужно?

и не забывай что Винда не сразу освобождает зарезервированную память(то есть в диспетчере память жратся будет всеравно)
массив локальный/глобальный?

[Utkin]

Установить длину динамического массива можно через SetLength(имя_массива, число_элементов), также можно установить длину отдельной строки (считайте что перед Вами, массив символов).

[Alter]

Подробный пример с использованием ZeroMemory:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  mas :array[0..5, 0..5]of string;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var I, J :Integer;
begin
 Randomize;
 for I:=0 To 5 do
  for J:=0 To 5 do
   mas[i, j] := Format('Int[%d, %d]=%d', [I, J, Random(100)+20]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ListBox1.Clear;
end;

procedure TForm1.Button4Click(Sender: TObject);
var I, J :Integer;
    S :string;
begin
 for I:=0 To 5 do
 begin
   S := '';
  for J:=0 To 5 do
   S := S + ' ' +mas[i, j];
   ListBox1.Items.Add(S);
 end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 ZeroMemory(@mas, SizeOf(mas));
end;

end.

[Utkin]

Ну у него разные данные, он не знает какой размер массива ему нужно, седня столько, через 2 минуты в два раза больше...

[puporev]

он не знает какой размер массива ему нужно,

Как-то же он определяет размер первого массива, так же и всех остальных. Просто сначала определить количество элементов следующего массива N, потом Setlength(mas,N);

[ivladak]

А может вы можете подсказать как пользоваться динамическим массивом. Просто что-то в литературе мудрено написано.
Как вот создать динамический массив типа . Mass array [0..500,0..10] of string;
Как мне подсказал Google динамический массив можно чистить.
Огромное Вам спасибо.

объявляется в твоем случае динамический массив так:
var
mass: array of array of string;

т. е. ты теперь имеешь динамический массив динамических массивов.

как работать с длиной, выше уже было написано. чистить - просто уменьшать длину.. например, setlength(mass[i],0) или даже setlength(mass,0,0), если хочешь убить сразу все.

еще не забывать, что динамические массивы всегда рассматриваются в 0-индексации. было еще сказано, что память освобождается не сразу. это действительно так, но дело даже не в операционной системе, а в языке и среде разработки. было эксперементально установлено, что C++ после уменьшения длины динамических массивов (векторов) отдает память, а Delphi - нет

[Serge_Bliznykov]

а не проще ли TStringList.LoadFromFile() ?
(чем TStringList не массив? )