Thema: Delphi Dynamische Arrays in XE7

Einzelnen Beitrag anzeigen

mm1256

Registriert seit: 10. Feb 2014
Ort: Wackersdorf, Bayern
642 Beiträge
 
Delphi 10.1 Berlin Professional
 
#13

AW: Dynamische Arrays in XE7

  Alt 22. Jan 2015, 18:45
Hallo,

weil meine Frage zum Thema passt, fange ich mal keinen neuen Fred an.

Delphi-Quellcode:
type
  TIntegerRec = record
    i1 : integer;
    i2 : integer;
    s1 : string;
    s2 : string;
  end;
  TIntegerRecArray = array of TIntegerRec;

procedure TForm1.Button1Click(Sender: TObject);
var
  IRA : TIntegerRecArray;
  x: TIntegerRec;
  i: integer;
begin
  IRA := [];
  for i := 1 to 10 do begin
    x.i1 := i;
    x.i2 := i * 100;
    x.s1 := IntToStr(x.i1);
    x.s2 := IntToStr(x.i2);
    IRA := IRA + [x];
  end;
  Edit1.Text := '';
  for i := Low(IRA) to High(IRA) do begin
    x := IRA[i];
    Edit1.Text := Edit1.Text+x.s1+','+x.s2+' ';
  end;
  IRA := []; // muss das sein?
end;
Meine Frage ist, muss das Array geleert werden, um den Speicherplatz freizugeben? Wie verhält es sich, wenn IRA eine globale Variable wäre? Gibt dann die Application beim Beenden den Speicher frei?
Gruss Otto PS: Sorry wenn ich manchmal banale Fragen stelle. Ich bin Hobby-Programmierer und nicht zu faul die SuFu zu benutzen
  Mit Zitat antworten Zitat