leer texto pero del final al inicio

[octalh]

Hola, alguien sabe una forma de leer texto pero alreves??, ocea de el final hacia el origen. o en su defecto alguna forma de guardar texto pero alreves, para que el final me quede al inicio y el inicio al final.

gracias

[Neftali [Germán.Estévez]]

Lee la Guía de estilo.

Por favor, dedícale un poco más de tiempo a formular la pregunta correctamentre y a dar más detalles de cual es tu problema. No cobramos por palabras, así que no te preocupes puedes utilizas TODAS las que necesites sin problemas...

[octalh]

ok disculpen si no me explique correctamente

la razon por la que quiero hacer esto es la siguiente

tengo una funcion que "corta" cadenas de texto usando Pos y PosEx

function CopyEntre(Cadena:string; Desde,Hasta:string):string;
{

Ejemplo:
Cadena:='213123123[bloke]Devuelve esto[/bloke]23423423245';
Trozo:=CopyEntre(Cadena,'[bloke]','[/bloke]';
Trozo valdría: 'Devuelve esto'
}
var
Inicio,Final: integer;
begin
Result:='';
Inicio:=Pos(Desde,Cadena)+Length(Desde);
Final :=PosEx(Hasta,Cadena,Inicio);
If (Inicio>0) and (Final>Inicio) then Result:=Copy( Cadena, Inicio, Final-Inicio );
end;

tengo una variable tipo String que contiene una cadena de texto
ejemplo:

texto := 'ABCDE-HOLA+FGHIJ';
texto2 := CopyEntre(texto,'-','+')

La funcion "CopyEntre" corta todo lo que este entre - y + y me devuelve texto2 en este caso "HOLA", hasta aqui todo bien sin problemas

el problema es que esa string esta cambiando constantemente y despues tengo algo como esto

texto := 'ABCDE-HOLA+FGHIJ-ADIOS+KLMN';
texto2 := CopyEntre(texto,'-','+')

ahora quiero que la funcion "CopyEntre" me devuelva "ADIOS", pero en su lugar me sigue devolviendo "HOLA"

esto es porque la funcion que "corta" realiza la busqueda de cadenas de izquierda a derecha, ocea del inicio al final, por eso preguntaba como hacer este procedimiento pero de el final al inicio para obtener siempre el ultimo valor que se encuentre entre - y +
no se si exista una forma por ejemplo de guardar la posicion del ultimo caracter "+" y continuar desde ahi la prox busqueda y de esa forma saltar la primer frase

gracias.

[[duilioisola]]

Dos opciones :

- Guardas en una variable global la última posición donde encontró el "separador"
- Pasas la posición donde quieres que comience el análisis como parámetro

Código Delphi [-]
function CopyEntre(s : string, sep1 : string; sep2 : string; var posicion : integer)
begin
...
   for i := posición to length(s) do
   begin
      {si encuentro sep2}
         {posición := i;}
         {salir y devolver resultado}
   end;
...
end;

pos := 1;
texto := 'ABCDE-HOLA+FGHIJ-ADIOS+KLMN';
texto2 := CopyEntre(texto,'-','+',pos);
{devuelve "HOLA"}
{pos habrá cambiado a 11}
texto2 := CopyEntre(texto,'-','+',pos);
{devuelve "ADIOS"}

[*Caro*]

Hola , también puedes hacerlo de esta forma, para que recorra toda la cadena y te devuelva todas las que encuentra entre - y +.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 texto, textoTmp, cadena : String;
 Inicio, Final : Integer;
begin
 texto := 'ABCDE-HOLA+FGHIJ-ADIOS+KLMN';
 textoTmp := texto;
 
 while Pos('-',textoTmp)>0 do
  begin
    Inicio := Pos('-',textoTmp);
    Final := Pos('+',textoTmp);
 
    cadena:=Copy( textoTmp, Inicio+1, Final-Inicio-1);
 
    textoTmp[Inicio] := '0';
    textoTmp[Final] := '0';

    showmessage(cadena);
  end;
end;

Saluditos

[octalh]

Gracias a los dos por responder, me convence la forma de hacerlo guardando la posicion del ultimo separador y continuar desde ahi la prox busqueda.

Ya que no puedo hacer eso manual porque la string cambia constantemente y yo no puedo saber la cantidad de caracteres dentro de ella

esa forma de guardar el ultimo separador como variable global me parece muy buena pero no entendi muy bien el ejemplo, no se si el ejempo es de la primera o la segunda optativa que me has dado.

podrias ayudarme con algo de codigo para poder entender como podria hacer eso?

gracias

[octalh]

Pues al final lo solucione, solo que no de esa forma

resulta que si se pueden voltear las strings y funciono muy bien

dejo el codigo por si alguien lo necesita

Function String_Reverse(S : String): String; 
Var 
   i : Integer; 
Begin 
   Result := ''; 
   For i := Length(S) DownTo 1 Do 
   Begin 
     Result := Result + Copy(S,i,1) ; 
     T := result; 
   End; 
End;