Records löschen

[s14]

Hier mal ein Beispiel zu Records. Es wird nur eine Memo-Komonente zur Ausgabe des Array benötigt.

Delphi-Quellcode:

procedure TForm1.Button19Click(Sender: TObject);
type
  TEntries = record
    text: string;
  end;
var
  a : Array of TEntries;
  i : Integer;
begin
  SetLength(a, 5);
  // array füllen
  for i := low(a) to high(a)
    do a[i].text := Format('Eintrag: %d', [i]);

  // Testausgabe in memo
  for i := low(a) to high(a) do Memo1.Lines.Add(a[i].text);

  // Eintrag 3 löschen
  a[3] := a[high(a)];
  SetLength(a, 4);

  // Testausgabe in memo, diesmal fehlt der Eintrag 3
  for i := low(a) to high(a) do Memo1.Lines.Add(a[i].text);
end;