Array in ShowMessage ausgeben?

[Der schöne Günther]

Die

Delphi-Quellcode:

GetEnumerator

-Geschichte ist einer der spannenderen Sachen, die ich mir noch aufgehoben habe. Deshalb kann ich dazu nichts mehr sagen :oops:
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 8-)

[himitsu]

Bei einigen Typen, wie eben den Arrays, wird der Enumerator direkt vom Compiler erzeugt.
Da wird dann einfach für

Delphi-Quellcode:

array of T

,

Delphi-Quellcode:

array[x..x] of T

, bzw.

Delphi-Quellcode:

TArray<T>

ein passender

Delphi-Quellcode:

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:

Zitat von himitsu (Beitrag 1245742)

(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:

Zitat von baumina (Beitrag 1245677)

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:

Zitat von AlexII (Beitrag 1245809)

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:

Zitat von baumina (Beitrag 1245810)

Zitat:

Zitat von AlexII (Beitrag 1245809)

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! :thumb:
ich habe nur weiter überlegt und sah das mein Ansatz mit Array überflüssig ist.

[Stevie]

Zitat:

Zitat von himitsu (Beitrag 1245742)

Bei einigen Typen, wie eben den Arrays, wird der Enumerator direkt vom Compiler erzeugt.
Da wird dann einfach für

Delphi-Quellcode:

array of T

,

Delphi-Quellcode:

array[x..x] of T

, bzw.

Delphi-Quellcode:

TArray<T>

ein passender

Delphi-Quellcode:

TEnumerable<T>

erzeugt.

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

[himitsu]

Gute Frage :gruebel:

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:

Zitat von DeddyH (Beitrag 1245678)

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

Delphi-Quellcode:

String.Join(...)

?

Delphi-Quellcode:

ShowMessage(String.Join(String.Empty, MyStringArray))

Alternativ kannst du natürlich hier auch einen anderen Separator wie zB.

Delphi-Quellcode:

sLineBreak

oder

Delphi-Quellcode:

','

verwenden.

Zitat:

Zitat von Stevie (Beitrag 1245853)

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

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.