Array in ShowMessage ausgeben?

[baumina]

Mach dir eine Hilfsvariable, so z.B.:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
   a : Array[1..8] of Integer;
   i : Integer;
   s : String;

begin
   s := '';
   for i:=1 to 8 do
   begin
     a[i]:= Random(9);
     s := s + IntToStr(a[i]);
   end;
   ShowMessage(S);
end;