[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;