Código de Delphi - Comparar cadenas

Comparar cadenasgráfica de visualizaciones


Delphi

Publicado el 28 de Mayo del 2003 por Edgar Fernando
12.081 visualizaciones desde el 28 de Mayo del 2003. Una media de 21 por semana
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
12.082 visualizaciones desde el 28 de Mayo del 2003. Una media de 21 por semana
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

http://lwp-l.com/s651