Did Delphi ever get a for each loop?

Question

I've read that Delphi was supposed to get a for each loop in Delphi 9. Did this functionality ever make it into the language? My Delphi 2009 IDE doesn't seem to recognize the for each syntax. Here's my code:

  procedure ProcessDirectory(p_Directory, p_Output : string);
  var
    files : TStringList;
    filePath : string;
  begin
    files := GetSubfiles(p_Directory);
    try
      for (filePath in files.Strings) do
      begin
        // do something
      end;

    finally
      files.Free;
    end;
  end;

You've got it exactly right, except for the parentheses. Remove them and it should work. — Mason Wheeler, Apr 19 '10 at 17:11
@Mason: not quite right - he should only use files, not files.strings! — Uwe Raabe, Apr 19 '10 at 20:43

score 56 · Accepted Answer · answered Apr 19 '10 at 16:48

procedure ProcessDirectory(p_Directory, p_Output : string); 
var 
  files : TStringList; 
  filePath : string; 
begin 
  files := GetSubfiles(p_Directory); 
  try 
    for filePath in files do 
    begin 
      // do something 
    end; 

  finally 
    files.Free; 
  end; 
end;

score 29 · Answer 2 · answered Apr 19 '10 at 16:47

29

Yes.

But it is for..in

Try

var
  s: string;
  c: char;

begin
  s:=' Delphi Rocks!';
  for c in s do  //<--- here is the interesting part
  begin
    Application.MainForm.Caption:=Application.MainForm.Caption+c;
    Sleep(400); //delay a little to see how it works
  end;

answered Apr 19 '10 at 16:47

John Thomas

4,075
3
29
41

1

I thought they opted for for .. in instead of for .. each in order to not add another reserved keyword. In is already a reserved keyword. – Ritsaert Hornstra Apr 19 '10 at 20:50
5

Plausible, but more likely is that the "each" in "for each" would not replace "in" but be a redundant addition ("for each .. in", vs "for .. in"). So not just a new keyword, but an entirely unnecessary one. – Deltics Apr 19 '10 at 21:16

Did Delphi ever get a for each loop?

2 Answers2