Einträge aus Array in MessageBox

[Popov]

Viele Wege führen nach Rom:

Delphi-Quellcode:

var
  Test: PSEArray;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := Low(Test) to High(Test) do
    Test[i] := IntToStr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  with TStringList.Create do try
    for i := Low(Test) to High(Test) do Add(Test[i]);
    ShowMessage(Text);
  finally Free end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  s := '';
  for i := Low(Test) to High(Test) do s := s + Test[i] + #13#10;
  ShowMessage(s);
end;

Das Problem ist, dass es vermutlich gar nicht um eine MessageBox geht. Erstens bekommt man die 104 Zeilen nicht auf den Bildschirm, der OK Button wird unten verschluckt.

Zweiten gehe ich davon aus, dass der TE an einem zweiten Fenster interessiert ist, in dem er die Informationen vom angeklickten Element anzeigen möchte, so wie im Beispiel: