Array in ShowMessage ausgeben?

[waterboy]

Zitat von DeddyH:

So?

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;

Oder als eigene Funktion:

Delphi-Quellcode:

function IntArrayToStr(const Ints: array of integer): string;
var
  i: integer;
begin
  Result := '';
  for i := Low(Ints) to High(Ints) do
    Result := Result + IntToStr(Ints[i]);
end;

Das ist wirklich genial und genau nach sowas habe ich gesucht. Vielen Dank.

in VBA und Python kann man die Arrays direkt ausgeben. Das fehlt mir in Delphi.

Viele Grüße

rainer