Tut mir leid, das habe ich nicht gesehen. Aber bei mir hat´s mit "SetLength" funktioniert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s : array of string;
i : integer;
begin
SetLength(s,10);
for i := 0 to 9 do
s[i] := Format('Eintrag %d',[i]);
for i := low(s) to high(s) do
Memo1.Lines.Add(s[i]);
// Array leeren
SetLength(s,0);
// und mal gucken, dass nichts mehr da ist
SetLength(s,1);
// bei mir eine leere Box:
ShowMessage(s[0]);
end;
Und mit "ZeroMemory":
ZeroMemory(@s[0],high(s));
ging´s auch.