Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   problemas para comparar 2 cadenas (https://www.clubdelphi.com/foros/showthread.php?t=51536)

spyfenix 18-12-2007 16:28:40

problemas para comparar 2 cadenas
 
que tal raza, tengo el siguiente problema

tengo una cadena fija con este nombre 'nombre'
y voy sacando mas cadenas pero diferentes cadenas por decir 'colonia tal', 'nombre felipe', 'carro rojo', 'nombre juan'

entonces lo que quiero hacer es que compare 'nombre' con todas las cadenas que le meta, y aquellas que tengan 'nombre' mediante un if entren a la validacion

yo lo estoy haciendo de esta forma, no se si sea la correcta, pero no me sale


Código:

var
  aConjunto : set of char;
  aValidar, aComparar : string; // la variable aComparar va tomando valores mediante un query
begin
  aConjunto  := ['n', 'o','m', 'b', 'r', 'e'];
  for i:= 1 to (Length(aValidar)) do
  begin
    if aValidar[i] in aConjunto then
    begin
      ShowMessage('Entra');
      edtSubNombre.SetFocus;
      Exit;
    end;
  end;
end;

mas o menos lo que quiero hacer, es usar tipo LIKE como en sql
que todas las palabras que tengan nombre mediante un if entre

muchas gracias de antemano y pues espero su ayudita

saludos

dec 18-12-2007 16:30:49

Hola,

No sé si te valdría usar la función "AnsiPos":

Código Delphi [-]
if AnsiPos('nombre', cadena) <> 0) then
begin
  // Se encontró "nombre" en la cadena
end;

spyfenix 18-12-2007 17:44:48

que tal DEC :cool:

muchas gracias por la ayuda, valla que si ayudo

saludos :D:D:D:D:D:D:D:D


La franja horaria es GMT +2. Ahora son las 05:53:48.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi