C++ a Delphi?

[Delshire]

Empezado por maeyanes

Hola...

El problema que veo es que tratas de ejecutar código luego del break, lo cual no es posible, ya que el break rompe el ciclo for.


Saludos...

Empezado por ecfisa

Hola Delshire, bienvenido a los foros de Club Delphi

La observación maeyanes es correcta, y dado que en el código original usas return yo emplearía el procedimiento Exit en lugar de Break.

No hice comprobaciónes, pero fijate si te funciona de este modo:

Código Delphi [-]
function Match(pData: PByte; bMask: PByte; szMask: PChar): Boolean;
begin
  Result := True;
  while (szMask^ <> #0) and Result do
  begin
    if (szMask^ = 'x') and (pData^ <> bMask^) then
    begin
      Result := False;
      Exit;
    end;
    Inc(szMask);
    Inc(pData);
    Inc(bMask);
  end;
  Result := szMask^ = #0;
end;

Saludos

Gracias por sus respuestas y su bienvenida!

La funcion parece compilar perfectamente, el problema es que la tengo ligada a otra funcion (la llamo de otra funcion) y probarla se hace un poco dificil, como soy nuevo en delphi y estoy traduciendo puramente de C++ seguramente tengo errores pero estoy investigando lo mas profundo posible.

Function FindPattern(dwAddress, dwLen : Cardinal; bMask : PBYTE; szMask : PCHAR) : Cardinal ; stdcall;
var
i : Cardinal;
begin
  for i := 0 to dwLen do
    if(Match(PBYTE(dwAddress + i), bMask, szMask)) then
    Result := Cardinal((dwAddress + i))
    else
    Result := 0;
end;

Esta es la funcion en C++:

DWORD FindPattern(DWORD dwAddress, DWORD dwLen, BYTE * bMask, char * szMask)
{
	for (DWORD i = 0; i < dwLen; i++)
		if (Match((BYTE*)(dwAddress + i), bMask, szMask))
			return (DWORD)(dwAddress + i);

	return 0;
}

Muchas Gracias por la ayuda!