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: