utilidades de los tipos string

[ercrizeporta]

me gustaría saber si alguien sabe como realizar o si existe una funcion que dada dos variables de tipo string me diga si una es prefijo o no de la otra.

gracias!!!

[dec]

Hola,

Código Delphi [-]
 { Primera versión }
 
 function EsPrefijoCadena(prefijo, cadena: string) : boolean;
 begin
   Result := prefijo = LeftStr(cadena, Length(prefijo));
 end;
 
 { Segunda versión }
 
 function EsPrefijoCadena(prefijo, cadena: string;
   caSensitive: boolean) : boolean;
 begin
   if caSensitive then
     Result := AnsiStartsStr(prefijo, cadena)
   else
     Result := AnsiStartsText(prefijo, cadena);
 end;

[marcoszorrilla]

Aquí tienes un ejemplo:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
 s1,s2:String;
 begin
 s1:='ABSA';
 s2:='ABSALON';
   if EsPrefijo(s1,s2) then
   ShowMessage('Son iguales');
 end;
 
 Function EsPrefijo(cPref,cCadena:String):Boolean ;
 begin
  if CompareStr(cPref, Copy(cCadena,1,Length(cPref))) = 0 then
  Result:=True
  else
  Result:=False;
 end;

Un Saludo.

[marcoszorrilla]

Brrrrrrrrrr, parece ser que llegue tarde por poco.

Un Saludo.

[dec]

Hola,

Hum... pase, por esta vez, ¡pero que no se vuelva a repetir! ¿Eh?

[marcoszorrilla]

Estudiaremos el caso, pero no al estilo Cátaro, que decían que como el mundo era una chapuza, procrear era perpetuarla......

Le chevalier Cathare au bord e l'autoroute....
(F. Cabrel)


Un Saludo.