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?