Czy Delphi kiedykolwiek otrzymywał po każdej pętli?

Question

Czytałem, że Delphi miało otrzymać dla każdej pętli w Delphi 9. Czy ta funkcjonalność kiedykolwiek została wprowadzona w języku? Moje IDE Delphi 2009 wydaje się nie rozpoznawać każdej składni. Oto mój kod:

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; 

Answer 1

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; 

Answer 2

Tak.

Ale to for..in

Spróbuj

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;