"Array of String" leeren

[Sharky]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 myArray : Array[0..14] of String;
 ndx     : Integer;
begin
  //low(myArray) gibt den Start des Array an.
  //high(myArray) gibt das Ende des Array an
  //Es geht also auch wenn das Array [2..6] definiert wäre ;-)
  for ndx := low(myArray) to high(myArray) do  // eine einfache Schleife
  begin
    myArray[ndx] := '';  //String leeren.
  end;
end;