[Redstason]

Здрасте.
Собственно:
Было на Delphi:

Код:

function Matching(StrInputA: WideString;
                  StrInputB: WideString;
                  lngLen: Integer) : TRetCount;
Var
    TempRet   : TRetCount;
    PosStrB   : Integer;
    PosStrA   : Integer;
    StrA      : WideString;
    StrB      : WideString;
    StrTempA  : WideString;
    StrTempB  : WideString;
begin
    StrA := String(StrInputA);
    StrB := String(StrInputB);

    For PosStrA:= 1 To Length(strA) - lngLen + 1 do
    begin
       StrTempA:= System.Copy(strA, PosStrA, lngLen);

       PosStrB:= 1;
       For PosStrB:= 1 To Length(strB) - lngLen + 1 do
       begin
          StrTempB:= System.Copy(strB, PosStrB, lngLen);
          If SysUtils.AnsiCompareText(StrTempA,StrTempB) = 0 Then
          begin
             Inc(TempRet.lngCountLike);
             break;
          end;
       end;
       Inc(TempRet.lngSubRows);
    end; // PosStrA

    Result:= TempRet;
end;

Я переписал на С++.

PHP код:

TRetCount   Matching(WideString StrInputA,WideString StrInputB,int lngLen){
 TRetCount   TempRet;
 int  PosStrB,PosStrA ;
 WideString   StrA,StrB,StrTempA,StrTempB;
 StrA =StrInputA;
 StrB = StrInputB;
 for(PosStrA=1;  PosStrA<=(StrA.Length() - lngLen + 1);PosStrA++){
   StrTempA=StrA.SubString(PosStrA, lngLen);

   PosStrB= 1;
   for(PosStrB=1; PosStrB<=(StrB.Length() - lngLen + 1);PosStrB++){
     StrTempB=StrB.SubString(PosStrB, lngLen);
     if (AnsiCompareText(StrTempA,StrTempB) == 0) {
       TempRet.lngCountLike=TempRet.lngCountLike+1;
       break;
     }
   }

   TempRet.lngSubRows=TempRet.lngSubRows+1;
 } // PosStrA


    return TempRet;
} 


Но что-то пошло не так.Может кто увидит , что.

[Redstason]

Вообще меня смущает вот эти строчки:
Matching.lngCountLike:= TempRet.lngCountLike;
Matching.lngSubRows := TempRet.lngSubRows;

Как их повторить на С++?

[icWasya]

А зачем нужно вот это

Код:

   StrA := String(StrInputA);
    StrB := String(StrInputB);

???????

[icWasya]

Как их повторить на С++?

Если структура TTempRet содержит только эти два поля, то так, как и написали.
А даже в Delphi надо было написать просто

Код:

 Result:=TempRet;

[Redstason]

Учел замечания, но это не помогло.
Вопрос в том ,что в сишной функции значения TempRet берутся непонятно откуда

[lmikle]

А в C не с 0 ли начинаются строки?