A>for(it= iter->vec.begin(); it != iter->vec.end(); it ++)
A>

for(SomeIter i=vec.begin(), e=vec.end();i!=e;++i)

for_each(vec.begin(), vec.end(), .....);

template<class P_Type, class P_Func>
P_Func for_all(P_Type& container, P_Func func)
{
    for(P_Type::iterator i=container.begin(), e=container.end(); i!=e; ++i)
        func(*i);
    return func;
}
...
for_all(vec, ...);

hData->RealWidth    =    (hData->AddressLength+hData->Distance)*hData->CharWidth*hData->ShowAddress+(hData->BytePerLine+hData->Distance)*3*hData->CharWidth*hData->ShowHex+hData->BytePerLine*hData->CharWidth*hData->ShowAscii;

FB>hData->RealWidth    =    (hData->AddressLength+hData->Distance)*hData->CharWidth*hData->ShowAddress + 
FB>                        (hData->BytePerLine+hData->Distance)*3*hData->CharWidth*hData->ShowHex + 
FB>                        hData->BytePerLine*hData->CharWidth*hData->ShowAscii;

FB>Как говорится жизнь вынудила. А цикл где у меня такие фичи седят, я вообще лучше показывать не буду. А если обозначать буквой i, то не то что потом не вспомнишь, а на середине строки забудешь...

hData->>RealWidth    =    (hData->AddressLength+hData->Distance)*hData->CharWidth*hData->ShowAddress+(hData->BytePerLine+hData->Distance)*3*hData->CharWidth*hData->ShowHex+hData->BytePerLine*hData->CharWidth*hData->ShowAscii;
FB>

struct HDATA {
  integer ReadlWidth,
  integer AddressLength,
  integer CharWidth,
  integer Distance, 
  integer ShowAddress,
  integer ShowHex,
  integer ShowAscii; 
  inline void UpdateRealWidth() {
    RealWidth = ((AddressLength+Distance)*ShowAddress
                 + (BytePerLine+Distance)*3*ShowHex
                 + BytePerLine*ShowAscii
                ) * CharWidth;
  };
}
...
 hData->UpdateRealWidth();
...

A>  For intIndex = 1 To intCount
A>        strChar = Mid$(strNumber, intIndex, 1)
A>        ' skipped  
A>  Next
A>

  For iIndex = 1 To iCount
        sChar = Mid$(sNumber, iIndex, 1)
        ' skipped  
  Next iIndex

for(int row=0; row < 10; row++)
{
   for(int col= row; col < 10; col++)
    {
    }
}

                for x:=1 to zeml[point_x,point_z].kol_points do
                for z:=1 to zeml[point_x,point_z].kol_points do begin
                        if prin(point_n,des2)=true then begin des:=des2;goto l1;end;
                        if prin(point_n,des2+1)=true then begin des:=des2+1;goto l1;end;
                        if prin(point_n,des2+2)=true then begin des:=des2+2;goto l1;end;
                        if prin(point_n,des2+3)=true then begin des:=des2+3;goto l1;end;
                        des2:=des2+4;goto l2;

l1:                     if (x_pb=x_pe)and(z_pb=z_pe) then begin
                            edit5.Text:=floattostr(zeml[point_x,point_z].mas_point[des].Y);
                                zeml[point_x,point_z].mas_point[des].Y:=y_point.Position-5000;
                        end else begin
                                p:=y_point.Position-5000;
                                zeml[point_x,point_z].mas_point[des].Y:=zeml[point_x,point_z].mas_point[des].Y+p;

                        end;

var
    Count0:integer;
    Count1:integer;
    ....
    Count100:integer;

....
  Count0:= 0;
  Count1:= 0;
...
  Count100:= 0;
...
  while ... 
      read(F,N);
      if N=0 then  Count0:= Count0+1;
      if N=1 then  Count1:= Count1+1;
...
      if N=100 then  Count100:= Count100+1;