Делфи когда-нибудь получал за каждый цикл? - PullRequest
Новая
       15

Делфи когда-нибудь получал за каждый цикл?

23 голосов
/ 19 апреля 2010

Я читал, что Delphi должен был получить a для каждого цикла в Delphi 9. Превратила ли эта функциональность когда-либо в язык?Моя среда разработки Delphi 2009, похоже, не распознает каждый синтаксис.Вот мой код: 

  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;

Ответы [ 2 ]

45 голосов
/ 19 апреля 2010 
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;
26 голосов
/ 19 апреля 2010

Да.

Но это для ... в

Попробуйте 

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;
...