Funciones String
 

Hola:

Tengo un problemilla... alguien sabe de alguna funcion o en todo caso alguien ha desarrollado algun codigo q permita... dada una cadena de texto identificar el valor o la subcadena que se encuentra entre dos simbolos... ejm:

"este es un jemplo para verificar <Prueba> si funciona"
deseo guardar el valor que se encuentra entre los simbolso "<>" q es Prueba.. algo asi..

si alguien puede ayudarme.. se lo agradecere...

Saludos
Thomas

Algo parecido a esto:

Código Delphi [-]
procedure TForm1.bt1Click(Sender: TObject);
const
  cTexto = 'Esto es una  sencilla';
  cAbre = '<';
  cCierra = '>';
var
  iPosAbre, iPosCierra : integer;
begin
  iPosAbre   := Pos(cAbre,cTexto);
  iPosCierra := Pos(cCierra,cTexto);

  ShowMessage( Copy(cTexto,iPosAbre+1,(iPosCierra-iPosAbre)-1) );

end;

puedes convertirlo en una function y devolver el texto

Hola thomas, aquí te dejo la función hecha tomando en cuenta que el delimitador es '<' y '>', si deseas cambiar de delimitador sólo agrégale dos parámetros más a la función para especificar el delimitador inicial y el final, y los reemplazas '<' (por delimitador inicial) y '>' (por delimitador final).

Código Delphi [-]
function ExtraeCadena(cadena: string): string;
begin
  result:=copy(cadena,pos('<',cadena)+1,pos('>',cadena)-pos('<',cadena)-1);
end;

saludos.:)

hola a todos
no hay ninguna funcion similar a las de php como LastIndex o FirstIndex ??
para el caso de que el separador fuera un = y si las posiciones q devuelven estas dos funciones son iguales pues entonces ya puedes tomar un lado de la igualdad o el otro??
es solo curiosidad, taba buscando otra cosa y lei el hilo
gracias