Array in ShowMessage ausgeben?

[AlexII]

Ah.. jah... ok, ich dachte es geht irgendwie mit einer Schreibweise von a.
Danke ecuh!

[Der schöne Günther]

Hintergedanken an Java und sein ToString() ?

Ich würde es in Delphi mit einer Helperklasse machen, ich liebe die Dinger.

Delphi-Quellcode:

interface
   TIntegerArrayHelper = record helper for TArray<Integer>
      function ToString(): String;
   end;

implementation
   function TIntegerArrayHelper.ToString(): String;
   var
      elementNo: Integer;
   begin
      Result := EmptyStr;

      for elementNo := Low(self) to High(self) do
         Result := Result + self[elementNo].ToString();
   end;

Mit einem so festgeschriebenen Array wie Array[X..Y] of someType klappt das natürlich nicht. Die Helperklasse hier würde nur für jedes dynamische Integer-Array greifen. Alternativ (z.B. wenn es denn immer 8 Integer sind) kann (und sollte) man sich einen eigenen Typen-Alias definieren (und dann kann man wieder eine spezielle Helperklasse dafür bauen)

[himitsu]

Du kannst auch gern die Generics etwas ausnutzen.

Delphi-Quellcode:

function TIntegerArrayHelper.ToString: String;
var
  Element: Integer;
begin
  Result := Default(String);
  for Element in Self do
    Result := Result + Element.ToString;
end;

Im Prinzip ist diese Funktion schon für alles Arrays gewappnet, solange die Elemente ein ToString besitzen.
Objekte haben Dieses, aber das ist noch recht selten "richtig" implementiert, bzw. es wurde oftmals vergessen es entsprechend zu überschreiben.

Delphi-Quellcode:

function TIntegerArrayHelper.ToString(Separator: Char=#0): String;
var
  Element: Integer;
begin
  Result := '';
  for Element in Self do
    if (Result <> '') and (Separator <> #0) then
      Result := Result + Separator + Element.ToString
    else
      Result := Result + Element.ToString;
end; 

// bzw.

function TIntegerArrayHelper.ToString(Separator: Char=#0): String;
var
  Element: Integer;
begin
  Result := '';
  for Element in Self do
    Result := Result + Element.ToString + Separator;
  Delete(Result, High(Result), 1);
end;

[Der schöne Günther]

Das ein "for .. in" auf record-Typen funktioniert hätte ich nicht gedacht. Aber wo sind denn da Generics?

Und ja, die Elemente-Ausgabe noch mit einem Separator zu trennen hätte ich auch noch eingebaut. Als Verbesserungsvorschlag: Den Separator als String und nicht Char! Ich habe schon oft geweint weil ich irgendwo als Trennung zwei oder mehr Zeichen haben wollte und irgendeine blöde Methode dachte, mich mit einem einzigen Char abspeisen zu können.

[himitsu]

Die sind intern versteckt.
z.B. viele Standard-Enumeratoren werden automatisch über einen generischen Basistyp erzeugt und das Default(Typ) ist auch von da.

Für Arrays wird intern ein Enumator generisch erzeugt, sobald man das Array mit For-In verwendet.


Als Char war der halt "einfacher", borallem beim letzen Beispiel.
Aber da den Seperator an den String-Anfang und man muß auch nichts mehr berechnen. (Delete mit Low und Length)

[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.