Thema: Delphi "Array of String" leeren

Einzelnen Beitrag anzeigen

MathiasSimmack
(Gast)

n/a Beiträge
 
#14

Re: "Array of String" leeren

  Alt 11. Apr 2004, 12:27
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.
  Mit Zitat antworten Zitat