Мало кто знает (и еще меньше, кто использует) о такой замечательной конструкции в Delphi (начиная с Delphi 2005), как for..in.

А зря. Вот простой пример. Как можно перебрать значения в TStringList. Например так:

procedure DoStringList(AList: TStringList);

var

Idx: Integer;

begin

for Idx := 0 to High(AList) do

ShowMessage(AList[Idx]);

end;

Не сложно, но можно проще :

procedure DoStringListNew(AList: TStringList);

var

lStr: string;

begin

for lStr in AList do

ShowMessage(lStr);

end;

Правда ведь, намного приятнее и понятнее.

Читать далее »