Función para comprar dos strings

[[mightydragonlor]]

Esta función te devuelve la cantidad de diferencias que encuentra entre las cadenas, aún así, no queda muy claro lo que necesitas.

Código Delphi [-]
function Diferencias(Str1, Str2: String): Integer;
var
  d : array of array of Integer;
  Len1, Len2 : Integer;
  i,j,cost:Integer;
begin
  Len1:=Length(Str1);
  Len2:=Length(Str2);
  SetLength(d,Len1+1);
  for i := Low(d) to High(d) do
    SetLength(d[i],Len2+1);
 
  for i := 0 to Len1 do
    d[i,0]:=i;
 
  for j := 0 to Len2 do
    d[0,j]:=j;
 
  for i:= 1 to Len1 do
    for j:= 1 to Len2 do
    begin
      if Str1[i]=Str2[j] then
        cost:=0
      else
        cost:=1;
      d[i,j]:= Min(d[i-1, j] + 1,
                   Min(d[i, j-1] + 1,
                       d[i-1, j-1] + cost)
                            );
    end;
  Result:=d[Len1,Len2];
end;

[Jere_84]

Empezado por mightydragonlor

Esta función te devuelve la cantidad de diferencias que encuentra entre las cadenas, aún así, no queda muy claro lo que necesitas.

Código Delphi [-]
function Diferencias(Str1, Str2: String): Integer;
var
  d : array of array of Integer;
  Len1, Len2 : Integer;
  i,j,cost:Integer;
begin
  Len1:=Length(Str1);
  Len2:=Length(Str2);
  SetLength(d,Len1+1);
  for i := Low(d) to High(d) do
    SetLength(d[i],Len2+1);
 
  for i := 0 to Len1 do
    d[i,0]:=i;
 
  for j := 0 to Len2 do
    d[0,j]:=j;
 
  for i:= 1 to Len1 do
    for j:= 1 to Len2 do
    begin
      if Str1[i]=Str2[j] then
        cost:=0
      else
        cost:=1;
      d[i,j]:= Min(d[i-1, j] + 1,
                   Min(d[i, j-1] + 1,
                       d[i-1, j-1] + cost)
                            );
    end;
  Result:=d[Len1,Len2];
end;

Gracias mightydragonlor, pero lo único que necesito es que me digo si son o no iguales. Imagino que debe haber alguna que sea boolean.
Slds.

[[mightydragonlor]]

Empezado por Jere_84

Gracias mightydragonlor, pero lo único que necesito es que me digo si son o no iguales. Imagino que debe haber alguna que sea boolean.
Slds.

Prueba con esto.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var a,b: String;
  Function Igualdad(Str1, Str2: String): Boolean;
  Begin
    If Str1=Str2 Then Result:=True Else Result:=False;
  end;
begin
  a:= '123';
  b:= '123';
  If Igualdad(a,b) = True Then ShowMessage('Son iguales!') Else ShowMessage('Son diferentes!');
end;

[ecfisa]

lo único que necesito es que me digo si son o no iguales.

Hola Jere_84.

Entonces, otra posibilidad es utilizar cualquiera de las funciones StrCompare o AnsiStrCompare, estas devuelven un valor que según la propia ayuda de Delphi es:

Condition  Return Value
S1 > S2	   > 0
S1 < S2    < 0
S1 = S2	   = 0

Ahora podrías hacer:

Código Delphi [-]
 if Boolean(CompareStr('Hola', 'Hola')) then // True si son <>
    ShowMessage('Diferentes')
  else
    ShowMessage('Iguales');

Saludos.

[[Delphius]]

Pues... no conozco si existe una función para comprar strings. Es la primera vez que "escucho" que se tenga que pagar por usarlos

Ahora yendo a tu pregunta: Define para ti que dos strings sean iguales... porque a mi me huele a que te estás complicando al puro %$#&@. Define realmente que es "compararlos"
En principio para algo tan trivial y básico ¿Hace falta una función? ¿Que o quien te impide hacer algo como:

Código Delphi [-]
if String1 = String2
   then ShowMessage('Son Iguales macho. ¿Que no ves?')
   else ShowMessage('Pues resulta que somos distintos. Y no hizo falta de más para compararnos')

;

Digo... o es que yo me volví más tarado, que puede ser y no descarto , o es que tu esperas algo más de una "comparación". A ver si te explicas porque...

Saludos,

[cloayza]

Bueno en delphi xe existen varias funciones para realizar lo que requieres...

Unit: SysUtils.Pas

• SameStr
• SameText
• CompareStr
• CompareText
• AnsiCompareStr
• AnsiCompareText
• CompareMem

Cada una con sus características.

En la unit StrUtils.Pas, existen mas funciones la cosa sería buscar...

Saludos cordiales


Saludos

[Jere_84]

Empezado por cloayza

Bueno en delphi xe existen varias funciones para realizar lo que requieres...

Unit: SysUtils.Pas

• SameStr
• SameText
• CompareStr
• CompareText
• AnsiCompareStr
• AnsiCompareText
• CompareMem

Cada una con sus características.

En la unit StrUtils.Pas, existen mas funciones la cosa sería buscar...

Saludos cordiales


Saludos

Muchas Gracias, me quede con: SameText

Slds.