Schleife über TStrings Zeilen (ohne Index zu verwenden)

[mjustin]

Hallo,

beim Versuch einen class helper für TStrings zu schreiben bin ich darüber gestolpert dass es in TStrings keine Property Strings gibt über die man iterieren kann

Delphi-Quellcode:

function TMyFirstStringsHelper.ToQuotedValueList: string;
var
   S: string;
begin
   Result := '';

   for S in Self.Strings do // <--- Fehler: [dcc32 Fehler] E2029 '[' erwartet, aber 'DO' gefunden
   begin
      if Result <> '' then
      begin
         Result := Result + ',';
      end;

      Result := Result + '''' + Trim(S) + '''';
   end;
end;

Ich kann hier natürlich mit einem Index arbeiten, dachte aber dass es auch mit einem for S in Konstrukt möglich sein müsste. Habe ich etwas übersehen?

[Uwe Raabe]

for S in Self do sollte gehen.

[jaenicke]

Hintergrund ist, dass Strings die indizierte Property zum Zugriff auf einzelne Elemente ist. Darin gibt es aber keinen Enumerator, der ist in TStrings selbst drin.

[mjustin]

Zitat von Uwe Raabe:

for S in Self do sollte gehen.

Oh, das naheliegendste hatte ich übersehen, Danke

Zitat von jaenicke:

Hintergrund ist, dass Strings die indizierte Property zum Zugriff auf einzelne Elemente ist. Darin gibt es aber keinen Enumerator, der ist in TStrings selbst drin.

Ja, die Strings Property funktioniert nur mit Index. Da stellt sich mir die Frage, ob man auch für eigene Klassen eine Collection Property definieren kann, über die man dann über for ... in iterieren kann. Man kann über Collections mit for ... in iterieren, aber liegt das eiinfach nur an bestimmten Interfaces die man dazu in einer Klasse implementieren muss?

Oh, schon etwas dazu gefunden:

http://www.nickhodges.com/post/Enume...A6in-Loop.aspx