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,


{ 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:

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.