C++ Builder vs Delphi

[santana]

Empezado por roman

Bueno, pero sí de lo que se trata es de ser crípticos....

Pues no, en realidad de lo que se trataba era de haceros rabiar un poco y a ser posible, provocarle una nueva úlcera de estómago a Jachguate

Saludos

PD: El ++ es algo que se me escapa de vez en cuando sin pretenderlo

[roman]

Empezado por santana

Pues no, en realidad de lo que se trataba era de haceros rabiar un poco

No creo que nos hagas rabiar ya que nosotros somos felices leyendo código Delphi.

[Julià T.]

Código Delphi [-]
  
  //creo que realmente la funcion en delphi seria como la siguiente
  function comparaCadenas(c1, c2: string): integer;
  begin
   result:=integer(C1<>c2);
  end;
  
    // Equivalente de StrCmp en  Delphi
  function comparaCadenas(c1, c2: PChar): integer;
  begin
    if (c1  = nil) or (c2 = nil) then
      result := Integer(c2) - Integer(c1)
    else  begin
      while (c1^ <> #0) and (c2^ <> #0) and (c1^ = c2^) do  begin
        Inc(c1);
        Inc(c2);
      end;
      if (c1^ <>  #0) or (c2^ <> #0) then
        result := Integer(c1^) -  Integer(c2^)
      else
        result := 0;
    end;
  end;

[santana]

Empezado por Julià T.

//creo que realmente la funcion en delphi seria como la siguiente

Empezado por Julià T.

Código Delphi [-]
 function comparaCadenas(c1, c2: PChar): integer;
  begin
    if (c1  = nil) or (c2 = nil) then
      result := Integer(c2) - Integer(c1)
    else  begin
      while (c1^ <> #0) and (c2^ <> #0) and (c1^ = c2^) do  begin
        Inc(c1);
        Inc(c2);
      end;
      if (c1^ <>  #0) or (c2^ <> #0) then
        result := Integer(c1^) -  Integer(c2^)
      else
        result := 0;
    end;
  end;

Empezado por santana

Código Delphi [-]
  function comparaCadenas(c1, c2: PChar): integer;
begin
  if (c1  = nil) or (c2 = nil) then
  result := Integer(c2) - Integer(c1)
  else  begin
  while (c1^ <> #0) and (c2^ <> #0) and (c1^ = c2^) do  begin
    Inc(c1);
    Inc(c2);
  end;
  if (c1^ <>  #0) or (c2^ <> #0) then
    result := Integer(c1^) -  Integer(c2^)
  else
    result := 0;
  end;
end;  

Sí, creo que sí.
Saludos.

[roman]

¿Qué esto es como eso de encuentra diferencias en dos dibujos?

[Julià T.]

Originalmente publicado por roman
¿Qué esto es como eso de encuentra diferencias en dos dibujos?

no la funcion sólo compara cadenas, quizá evolucione y pueda comparar dibujos

Supongo que la culpa fue mía al no distinguir detalladamente la función original de santana al estilo C de la equivalente al estilo delphi.

[santana]

Nosotros nos hemos entendido y eso es lo que importa

Un saludo.