Delphi, her döngü için birer birer aldın mı?

Question

Delphi'nin Delphi 9'daki her döngü için bir sonuç alması gerektiğini okudum. Bu işlevsellik bunu dile çevirdi mi? Delphi 2009 IDE'm her bir sözdizimini tanımak gibi görünmüyor. İşte benim kodum:

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

Evet.

Ama Sen parantez haricinde, bu tam olarak doğru var

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;