Array, String von Stringlist per [0] ?

[Pseudemys Nelsoni]

hoi sakura,

das free hat ich nur so zum test drin, oder sollte ich erst Free'en wenn ich alle stringlists durch hab?


danke für deinen code . ich habe das jetzt s:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  stArray: Array[0..4] of TStringList;
  i: integer;
begin
  for i := 0 to 4 do
  begin
    stArray[i].Create;
    stArray[i].Add('test' + IntToStr(i));
    ShowMessage(stArray[i][i]);
    Free;
  end;
end;

aber bei der ausführung des buttons bekomme ich eine zugriffsverletzung EAccessViolation,