Kombinationen von Strings

[DeddyH]

Erster!

[himitsu]

@Klaus01:
Ab mindestens Delphi 2010 kann man sich auch solch einen Spaß erlauben. (vielleicht auch schon ab 2009/2006/TDE ... da sowas blöder Weise nicht in er OH erwähnt wird, bin ich mir nicht ganz sicher)

Delphi-Quellcode:

for S1 in StringList1 do
  for S2 in StringList2 do
    for S3 in StringList3 do
       Memo1.Lines.Add(Format('%s,%s,%s', [S1, S2, S3]));

Aber bei den 3 Schleifchen bleibt es dennoch.

[papax]

ICH LIEBE EUCH!
Vielen Dank für die vielen und schnellen Antworten.

[haentschman]

for S1 in StringList1 do ...echt sowas geht ? Muß ich mal ausprobieren...

[Nersgatt]

Zitat von haentschman:

for S1 in StringList1 do ...echt sowas geht ? Muß ich mal ausprobieren...

In Verbindung mit Generics finde ich das noch viel spannender:

Delphi-Quellcode:

  TAuto = class
    public
      Marke : string;
      Typ : string;
      Farbe : String;
  end;
  TGarage = TList<TAuto>;

...

Delphi-Quellcode:

  MeineGarage := TGarage.Create;
  try
    auto := TAuto.Create;
    auto.Marke := 'Porsche';
    auto.Typ := '911';
    Auto.Farbe := 'Blau';

    MeineGarage.Add(Auto);

    for auto in MeineGarage do
      ShowMessage(auto.Marke);

  finally
    MeineGarage.Free;
  end;

[himitsu]

Für TStrings und Nachfahren existiert standardmäßig schon ein Enumerator.

Delphi-Quellcode:

  TStringsEnumerator = class
  private
    FIndex: Integer;
    FStrings: TStrings;
  public
    constructor Create(AStrings: TStrings);
    function GetCurrent: string; inline;
    function MoveNext: Boolean;
    property Current: string read GetCurrent;
  end;

  TStrings = class(TPersistent)
  public
    ...
    function GetEnumerator: TStringsEnumerator;
    ...
  end;

Bei Arrays und für einige andere Listen (z.B. TList oder TComponent) gibt es auch sowas.
Für eigene Klassen kann man Diesen selber nachrüsten.