Array in ShowMessage ausgeben?

[Der schöne Günther]

Die GetEnumerator -Geschichte ist einer der spannenderen Sachen, die ich mir noch aufgehoben habe. Deshalb kann ich dazu nichts mehr sagen
Das interessante ist ja, dass etwas überhaupt kein IEnumerable<T>-Interface unterstützen muss, um mit for..in drüberrutschen zu können. Was ist hier los? Duck-Typing? Irgendwann schaue ich da mal unter die Haube. Aber wir schweifen ab

[himitsu]

Bei einigen Typen, wie eben den Arrays, wird der Enumerator direkt vom Compiler erzeugt.
Da wird dann einfach für array of T , array[x..x] of T , bzw. TArray<T> ein passender TEnumerable<T> erzeugt.

Bis vor Kurzem konnte man auch noch keine Record-Helper an einfache Typen (wie z.B. Arrays, Integer, String) hängen.
Nur Record-Helper für Records und Class-Helper für Klassen. (an Interfaces geht dann nun wohl auch endlich? )

Somit blieb, bei diesen Default-Enumeratoren für Arrays, nur der Weg über die Compiler-Magic.

[Der schöne Günther]

Zitat von himitsu:

(an Interfaces geht dann nun wohl auch endlich?)

Als ob
Kann aber sein dass es gute Gründe dafür gibt, nie darüber nachgedacht.
XE3 hat meine ich die Möglichkeit für Record Helper für eingebaute Typen wie Integer eingeführt, XE4 dann auch Standard-Implementationen vorgegeben.

[AlexII]

Zitat von 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;

Hm... hier braucht man doch auch kein Array... wozu? Geht doch auch ohne!

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
   i : Integer;
   s : String;
begin
   s := '';
   for i:=1 to 8 do
   begin
     s := s + IntToStr(Random(9));
   end;
   ShowMessage(S);
end;

[baumina]

Zitat von AlexII:

Hm... hier braucht man doch auch kein Array... wozu? Geht doch auch ohne!

Stimmt, man braucht das Array nicht, aber deine Frage war "Array in ShowMessage ausgeben?", hätte ich wohl nicht wörtlich nehmen dürfen, mein Fehler.

[AlexII]

Zitat von baumina:

Zitat von AlexII:

Hm... hier braucht man doch auch kein Array... wozu? Geht doch auch ohne!

Stimmt, man braucht das Array nicht, aber deine Frage war "Array in ShowMessage ausgeben?", hätte ich wohl nicht wörtlich nehmen dürfen, mein Fehler.

Ne ne... ist gut so, deine Antwort ist auch richtig, danke!
ich habe nur weiter überlegt und sah das mein Ansatz mit Array überflüssig ist.

[Stevie]

Zitat von himitsu:

Bei einigen Typen, wie eben den Arrays, wird der Enumerator direkt vom Compiler erzeugt.
Da wird dann einfach für array of T , array[x..x] of T , bzw. TArray<T> ein passender TEnumerable<T> erzeugt.

Hö? Ist das nicht nach wie vor Compiler Magic bei arrays?

[himitsu]

Gute Frage

Kann natürlich sein, daß die das immernoch als Compilermagic implementiert haben.
Obwohl, vom optimalen code her, wäre es wahrscheinlich, daß es immernoch wie eine While-Schleife ist.

Sagen wir es einfach mal so: Für uns sieht es wie ein Enumerator aus (so isses verständlicher) und was intern gemacht wird, ignorieren wir.

[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

[Dennis07]

Wieso nicht einfach mit String.Join(...) ?

ShowMessage(String.Join(String.Empty, MyStringArray)) Alternativ kannst du natürlich hier auch einen anderen Separator wie zB. sLineBreak oder ',' verwenden.

Zitat von Stevie:

Hö? Ist das nicht nach wie vor Compiler Magic bei arrays?

Ja. Wenn du dir den CPU-Stack anzeigen lässt, dann wirst du sehen, dass hier bei dynamischen Arrays nur eine Indexvariable benutzt wird. Es gäbe für den Compiler ja auch keinen Grund, hier irgendeine Klasse zu erzeugen.