Código de Delphi - Comparar cadenas

sin imagen de perfil

Comparar cadenasgráfica de visualizaciones


Delphi

Publicado el 28 de Mayo del 2003 por Edgar Fernando
14.026 visualizaciones desde el 28 de Mayo del 2003
Función que sirve para determinar si una cadena de caracteres cumple un determinado patrón pasado como parámetro.

Versión 1

Publicado el 28 de Mayo del 2003gráfica de visualizaciones de la versión: Versión 1
14.027 visualizaciones desde el 28 de Mayo del 2003
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
function CompararStrings(Origen, Patron: String): Boolean;
var
	pOrigen: Array [0..255] of Char;
	pPatron: Array [0..255] of Char;
 
	function CompararPatron(elemento, Patron: PChar): Boolean;
	begin
		if 0 = StrComp(Patron,'*') then
			Result := True
		else
			if (elemento^ = Chr(0)) and {Si no letras en elemento}
			(Patron^ <> Chr(0)) then {Si no se terminó patron}
				Result := False           {es porque son diferentes}
			else
				if elemento^ = Chr(0) then
					Result := True
				else begin
					case Patron^ of
						'*':	if CompararPatron(elemento,@Patron[1]) then
								Result := True
							else
								Result := CompararPatron(@elemento[1],Patron);
						'?': Result := CompararPatron(@elemento[1],@Patron[1]);
					else
						if elemento^ = Patron^ then{iguales, compare siguientes}
						Result := CompararPatron(@elemento[1],@Patron[1])
				else
					Result := False;
			end;
		end;
	end;
	begin
		StrPCopy(pOrigen,Origen);
		StrPCopy(pPatron,Patron);
		Result := CompararPatron(pOrigen,pPatron);
end;



Comentarios sobre la versión: Versión 1 (0)


No hay comentarios
 

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s651