Array, String von Stringlist per [0] ?

[Pseudemys Nelsoni]

hoi,

sagen wir mal ich habe erin array of TStringList;
wie greif ich auf die einzelnen items der list zu?
ich hatte es so versucht (ist nur ein beispiel gibt also keinen sinn):

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]]);              // Die zeile soll falsch sein
    Free;
  end;
end;

so:

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].Strings[i]);
    Free;
  end;
end;

geht es auch nicht , hmm

[sakura]

Siehe Markierung

Code:

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));
    [color=#ec0000][s]ShowMessage(stArray[i[i]]);              // Die zeile soll falsch sein
                                             // ist diese auch ;-)[/s]
    ShowMessage(stArray[i][i]);              // Die zeile ist korrekt[/color]
    [color=#008000]//P.S.: WAS SOLL DAS FREE; HIER?[/color]
    Free;
  end;
end;

...:cat:...

[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, :(

[Pseudemys Nelsoni]

ich kriege sogar schon den fehler, mit nur diesen zeilen:

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');

  end;
end;

[sakura]

Du musst die Stringlisten korrekt erstellen ;-)

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  stArray: Array[0..4] of TStringList;
  i: integer;
begin
  for i := 0 to 4 do
  begin
    stArray[i][color=#f50000] := TStringList[/color].Create;
    stArray[i].Add('test');

  end;
end;

...:cat:...

[Pseudemys Nelsoni]

ah ich idiot, ...sonst mahc ich das auch immer *g*. Das Array hat mich verwirrt, danke :)