Thema: Delphi Dynamische Arrays in XE7

Einzelnen Beitrag anzeigen

mm1256

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

AW: Dynamische Arrays in XE7

  Alt 22. Jan 2015, 17: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
Wenn du mit Gott reden willst, dann bete.
Wenn du ihn treffen willst, schreib bei Tempo 220 eine SMS
  Mit Zitat antworten Zitat